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Benefit of Prior U.S. Application(s) (35 U.S.C. 119(e), 120, or 121) 



If the new application being transmitted is a continuation, CIP or divisional, of a parent case, or where the parent case is an International Application 
which designated the U.S., or the benefit of a prior provisional application is claimed, then check the following item and complete section as follows, 

0 The new application being transmitted claims the benefit of prior U.S. application(s). 
2.1 Relate Back 



WARNING: If an application claims the benefit of tiie filing date of an earlier filed application under 35 U.S.C. 120, 121 or 
365(c), the 20-year term of that apphcation will be based upon the filing date of the earliest U.S. application that 
the application makes reference to under 35 U.S.C. 120, 121 or 365(c). (35 U.S.C. 154(a)(2) does not take into 
account, for the determination of the patent term, any application on which priority is claimed under 35 U.S.C. 
119, 365(a) or 365(b).) For a CIP application, apphcant should review whether any claim in the patent that will 
issue is supported by an earlier application and, if not, the applicant should consider canceling the reference to th^ 
earlier filed apphcation. The term of a patent is not based on a claim-by-claim approach. See Notice of April 1 4, 
1995, 60 Fed Reg. 20,195, at 20,205. 

(complete the following, if applicable) 



Amend the specification by inserting, before the first line, the following sentence: 



A. 35 U.S.C. 120, 121 and 365(c) 



0 "This is a 

( ) continuation 

0 continuation-in-part 

0 divisional 

of copending apphcation(s) serial number filed on 

( ) International Application filed on and which designated the U.S." 

Note: The proper reference to a prior filed PCT application that entered the UX national phase is the US. serial number 
and the filing date of the PCT application that designated the U.S. Moreover, (I) Where the application being 
transmitted adds subject matter to the International Application, then the filing can be as a continuation-in-part or (2) 
if it is desired to do so for other reasons then the filing can be as a continuation. 

( ) "The nonprovisional application designated above, namely apphcation no. , 

filed , claims the benefit of U.S. Provisional AppHcation(s) No(s).: 

{list application no(s). and filing date(s)} 

B. 35 U.S.C. 119(e) (Provisional Application) 

( ) "This application claims the benefit of U.S. Provisional Application(s) No(s).: 
{list application no(s). and filing date(s)} 
2.2 Relate Back-35 U.S.C. 119 Priority Claim for Prior Application 
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The prior U.S. application(s), including any prior International Application designating the U.S., 
identified above in item 2.1(A), in turn itself claim(s) foreign priority(ies) as follows; 

{list country^ application no(s). and filing date(s)} 

The certified copy(ies) has (have) 

( ) been filed on , in prior application serial no. , which was filed on . 

( ) is (are) attached. 

2.3 Maintenance of Copendency of Prior Application 

NOTE: The PTO finds it useful if a copy of the petition filed in the prior application extending the term for response is filed with the 
papers constituting the filing of the continuation application. Notice of November 5, 1985 (1060 O.G. 27). 

A. 0 Extension oftime in prior application 

(This item must be completed and the papers filed in the prior application 
if the period set in the prior application has run.) 

0 A petition, fee and response extends the term in the pending prior apphcation until 
Extension of . 

0 A copy of the petition filed in prior application is attached. 

B. ( ) Conditional Petition for Extension of Time in Prior Application 

(complete this item, if previous item not applicable) 

0 A conditional petition for extension of time is being filed in the pending prior 
application. 

0 A copy of the conditional petition filed in the prior application is attached. 

2.4 Further Inventorship Statement Where Benefit of Prior Application(s) Claimed 

(complete applicable item A, B and/or C below) 

A. ( ) This apphcation discloses and claims only subject matter disclosed in the prior apphcation 
whose particulars are set out above and the inventor(s) In this application are 

( ) the same. 

( ) less than those named in the prior apphcation. It is requested that the following inventor(s) 
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identified for the prior application be deleted: 

{ type name(s) of inventor(s) to be deleted } 
This application discloses and claims additional disclosure by amendment and a new 
declaration or oath is being filed. With respect to the prior application, the inventor(s) in this 
application are 

( ) the same. 

( ) the following additional inventor(s) have been added: 

(type name(s) of inventor (s) to be added) 
( ) The inventorship for all the claims in this application are 

0 the same. 

( ) not the same. An explanation, including the ownership of the various claims at the 
time the last claimed invention was made 

0 is submitted. 

( ) will be submitted. 



2.5 Abandonment of Prior Application (if applicable) 

( ) Please abandon the prior apphcation at a time while the prior apphcation is pending, or when 
the petition for extension of time or to revive hi that application is granted, and when this 
apphcation is granted a filing date, so to make this application copending with said prior 
application. 

NOTE: According to the Notice of May 13, 1983 (103, TMOG 6-7), the filing of a continuation or continuation-in-part 
application is a proper response with respect to a petition for extension of time or a petition to revive and should 
include the express abandonment of the prior application conditioned upon the granting of the petition and the 
granting of a filing date to the continuing application. 

2.6 Petition for Suspension of Prosecution for the Time Necessary to File an Amendment 

NOTE: Where it is possible that the claims on file will give rise to a first action final for this continuation application and for 
some reason an amendment cannot be filed promptly (e,g, experimental data is being gathered) it may be desirable to 
file a petition for suspension of prosecution for the time necessary. 

(check the next Item, if applicable) 

( ) There is provided herewith a Petition To Suspend Prosecution for the Time Necessary to File 
An Amendment (New Application Filed Concurrently) 
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2.7 Small Entity (37 CFR § L28(a)) 



( ) Applicant has established small entity status by the previous submission of a statement in 
prior application serial no. on . 

( ) A copy of the statement previously filed is included. 

WARNING: See 37 CFR § 1. 28(a). 

2.8. Notiflcation in Parent Application of this Filing 

0 A notification of the fihng of this 
(check one of the following) 

( ) continuation 
0 continuation-in-part 
() divisional 

is being filed in the parent application, fi:om which this application claims priority 
under 35 U.S.C.§ 120. 

2.9 Incorporation by Reference 

0 the entire disclosure of the prior application, from which a copy of the oath or declaration is 
supplied, is considered to be part of the disclosure of the accompanying 
application and is hereby incorporated by reference therein. 

|. Papers Enclosed Which are Required for Filing Date Under 37 CFR 1.53(b) (Regular) 
1 or 37 CFR 1.153 (Design) Application 

(X) _13_ Pages of specification 
(X) 4 Pages of claims 
(X) _L Pages of Abstract 
(X) 10 Sheets of drawing 

(X) formal 

0 informal 

4. Additional papers enclosed 

0 Amendment to claims: 

( ) Cancel in this application claims before calculating the filing fee. (At least one 

original independent claim must be retained for filing purposes). 



Page 5 



( ) Add the claims shown in the attached amendment. (Claims added have been numbered 
consecutively following the highest numbered original claims). 

0 Preliminary Amendment 

(X) Information Disclosure Statement (37 C.F.R. 1.98) 
(X) FormPTO-1449 
0 Citations 

0 Declaration of Biological Deposit 
0 Special Comments 
0 Other 

Declaration or oath (including power of attorney) 

(X) ENCLOSED. 

0 Newly executed (original or copy) 

0 Copy from prior apphcation No. _0_/ (37 CFR 1 .63(d)- continuation/divisional) 

( ) DELETION OF INVENTORfS) - signed statement attached deleting 

inventor(s) named in the above-noted prior application (37 CFR L63(d) and 
L33(b)) 

Declaration or Oath executed by: (check all applicable boxes) 
0 inventor(s). 

( ) legal representative of inventor(s). 37 CFR 1.42 or L43 

( ) joint inventor or person showing a proprietary interest on behalf of inventor who 
refused to sign or cannot be reached. 

( ) this is the petition required by 37 CFR 1 .47 and the statement required by 37 CFR 
1.47 is also attached. See item 13 below for fee. 

0 NOT ENCLOSED. 

( ) Application is made by a person authorized under 37 CFR 1.41(c) on behalf of all the above 
named inventor(s). The declaration or oath, along with the surcharge required by 37 CFR 
1.16(e) can be filed subsequently. 

( ) Showing that the filing is authorized. (Not required unless called into question. 37 
CFR 1.41(d)). 

Inventorship Statement 

WARNING: If the named inventors are each not the inventors of all the claims an explanation, includmg the ownership of the various claims at 

the time the last claimed invention was made, should be submitted. 

The inventorship for all the claims in this application are: 
0 The same 
or 

0 Not the same. An explanation, including the ownership of the various claims at the time the last 
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( ) Add the claims shown in the attached amendment. (Claims added have been numbered 
consecutively following the highest numbered original claims). 



0 Preliminary Amendment 

(X) hiformation Disclosure Statement (37 C.F.R. 1.98) 
(X) FormPTO-1449 
() Citations 

0 Declaration of Biological Deposit 
( ) Special Comments 
O Other 

Declaration or oath (including power of attorney) 

(X) ENCLOSED. 

0 Newly executed (original or copy) 

0 Copy from prior apphcation No. _0i (37 CFR 1.63(d)- continuation/divisional) 

( ) DELETION OF INVENTORfS;) - signed statement attached deleting 

inventor(s) named in the above-noted prior apphcation (37 CFR 1, 63(d) and 
1.33(b)) 

Declaration or Oath executed by: (check all applicable boxes) 
0 inventor(s). 

( ) legal representative of inventor(s). 37 CFR 1.42 or 1.43 

( ) joint inventor or person showing a proprietary interest on behalf of inventor who 
refused to sign or cannot be reached, 

( ) this is the petition required by 37 CFR 1.47 and the statement required by 37 CFR 
1.47 is also attached. See item 13 below for fee. 

0 NOT ENCLOSED. 

( ) Application is made by a person authorized under 37 CFR 1.4 1(c) on behalf of all the above 
named inventor(s). The declaration or oath, along with the surcharge required by 37 CFR 
1 . 1 6(e) can be filed subsequently. 

( ) Showing that the filing is authorized. (Not required unless called into question. 37 
CFR 1.41(d)). 

Inventorship Statement 

WARNING: If the named inventors are each not the inventors of all the claims an explanation, including the ownership of the various claims at 

the time the last claimed invention was made, should be submitted. 

The inventorship for all the claims in this apphcation are: 
0 The same 
or 

0 Not the same. An explanation, including the ownership of the various claims at the time the last 
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claimed invention was made, 
0 is submitted 
0 will be submitted. 



7. Language 

(X) English 
0 Non-English 

0 the attached translation is a verified translation. 37 CFR 1.52(d). 

8. Assignment 

(X) An assignment of the invention 

0 is attached. (A separate "ASSIGNMENT COVER LETTER ACCOMPANYING NEW 
PATENT APPLICATION" is also attached.) 

i (X) will follow. 

y 0 The prior appUcation is assigned of record to _(copy attached). 
^. Certified Copy - Foreign Priority Claim Under 35 U.S.C. 119 

^ Certified copy(ies) of application(s) 

i {list country, application no(s). and filing date(s)} 

^ jfrom which priority is claimed 

3 0 is (are) attached. 

3 0 will follow. 

NOTE: The foreign application forming the basis for the claim for priority must be referred to in the oath or declaration. 37 CFR 1 .55(a) and 1 .63. 

NOTE- This Item is for any foreign priority for which the application bemg filed directly relates If any parent U.S. application or International 

Application form which this application claims benefit under 35 U.S.C. 120 is itself entitled to priority from a pnor foreign application then 
complete item 17 on the ADDED PAGES FOR NEW APPLICATION TRANSMITTAL WHERE BENEFIT OR PRIOR U.S. 
APPLICATION(S) CLAIMED. 



10, Fee Calculation (37 C.F.R. 1.16) 



A. (X) Regular Application 



CLAIMS AS FILED 






Number Filed 


Number Extra 


Rate 


Basic Fee 










$690.00 



Page? 



Total Claims 
(37 CFR 1.16(c)) 


21 - 20 = 


1 


x$ 18.00 


$ 18.00 


Independent Claims 
(37 CFR 1.16(b)) 


3-3 = 


0 


x$ 78.00 


$0.00 


Multiple dependent 
claim(s), if any 
(37 CFR 1.16(d)) 


0 


0 


X $ 260.00 


$ 0.00 



( ) Amendment canceling extra claims enclosed. 

( ) Amendment deleting multiple dependencies enclosed. 

( ) Fee for extra claims is not being paid at this time, 

NOTE: If the fees for extra claims are not paid on filing they must be paid or the claims canceled by amendment, prior to the expiration of the time 
period set for response by the Patent and Trademark Office in any notice of fee deficiency. 37 CFR 1 .16(d). 

^ J Filing Fee Calculation $ 708.00 

f [| B. 0 Design Application 

il ($330.00 -37 CFR 1. 16(f)) 

%. Li 

' J Filing Fee Calculation $ 

t|l. Small Entity Statement(s) 

U 0 Verified Statement(s) that this is a filing by a small entity under 37 CFR 1 .9 and 1 .27 is(are) 
p attached. 

'i .J 

Filing Fee Calculation (50% of A or B above) $ 

NOTE: Any excess of the full fee paid will be refunded if a verified statement and a refund request are filed within 2 months of the date of timely 
payment of a full fee. 37 CFR 1.28(a). 

12. Request for International-Type Search (37 C.F.R. 1.104(d)) 

( ) Please prepare an international-type search report for this application at the time when national 
examination on the merits takes place. 

13. Fee Payment Being Made At This Time 

( ) NOT ENCLOSED. 

( ) No filing fee is to be paid at this time. (This and the surcharge required by 37 CFR 1 .16(e) 
can be paid subsequently.) 



Pages 



(X) ENCLOSED 

PO Filing fee $ 708.00 



0 Recording assignment 

($40.00; 37 CFR 1.21(h)(1)) $ 

( ) petition fee for filing by other than all the inventors or person on behalf of the inventor where 
inventor refused to sign or cannot be reached. ($130.00; 37 CFR 1.47 & 1.17(h)) 
$ 



( ) for processing an application with a specification is a non-English language. ($130.00 37 
CFR 1.52(d) and 1.1 7(k)) 
$ 

0 processing and retention fee. ($130.00; 37 CFR 1.53(d) and 1.21(1)) 
$ 

( ) Fee for international-type search report. ($40.00; 37 CFR 1.21(e)) 
$ 

Total fees enclosed $ 708.00 

Method of Payment of Fees 

(X) Check in the amount of $708.00 

0 Charge Account No. 50-0902 in the amount of $ A duplicate of this transmittal is attached. 
Authorization to Charge Additional Fees 

WARNING: If no fees are to be paid on filing the following items should not be completed. 

WARNING: Accurately count claims, especially multiple dependent claims, to avoid unexpected high charges, if extra claim charges are authorized. 

The Commissioner is hereby authorized to charge the following additional fees by this paper and during 
the entire pendency of this application to Account No. 50-0902, identifying our Attorney 
Docket No. (74218/05085). 

(X) 37 CFR 1 . 1 6(a), (f), or (g) (filing fees) 

(X) 37 CFR 1 .16(b), (c) and (d) (presentation of extra claims) 

(X) 37 CFR 1.17 (application processing fees) 

0 37 CFR 1 . 1 6(e) (surcharge for filing the basic filing fee and/or declaration on a date later than the 

filing date of the appHcation) 
0 37CFR1.17(a)(l)-(5) (extension fees pursuant to 37 CFR 1.136(a)) 

( ) 37 CFR 1.18 (issue fee at or before mailing Notice of Allowance, pursuant to 37 CFR 1.311(b)) 
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16. Instruction As To Overpayment 

0 Credit Account No. 50-0902, identifying our Attorney Docket No. 

(X) Refund 

17. Incorporation by reference of added pages 

0 The following pages are incorporated by reference: 



0 "Assignment Cover Letter Accompanying New Application"; number of pages added 

(X) Added Pages For Papers Referred To In Item 4 Above; number of pages added 4 

( ) Plus added pages deleting names of inventor(s) named in prior application(s) who is/are no 
longer inventor(s) of the subject matter claimed in this appHcation; number of pages added. 



(X) no further pages form a part of this Transmittal. The transmittal ends with this page. 




ARTER & HADDEN LLP 
11 00 Huntington Building 
925 Euclid Avenue 
Cleveland, Ohio 44115-1475 
Phone: (216) 696-3394 
Fax: (216)696-2645 
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DOCKET NO. 74218/05085 

ON-LINE SYSTEM FOR CREATING A PRINTABLE PRODUCT 

5 Field of Invention 

The present invention generally relates to a system for creating printable 
products, such as announcements, banners, business cards, calendars, greeting cards, 
certificates, craft cards, envelopes, gift tags, invitations, labels, message cards, origami, 
postcards, posters, stationary, and stickers. More particularly the present invention 
10 relates to a system accessible via a computer network for creating customized printable 
products. 

Background of the Invention 

Systems for creating printable products are generally comprised of five 
15 basic components, namely, (1) a "composition engine" component for composing the 
printable product, (2) a "menu" component for facilitating operation of the system, (3) an 
"assets" component which provide the visual and formatting content (e.g., graphic 
elements, text elements, text and graphics formatting data) for the printable product, (4) 
an "assembly" component for assembling a printable product file suitable for printing, 
20 and (5) a "printing" component for printing the printable product. 

Current products for creating printable products are sold as software 
packages installed by a user on their personal computer. Examples of such products 
include American Greetings® CreataCard® and Mindscape® Printshop®. In these 
products, the composition engine, menu, asset, assembly and printing components 
25 initially reside one or more computer disks (e.g., floppy disk, CD-ROM, DVD). All or 
portions of these components are loaded into the hard drive of a personal computer for 
execution by the CPU. 



-1- 



The foregoing approach to creation of printable products has several 
drawbacks. In order to provide a user with a very large selection of assets for a variety of 
different printable products, a plurality of disks are needed. Thus, a user must shuffle 
several disks in and out of the personal computer disk/CD ROM drive in order to review 
5 and select the desired assets for a printable product. Alternatively, a user can load the 
assets to their hard drive which consumes significant storage resources of the user's 
personal computer. 

Another drawback is that the selection of assets remain static, and thus get 
"stale" over time. Many users desire new assets for the printable products. Thus, a user 
10 must periodically acquire new disks with new assets in order create printable products 
with "fi-esh" assets. Similarly, the engine component may be frequently upgraded with 
enhanced features (e.g., new types of printable products), and thus the user must acquire 
new disks with the upgraded engine component in order to utilize the enhanced features. 

While it is possible to download new assets and engines over a computer 
15 network such as the Internet, the downloading process can be very slow, and significant 
hard disk resources of the user's personal computer are consumed in order to store the 
downloaded data. 

The present invention addresses these and other drawbacks of the prior art 
by providing an on-Une system for creation of printable products. 

20 

Summary of the Invention 

According to the present invention there is provided a system for on-line 
creation of a printable product, the system comprising: (1) at least one server accessible 
via a computer network, said at least one server storing defining data defining a plurality 
25 of printable products including one or more design elements, and a first program 

providing modification functions for modifying the defining data, and assembly functions 
for assembling a printable product suitable for printing; and (2) a client computer for 
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accessing said server, wherein said at least one server downloads said first program to 
said client computer. 

In accordance with another aspect of the present invention, there is 
provided a computer usable medium having computer readable program code means 
5 embodied therein for creating, modifying and printing of a printable product, the 
computer readable program code means comprising: (1) means for downloading data 
defining a printable product from a remote storage device; (2) modification means for 
modifying the defining data; and (3) print formatting means for formatting the defining 
data for printing. 

10 hi accordance with another aspect of the present invention, there is 

provided a method for generating a printable product using an on-line system accessible 
via a computer network, the method including the steps of: (a) storing on a server 
accessible via the computer network, data defining a plurality of printable products 
including one or more design elements; (b) storing on the server a first program providing 

15 modification functions for modifying the defining data, and assembly functions for 
assembling a printable product suitable for printing; and (c) downloading the first 
program to a client computer accessing the server, to allow for modification and printing 
of a printable product at the client computer. 

An advantage of the present invention is the provision of an on-line 

20 system for creating a printable product that minimizes the consumption of storage 
resources of a user's computer. 

Another advantage of the present invention is the provision of an on-line 
system for creating a printable product that provides a user with fast and convenient 
access to updated printed product assets. 

25 Still another advantage of the present invention is the provision of an on- 

line system for creating a printable product that provides a user with fast and convenient 
access to enhanced engines. 
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Still another advantage of the present invention is the provision of an on- 
line system for creating a printable product that utilizes the functionality of a browser. 

Still another advantage of the present invention is the provision of an on- 
line system for creating a printable product that extends the functionality of a browser by 
use of plug-ins. 

Yet another advantage of the present invention is the provision of an on- 
line system for creating a printable product which provides a user's computer with 
extensive editing functions for editing data defining a printable product, including editing 
functions for formatting a variety of different design elements. 

Still other advantages of the invention will become apparent to those 
skilled in the art upon a reading and understanding of the following detailed description, 
accompanying drawings and appended claims. 

Brief Description of the Drawings 

15 The invention may take physical form in certain parts and arrangements of 

parts, a preferred embodiment and method of which will be described in detail in this 
specification and illustrated in the accompanying drawings which form a part hereof, and 
wherein: 

Fig. 1 shows a flow diagram of the user-initiated steps for creating a 
20 printable product, according to a preferred embodiment of the present invention; 

Fig. 2 shows a generally overview of a system arrangement, according to 
a preferred embodiment of the present invention; 

Fig. 3 illustrates an exemplary record for a text element, in accordance 
with a preferred embodiment; 
25 Fig, 4 illustrates an exemplary record for a graphic element, in accordance 

with a preferred embodiment; 
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Fig. 5 A illustrates an exemplary menu of card selections for customization 

and printing; 

Fig. 5B illustrates an exemplary menu of birthday card selections for 
customization and printing; 



Detailed Description of the Preferred Embodiment 

It should be appreciated that while a preferred embodiment of the present 
invention will be described in connection with the creation of a printed product taking the 

15 form of a greeting card, the printed product make take other forms, including but not 
limited to: announcements, banners, business cards, calendars, certificates, craft cards, 
envelopes, gift tags, invitations, labels, message cards, origami, postcards, posters, 
stationary, stickers and other social expression products. The printed product includes 
one or more design elements, including but not limited to: text, graphic/image, audio and 

20 video. The use of greeting cards in describing a preferred embodiment is not meant in 
any way to limit the scope of the present invention. 

Moreover, it should be appreciated that while a preferred embodiment of 
the present invention has been described in connection with the Internet, the present 
invention may be used in conjunction with other computer networks, including other 

25 pubUc computer networks, as well as proprietary/private computer networks. 

As known in the prior art, the World Wide Web (WWW) comprises many 
pages or files of information, distributed across many different server computer systems. 
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5 



birthday card, 



Fig. 5C illustrates basic properties of a selected birthday card; 

Fig. 5D illustrates a web page which displays the assets of a selected 

and provides means for user modification of the assets. 

Fig. 6A illustrates the outside panels (front and rear) of a single fold card; 

Fig. 6B illustrates the inside panels of a single (half) fold card; and 

Fig. 7 illustrates all four panels of a double (quarter) fold card. 
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A wide variety of different types of information may be stored on such pages, and this 
information can be presented to a user's computer system (typically referred to as "client 
computer system") using a combination of text, graphics, audio data and video data. Each 
page is identified by a Universal Resource Locator (URL). The URL denotes both the 

5 server machine, and the particular file or page on that machine. There may be many pages 
or URLs resident on a single server. In order to use the WWW, a client computer system 
runs a piece of software known as a graphical Web browser, such as "Navigator" 
available from Netscape Communications Corporation, or "Internet Explorer" available 
from Microsoft Corporation. "Navigator" is a trademark of the Netscape Communications 

10 Corporation, while "Internet Explorer" is a trademark of Microsoft Corporation. 

The client computer system interacts with the browser to select a particular 
URL, which in turn causes the browser to send a request for that URL or page to the 
server identified in the URL. Typically the server responds to the request by retrieving 
the requested page, and transmitting the data for that page back to the requesting client 

15 computer system (the client/server interaction is performed in accordance with the 
hypertext transport protocol ("HTTP")), This page is then displayed to the user on the 
chent screen. The client may also cause the server to launch an application. Most WWW 
pages are formatted in accordance with a computer program written in a language known 
as HTML (hypertext mark-up language). This program contains the data to be displayed 

20 via the client's graphical browser as well as formatting commands which tell the browser 
how to display the data. Thus, a typical Web page includes text together with embedded 
formatting commands, referred to as tags, which can be used to control the font size, the 
font style (for example, whether italic or bold), how to lay-out the text, and so on. A Web 
browser "parses" the HTML script in order to display the text in accordance with the 

25 specified format. HTML tags are also used to indicate how graphics, audio and video are 
manifested to the user via the client's browser. 
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Most Web pages also contain one or more references to other Web pages, 
which need not be on the same server as the original page. Such references may generally 
be activated by the user selecting particular locations on the screen, typically by clicking 
a mouse control button. These references or locations are known as hyperlinks, and are 

5 typically flagged by the browser in a particular manner (for example, any text associated 
with a hyperlink may be in a different color). If a user selects the hyperlink, then the 
referenced page is retrieved and replaces the currently displayed page. 

A preferred embodiment of the present invention takes advantage of the 
features of the Internet and Internet web browsers. Moreover, a preferred embodiment of 

10 the present invention enhances the utihty of the browser by use of a plug-in program, as 
will be described in detail below. A plug-in program is used to alter, enhance, or extend 
the operation of a parent apphcation program. The idea behind plug-in' s is that a small 
piece of software is loaded into memory by the larger program, adding a new feature, and 
that users need only install the few plug-ins that they need, out of a much larger pool of 

15 possibilities. Browsers such as Netscape Navigator World-Wide Web browser and 

Microsoft Internet Explorer supports plug-ins which display or interpret a particular file 
format or protocol such as Shockwave, RealAudio, Adobe Systems, Inc. PDF, Corel 
CMX (vector graphics). The file to be displayed is included in a web page using an 
EMBED HTML tag. 

20 Referring now to the drawings wherein the showings are for the purposes 

of illustrating a preferred embodiment of the invention only and not for purposes of 
limiting same. Fig. 1 provides a flow diagram of the user-initiated steps for creating a 
printable product, according to a preferred embodiment of the present invention. These 
steps include SELECT CONTENT (step 12) which provides web page displays to the 

25 user for selecting genre, selecting a specific card of the selected genre, and displaying the 
card attributes for the specific selected card. With respect to selection of genre, the user 
is presented with a listing (and optionally descriptions and samples) of available genres. 
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These genres may divided into categories. Examples of genre categories are: Holidays, 
Just Because, Friendship, Love, Birthday, Romantic Events, Baby, To Kids, Life Events, 
Concern & Support, Collections, Inspirational & Religions, Spanish, and Business (Fig. 
5A). Each of the genre categories may be subdivided into one or more subcategories. 

5 For instance, the Holidays category may have such subcategories as Graduation, 
Grandparents Day, Jewish New Year, Boss's Day, Sweetest Day, Halloween, 
Thanksgiving, Hanukkah, Christmas, Kwanza, Hari Raya, New Year's Day, Chinese New 
Year, Valentines Day, St, Patricks Day, Passover, Easter, Secretaries Day, Mother's Day 
and Father's Day. To facihtate selection of the categories and subcategories drop down 

10 selection boxes and/or hypertext links are displayed to the user. In addition, information 
associated with the category/subcategory may also be displayed, such as shown in Fig. 
5B (e.g., date of the holiday, samples or popular card selections for the 
category/subcategory, and thumbnail displays of cards for the category/subcategory). 
Once a specific card is selected by the user, basic display attributes of the selected card 

15 are displayed to the user (Fig. 5C). In a preferred embodiment, these display attributes 
include a card title, cover verse, inside verse and cover graphics. If the user's computer 
does not have the plug-in program for creation of the printed product, the plug-in will be 
installed at step 14. The process will then proceed to step 16 described below. 

SELECT ASSETS (step 16) provides web page displays to the user for 

20 modifying each panel of the card selected in step 12 (Fig. 5D). In this regard, the user is 
prompted to select one of the following panels for modification: (1) front, (2) inside top, 
(3) inside bottom, and (4) back. The graphic elements and text elements appearing on 
each selected panel is displayed to the user. The user may modify the font, point size, 
color and alignment (i.e., right, center, left) for the text elements appearing on each panel. 

25 In accordance with a preferred embodiment, the user highhghts the displayed text to be 
modified, and then selects the desired font, point size, color and aUgnment from a menu 
of drop down selections. 
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Once the assets have been selected, and the user requests printing, the user 
is prompted to enter print parameters, namely, single or quarter fold, and the number of 
copies. The first time the user specifies single fold, the process proceeds to step 18 
described below. This is necessary to properly orient the graphic and text elements for a 
5 particular printer. CARD PRESTT (step 20) prints the single or quarter fold card at the 
user's local printer. For a single fold print job, the outside of the card is printed first, and 
the user reinserts the printed page into the local printer as directed, to print the inside of 
the card. TEST PRINT (step 18) has the user print a first and second test page using their 
local printer, so that the proper orientation for a single fold print job can be determined. 

10 Fig. 6 A illustrates the outside panels (fi*ont and rear) of a single fold card; 

Fig. 6B illustrates the inside panels of a single (half) fold card; and Fig. 7 illustrates all 
four panels of a double (quarter) fold card. 

Referring now to Fig. 2 there is shown a generally overview of a system 
arrangement, according to a preferred embodiment of the present invention. As is well 

15 known to those skilled in the art, a personal computer (PC) 40 may communicate with a 
web server 70 via a computer network (i.e., Intemet) 60. A plurality of different types of 
data may be stored on the web server, including but not limited to, plug-ins 50, "CPT" 
files, thumbnails (which provide a preview of available printable products in one or more 
sizes), design elements (e.g., graphics and text elements), advertising, promotional and 

20 logo data, and bar code data, as will be described in further detail below. 

An appropriate plug-in 50 is downloaded to PC 40 to enhance the 
functionality of browser 42. In this regard, plug-in 50 includes an engine and assembly 
component for creating the printed product (including local printing). One function of the 
engine component is to make selected assets (i.e., design elements) for a printed product 

25 available in the browser such that they can be edited by the user. Such assets may 

include, but are not limited to graphic/image elements, text elements, audio elements, and 
video elements. Editing functions controlled by the plug-in include but are not limited to. 
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modifying text fonts, modifying text point size, modifying text/graphics color, modifying 
text/graphics alignment, modifying text/graphics position within a panel, adding new 
text/graphics elements, deleting text/graphic elements. The editing functions may also 
include those typically found in word processing and design application software. 
5 Additional editing functions suitable to other types of design elements may also be 
provided. 

As mentioned above, plug-in 50 is downloaded to the user' PC 40. As is 
well known to those skilled in the art, browser 42 includes a table of plug-ins that are 
invoked upon specified conditions, and thus extend the functionahty of the browser. For 

10 instance, after plug-in 50 has been downloaded to PC 40, if browser 42 detects a file with 
a .cpt extension, the plug-in related to that file type will be invoked. In a preferred 
embodiment, plug-in 50 includes a plurahty of ActiveX controls that allow browser 42 to 
interpret CPT files, which are downloaded as a compressed binary file. It should be 
understood that the extension "cpt" is selected solely to illustrate a preferred embodiment 

15 of the present invention, and that any suitable identifier could be used to invoke the plug- 
in. 

In accordance with a preferred embodiment of the present invention, plug- 
in 50 is downloaded on demand when it is recognized that the browser accessing web 
server 70 does not already have plug-in 50 installed, or does not have the latest version of 
20 plug-in 50 installed. This auto-detect feature makes it simple for users to have the most 
up-to-date plug-in with the most current enhancements. It should be appreciated that 
various types of compression algorithms may be utilized to speed up the downloading 
process. 

It should be understood that in accordance with a preferred embodiment, 
25 plug-in 50 (in conjunction with browser 42) will include all, or a portion of, the engine 
component and assembly component. Preferably, the menu and assets components will 
reside on web server 70. 
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Referring now to Figs 3 and 4, exemplary database records are shown. 
Fig. 3 illustrates an exemplary record for a text element, while Fig. 4 illustrates an 
exemplary record for a graphic element. In this regard^ a text element record includes a 
record identifier, a category (e.g., birthday card, invitation, calendar, origami, etc.), panel 

5 no. (e.g., for greeting cards there are four panels; two inside the card and two outside the 
card), font, point size, color (e.g., hex - RGB), position information (i.e., identify location 
within the panel relative to one or more reference locations), alignment of the text (i.e., 
left, right and center), and the text string. Likewise, the graphic element record includes a 
panel number, position information, and filename of the graphic. It should be understood 

10 that the foregoing records may include additional fields, including but not limited to print 
format data (e.g., specifying whether the text or graphic element is suitable for printing in 
half-fold and/or quarter fold configurations). This print format data could specify any 
restrictions or options relating to formatting at the time of printing. Alternatively, the 
print format data could be extemahzed and stored separately on the web server. 

15 Web server 70 also may include additional databases for advertising, 

promotional, logo and/or bar code data that is also printed on the printed product. The 
advertising, promotional, logo and/or bar code data may be used in connection with 
several types of printed products. Such records may include an ID field and the display 
information that is to be printed. Additional fields may be provided for each record to 

20 identify the type of printed products and/or the category of printed products. 

Furthermore, records could be provided which specify that external data (i.e., data outside 
the cpt file) is to be added to the printed product firom another source. For example, the 
extemal source data could be an uploaded photograph (e.g., fax gif file) or other graphics 
file that is added to a birthday card. Another example of extemal source data is a 

25 signature graphic. Reference is made to Figs. 6A and 7, which illustrate examples of 
advertising, promotional and logo data that is part of the printed product. 
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Web server 70 pre-assembles the design elements for a printable product 
selected by the user. In this regard, an appropriate CPT file is generated and downloaded 
to PC 40 using plug-in 50. The data in the CPT file is compiled fi-om the design element 
databases. The CPT file includes all the information for the assets of a printable product 

5 (e.g., asset information for all four panels of a greeting card), including the information to 
display the printable product to the user, allow editing of the assets, and assembly for 
printing. Importantly, the display, editing and assembly of the printable product defined 
by the CPT file is performed by plug-in 50. It should be noted that the assembly process 
performed by plug-in 50 includes (but is not limited to) scahng, resizing and division into 

10 panels to accommodate the selected paper fold format (e.g., quarter fold, or half fold). 

It should be appreciated that in accordance with an altemative embodiment 
of the present invention, selected "raw" data (e.g., design elements, advertising, 
promotional, logos, and bar code data) stored in web server 70 which is used to define a 
printable product may be downloaded directly to plug-in 50. In this regard, no 

15 preassembly takes place to form a CPT file. Since all assembly of the design elements 
occurs at the user's PC, this approach will be slower than the preferred embodiment. 

The present invention can be modified to include many additional 
enhancements. For instance, the user can be provided with powerful editing tools to 
manipulate the graphical and text elements of the printed product. In this regard, a user 

20 may add, delete or reposition design elements. Another enhancement of the present 

invention is to allow the user to store the data defining the completed printed product in a 
data file. This data file could then be stored in local storage at the user's PC, stored in a 
portable storage medium (e.g., floppy disk or CD ROM), or stored at a remote location 
(e.g., at the web server). Furthermore, this data file may be attached to an email for 

25 transmission to another party. This portability of the data defining the printed product 
allows for delayed printing and printing at a different location. This also facilitates the 
use of portable (including wireless) web apphances, such as personal digital assistants 
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(PDAs), such as the Palm Pilot, and web phones, to create a printed product at a location 
where there is no printer available, and to print the printable product at a different 
location where a printer is available. 

It should be further understood that the advertising, promotional, logo 

5 and/or bar code data could be added to the data defining a completed printed product that 
is stored and/or transmitted to another location. The bar code could be added prior to 
storing/transmitting the data, or could be added by another plug-in at the remote 
receiver's computer. In this regard, the bar code could be used to identify shipping 
information (e.g., data for matching a product to be deUvered with the printed product, 

10 such as an order of flowers that are to be delivered with a greeting card). Graphics and 
text elements identifying the shipper's name could also be provided. Therefore, the 
present invention also finds utihty in area of remote-remote fulfillment. 

The attached Appendix includes program code listings associated with the 
preferred embodiment of the "plug-in" described above. 

15 The invention has been described with reference to a preferred 

embodiment. Obviously, modifications and alterations will occur to others upon a 
reading and understanding of this specification. It is intended that all such modifications 
and alterations be included insofar as they come within the scope of the appended claims 
or the equivalents thereof 
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Having thus described the invention, it is now claimed: 

1 . A system for on-hne creation of a printable product, the system 

comprising: 

at least one server accessible via a computer network, said at least one 
5 server storing defining data defining a plurality of printable products including one or 
more design elements, and a first program providing modification fimctions for 
modifying the defining data, and assembly fimctions for assembling a printable product 
suitable for printing; and 

a client computer for accessing said server, wherein said at least one server 
10 downloads said first program to said chent computer. 



2. A system according to claim 1, wherein said plurahty of printable 
products includes at least one of: announcements, banners, business cards, calendars, 
greeting cards, certificates, craft cards, envelopes, gift tags, invitations, labels, message 

15 cards, origami, postcards, posters, stationary, and stickers. 

3. A system according to claim 1, wherein said client computer 
includes a browser program for accessing said web server, wherein said first program 
enhances the functionality of said browser program. 

20 

4. A system according to claim 3, wherein said first program controls 
the downloading to the cUent computer of the defining data that defines a selected 
printable product. 



25 5. A system according to claim 1, wherein said defining data defines 

at least one of: graphical elements, text elements, and formatting data associated with the 
graphical and text elements. 
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6. A system according to claim 1, wherein said system flirther 
comprises a printer associated with said cUent computer. 



5 7, A system according to claim 6, wherein said first program 

assembles printing data for printing the printable product on the printer. 

8. A system according to claim 7, wherein said assembly of printing 
data includes at least one of: resizing, scaling, division into panels that anticipate printing 

10 in a desired printing format. 

9. A system according to claim 1, wherein said modification fixnction 
of said first program includes modification to at least one of: font, color, alignment, 
position within a panel, adding a design element, and deleting a design element. 

15 

1 0. A computer usable medium having computer readable program 
code means embodied therein for creating, modifying and printing of a printable product, 
the computer readable program code means comprising: 

means for downloading data defining a printable product fi-om a remote 

20 storage device; 

modification means for modifying the defining data; and 

print formatting means for formatting the defining data for printing. 

11. A computer readable program code means according to claim 10, 
25 wherein said modification means includes means for manipulating one or more design 

elements. 



-15- 



12. A computer readable program code means according to claim 1 1 , 
wherein said design elements includes at least one of: text, graphics, audio and video. 

13. A computer readable program code means according to claim 10, 

5 wherein said print formatting means performs at least of the following functions: resizing, 
scaling, and division into panels associated with a fold format. 

14. A method for generating a printable product using an on-line 
system accessible via a computer network, the method comprising: 

10 storing on a server accessible via the computer network, data defining a 

plurality of printable products including one or more design elements; 

storing on the server a first program providing modification functions for 

modifying the defining data, and assembly fimctions for assembling a printable product 

suitable for printing; and 
15 downloading the first program to a client computer accessing the server, to 

allow for modification and printing of a printable product at the client computer. 

15. A method according to claim 14, wherein said plurality of printable 
products includes at least one of: announcements, banners, business cards, calendars, 

20 greeting cards, certificates, craft cards, envelopes, gift tags, invitations, labels, message 
cards, origami, postcards, posters, stationary, and stickers. 

16. A method according to claim 14, wherein said client computer 
includes a browser program for accessing said web server, wherein said first program 

25 enhances the fimctionaUty of said browser program. 
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17. A method according to claim 1 6, wherein said first program 
controls the downloading to the cHent computer of the defining data that defines a 
selected printable product, 

5 1 8. A method according to claim 14, wherein said defining data 

defines at least one of: graphical elements, text elements, and formatting data associated 
with the graphical and text elements. 

19. A method according to claim 14, wherein said method fixrther 
10 comprises using the first program to assemble printing data for printing the printable 

product on the printer. 

20. A method according to claim 1 9, wherein said step of assembling 
printing data includes at least one of: resizing, scaling, division into panels that anticipate 

15 printing in a desired printing format. 

21 . A method according to claim 14, wherein said modification 
fixnction of said first program includes modification to at least one of: font, color, 
alignment, position within a panel, adding a design element, and deleting a design 

20 element. 
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ABSTRACT 

A system for providing on-line creation of printable products such as, 
announcements, banners, business cards, calendars, greeting cards, certificates, craft 
cards, envelopes, gift tags, invitations, labels, message cards, origami, postcards, posters, 

5 stationary, stickers, and other social expression products. The printable products are 
selectable from a list, and modifiable on-line to provide a user-customized product. The 
customized printable product may be printed at the user's local printer or stored in a file 
for later access. Modifications to the printable product include modification of text 
elements (e.g., formatting, such as font, point size, color, and alignment), and graphical 

10 elements. A plug-in is downloaded to a user's PC to enhance the functionaUty of the 
user's browser to customize and print the printable product. 
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Number or PCT Intemational Apphcation Number . 
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specification, including the claims, as amended by any amendment referred to above. 

I acknowledge the duty to disclose information which is material to patentability as defined in 
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disclosed in the prior United States or PCT hitemational apphcation in the manner provided by 
the first paragraph of Title 35, United States Code, §1 12, 1 acknowledge the duty to disclose 
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APPENDIX 

Inventors: Bruce T. Petro, Andrew Cohen and Jason Sulak 

Title: ON-LINE SYSTEM FOR CREATING A PRINTABLE PRODUCT 
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File: Work\CrtPrt\Stanehnd\Scparagr . h 



Bool ) ; 

void DoForwardBfelete( iong&, 

long, 
Bool ); 

void DoDiscHyphen( long&, 

longSt, 

long, 

scKeyRecordSt, 
Bool ); 

void DoFixSpace( longSc, 

longSt, 

long, 

scKeyRacordSs, 
Bool ); 

void DoCharacter( longSc, 

longS., 
scSpacRun&, 
long. 

scReyRecordSt, 
Bool ); 



:i^ndif 

m 

1-3 

^long IXTStartWord ( CharRecordP, long, int eleminateLeadingSpaces ); 

CBcing IxrEadWord( CharRecordP, long ); 

^Xong TXTStartSelectableWord ( CharRecordP, long ); 

„'&ng 1XrEndS©l©ctabieWord( CharRecordP, long ); 

iMicroPoint UnivStringWidth( stUnivString&, MicroPomt [ ] , TypeSpecS ); 

J^ifdef jis4G51 

Ciool TXTSamaRenMo j i ( CharRecordP start, CharR^cordP chl, CharRscordP ch2 ); 

#else 

inline Bool IXISam^RenMo j i ( CharRecordP, CharRecordP, CharRecordP ) 
{ 

return false; 

} 

#endif 



St » iE ST « 



S S £= a: =S ES 3% s 



sasasssjssrsssa */ 



class scContUnit : public scTBObj { 

scDECLARE^imri ; 
public; 

// use this to allocate new content units where the content unit 
has been overridden on the outside, 
static scContUnit* Allocate ( TypeSpecS spec* 

scContUnit* cu 0, 
long ct - 0 ) ; 



scContUnit (); 

scContUnit ( TypeSpecS spec, 
scContUnit* cu =« 
long ct 0 ) ; 



ilBi Work\CrtPrt\Stonehnd\Scparagr .h 



void WrxteTeKt( scSpecRunSc, 

Bool, 

APPCtKPtr ctKPtr, 
lOFuncPtr writeFunc, 
int charset « 0 ); 

long ReadAPPText( scSpecRunSc, stTest Import Export St ); 

void Writ0APPTest( scSpacRunSc, sties t Import E:^port& ) 

long GetCont^ntSiseC void ) const 

return £HumI terns - 1; 

void SetContentSize( long 

long EKternalSize( void ) const; 

void Read( APPCtsPtr, lOFuncPtr ); 

void Write ( APPCtKPtr, lOFuncPtr ); 

virtual EletnentPtr Lock( void ); 

virtual void Unlock ( void ); 

void Validate C void ) const; 



private ; 
void 



CopyChars( CharRecordP, long, long ); 



#ifdef _RUBI_SUPPORT 



,ZT. void 



void 



void 



void 



void 



BoBackSpace( longSc, 
longS:, 
scSpecRunSc, 
scRubiArray*, 
long, 

scKey Records* , 
Bool ); 

DoForwardDelete( long&, 
longSt, 
scSpecRunSt, 
scRubiArray*, 
long, 

scReyRecordSt, 
Bool ) ; 

DoDiscHyphen( long&, 
longSc, 
scSpecRunS:, 
scRubiArray*, 
long, 

scKeyRecordS:, 
Bool ) ; 

DoFixSpace( lon^St, 
longSc, 
scSpecRiinSt, 
scRubi Array*, 
long, 

scReyRecordSt, 
Bool ) ; 

DoCharacter{ longSc, 
longSc, 
scSpecRun&, 
scRubi Array*, 
long, 

scKeyRecordS, 
Bool ); 



#else 

void DoBackSpace( longS*, 

longSt, 
scSpecRunSt, 
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// copy the contents From startOffset to endOffset into the 
// are scCharArray and then remove them 
void Cut{ scCharArraySf, long, long ); 

// paste the contents of the arg scCharArray into the character array 
// at the indicated array 
void Paste ( scCharArraySc, long startOffset ); 

int FiadStrmeC const stUnivString&^ const SearchStateS., int32. int32. int32Sc ) 

int ReplaceToken( const stUnivStrin9&^ int32, int32£c ); 

int GetToken{ stUnivStrins^, int32, int32 ) const; 

void Insert ( const CharRecordP, long, long ); 

void Insert ( const UCS2», long, long }; 

int Insert ( const stUnivString&. int32, int32 ); 

void CopyCharsC UCS2*, long, long ); 



void 



void 



// transform the indicated characters using the type of 
// transformation passed in. ususally for making 
// alternate characters 

StartOffset, 
endOffset. 
trans . 
numChars ); 



Trans form ( long 
long 

eChXranType 
int 



void 



void 



Retabulate( scSpecRun& 
long 
long 

TypeSpec 
long 

RepairTextC scSpecRunSc, 
long 
long 



specRun, 
start , 
end, 

changedSpec. 
charSize ) ; 



offsetl. 
offset2 ); 



SelectWordC long 
Iong& 
longSt 



offset. 
startWord. 
endWord ) ; 



iifdef _RUBI„SUPPORT 



void 



#else 
void 



#endif 
void 
void 



Charlnsert( long&, 

scSpecEunSt. 
scRubi Array*, 
long, 

scKeyRecord&, 
Bool. 

TypeSpec ) ; 

Charlnsert( longSc. 

scSpecRunS:. 
long. 

scKeyRecord&. 
Bool. 

TypeSpec ); 



WordSpaceInfo( long. MicroPointSc ); 

CharInfo( scSpecRunSc. 
long. 
UCS2S;. 
ulongSt. 
MicroPointS:. 
TypeSpecS:. 
eUnitXypeS; ); 



long 



ReadTeKt( scSpecRunSc, 
APPCtxPtr 
lOFuncPtr 
int 



ctKPtr. 
readFunc. 
charset ^ 0 
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// that is us^d to insure correct update with mono-spaced 
// characters 

scStreamChan^aInfo( ) : 
fColuHm( 0 
fPara( 0 ), 
fOffsetC 0 
f Length ( 0 ){} 



void 



scColumn* 

scContUnit* 

long 

long 
void 



Set( scColunm* col, scContUnit* para, long offset, long leu ) { 



} 



fColumn 
fPara 
fOffset 
fLength 



» coi^ 
para, 
offset, 
len; 



GetColumn( void ) const 
Get Para ( void ) const 
GetOffset( void ) const 

GetLength( void ) const 
SetLength( long len ) 



{ return f Column; } 
{ return fPara; } 
{ return f Off set; } 

{ return fLength; } 
{ fLength len; } 



private : 

scColumn* 
scContUnit* 
long 
long 

1 



f Column; 
fPara; 
f Off set; 
fLength ; 



-^illass PrevParaData { 
"^p^blic: 

l.\ PrevParaData ( ) 

:1 ■ { 

Init(}; 
void Init( void ) 

13 ^ lastLineH « 0; 

J 1 astSpec . c lear ( ) ; 

\h } 

scTestline* lastLineH; 
? Z, Ty peSpec 1 ast Spec ; 

class scCharArray : public scHandleArray { 

scDECLARE^RTTI ; 
public: 

scCharArray () ; 

scHandleArray ( sizeof( CharRecord ) ) 

^ CharRecord ch( 0, 0 ); 

AppendData( (ElementPtr)&ch ); 

} 



// add null terminator 



virtual mt 
UCS2 

void 
void 



IsEqual( const scObjectE ) const; 

GetCharAtOffset( long offset ) const 

{ return ( ( (CharRecordP)GetMem() ) + offset )->character; } 

RemoveEetweenOffsets( long startOffset, long endOffset ); 

// copy the contents from startOffset to endOffset into the 
// arg scCharArray 

Copy( scCharArraySc, long startOffset, long endOffset ) const; 
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/***»*»»»*«»»»»»•**»»«*»»»#**«»*»»»*»**»*«******«**«**«***«******************* 

File: SCPARAGR.H 

$Header: /Projects/Tool box /ct/SCPARAGR.H 3 5/^30/97 8:45a Wmanis $ 
Contains: Method/function interface to class of paragraph 
Written by; Manis 

Copyright (c) 1989-94 Stonehaad Inc.^ of Cambridge, Mk. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

#ifndef „H„SCPARAGR 
#define Ji^SCPARAGR 

#ifdef SCMACIOTOSH 
,#pragina once 
Cifendif 



rlinclude "sctbobj .h" 

!;|knclude "sccharex . h " 

lifenclude "scspcrec.h" 

\iinclude "scmemarr.h" 



'^W///////////////////////'^^ FOI^ARD REFERENCES 



^iifdef _RUBI„SUPPORT 
Mlass scRubiArray; 
'^fendif 



hj 

^Slass 
[class 
[glass 
[glass 
""class 
class 
class 
class 
class 
class 

events that the reformatter returns 



scColumn; 
scCOLRefData; 
scSpecRecord ; 
scMuPoint; 
scAnnotation; 
scLEADRefData; 
stText ImportExport ; 
scTypeSpecList; 
scSpecLocList ; 
scTextl ine; 



typedef enum eRefoxmt Events { 
eNoReformat, 
eNormalRef ormat , 
eRebreak , 

eOver f 1 owGeometry , 
eOverf lowContent 
} eRef Event; 



// no reformatting was performed 
// normal reformatting event 

// rebreak the paragraph, probably for widow/orphan control 
// more text than columns 
// more columns than text 



class scStreamChangelnfo { 
public: 

// these are the paragraph and offset of character insertion 
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#ifndef SCmemset we are in a 16 bit world 

void scFar* scFar scCDecl SCmemset( void scFar* ptr, 

int val, 
long len ) 

^ return „fmemset( ptr, val, (size„t)len ); 
} 

void scFar* scFar scCDeci SCmeinmoveC void scFar* dst, 

const void scFar* src, 
long len ) 

^ return fmeKimove( dst, src, (size„t)len ); 
} 

void scFar* scFar scCDecl SCmemcpy( void scFar* dst, 

const void scFar* src, 
long le^i ) 

^ return f3ii02ncpy( dst, src, (si2e_t)len ); 



g ^ 2- ss :s s =3 



Mnt scFar scCDecl SCmeiacmp( const void scFar* pi, 
|y const void scFar* p2^ 

O long i©» ) 

return „fmemcmp( pi, p2, (size„t)len ); 
«#endif 
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ulong BZ = MemSi2e( obj ); 

hnd - MEMllocHndDebugC S2, filename, line )i 

try { 

void* srcP MemLock ( obj ) ; 
void* dstP = MemLock( hnd ); 
SCmemcpy( dstP, srcP, sz ); 

} 

catch (■•■){ 

MemUnlock( hnd ); 
MemUnlock( obj ); 
throw; 

} 

MemUnlock( hnd ) ; 
MeifiUnlocfcl obj ); 

#eise 

ulong sz « „msize( obj ) - sizeof ( MacHandls 
hnd « MEMAllocHndDebug{ sz. filename, line ); 
try { 

void* srcP » MEMLockHnd( obj ); 
void* dstP = M£MLockHnd( hnd ); 
SCmemcpy( dstP, srcP. sz ); 

} 

catch (...){ 

MEMJnlockHnd( hnd ); 
M£MUnlockHnd( obj ); 

} 

MEMUnlockHnd ( hnd ); 
MEMUnlockHnd( obj 

I'^endif 

:i > 

"•4 else 

hnd = NULL; 
raise_if( I hnd, scERtoem ); 
meinRecordTrackInfo( hnd. filename, line ); 
return hnd; 

#endif /• SCDEBUQ •/ 

scAutoUnlock: :scAutoUnlock( scMemHandle hnd ) 
t £Handle(hnd) 

{ 

#if useSMARIHEAP 

MemLock{ fHandle ); 
#else 

MEMLockHnd( fHandle ); 
#endif 
} 

scAutoUnlock : : ^scAutoUnlock ( ) 
{ 

#if useSMARIHEAP 

MemUnlock( fHandle ); 
^J^eXse 

MEMUnlockHnd( fHandle ); 
#endif 
} 
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#if useSMARTHEAP 
if ( i*obj ) 

ptr = MEMAllocPtrDeibug( reqSise, file, line ); 

& 1 se 

ptr - _dbgMeniReAliocPtr( *obj , regSize, MEM„RESI2EABLE, file, line ); 

#else 

ptr = realloc( *ob j , reqSise ); 
#endif 

raise„if( !ptr, scERRmem ); 
return «obj = ptr; 

} 

scMeinHandle MEMResiseHndDebugf ( scMeisHandle ob j , 

ulong reqSize, 
const char* file, 
int line ) 

{ 

CLoanApp loanApp; 

#xf useSMARIHEAP 
if ( iobj ) 

obj - MEMAllocHndDebug( reqSize, file, line ); 

el se 

obj - _dbgMemReAlloc( obj, reqSize, MEM^RESIZEABLE, file, line ); 

j^^else 

obj = (scMemHandle)reallocC obj, reqSize + si2eof( MacHandle ) )j 
C^ndif 

IZ return obj ; 

^^oid *MEMDupPtrDebue ( void *cbj , const char *filename, int line ) 

H 

|1 CLoanApp loanApp; 
void »ptr; 

C3 if ( !RandomFailure() ) { 
-iii useSMARIHEAP 

..a ulong sz ^ MeinSizePtr( obj ); 

1^ ptr = MEMAllocPtrDebug( S2, filename, line ); 

fj raise„if( ^ptr, scERRmem ); 

SCmemcpy( ptr, obj, sz ); 

~#eise 

ulong sz ^ „insi2e( obj ); 

ptr MEMAllocPtrDebug( sz, filename, line ); 
raise„if( iptr, scERRxnem ); 
SCmemcpyC ptr, obj, sz )i 

#endif 
} 

else 

ptr = NULL; 
raise_if( I ptr, scERRmem ); 
memRecordTrackInfo(ptr, filename, line); 
return ptr; 

} 

scMemHandle MEMDupHndDebug ( scMemHandle obj, const char *filename, xnt line ) 

{ 

CLoanApp loanApp; 
scMemHandle hnd; 

if { !RandomFaiiure{} ) { 

#if useSMARIHEAP 



int gRandofflFailure; randomly fail memory allocations 

static Boolean RandomFailure () 

if ( jgRandomFailure (1 i gStartUpCompleted ) 
return false; 

if ( ( rand() X ^RandomFailure ) ) 
return false; 

e Ise 

SCDebugTrace ( 0, scStringC "RMDOM FAILURE ^d\n" gRandomFailure ); 
return true; 

} 



void* MEMAllocPtrDebugC ulong sz, const char *filenaine^ int line ) 
{ 

CLoanApp loanApp; 
void »ptr; 

raise„if( RandomFailure{ ) , scERHmem ); 

#if useSMARIHEAP 

ptr - „dbgMemAllocFtr( GetPooi( sz sz, 0. filename, line ); 
#else 

ptr ^ mallocC sz ); 
Jendif 

Ih raise_if( !ptr, scERRmem ); 

memRecordTrac}cInfo{ptr, filename, line); 

lU return ptr; 

'I 

r'icMemHandle MEMAUocHndDebug ( ulong sz, const char *fiiename, int line ) 

't^^ CLoanApp loanApp; 
iJ scMeiaHandle hnd; 

^,1 raise„if( EandoinFailure( ) , scERRmem ); 
Ifif useSMARIHEAP 

£l hnd - „dbeMemAlioc( GetHandlePooi () , MEMJ40VEABLE 1 MEM^RESIZEABLE , sz, filename, line ): 
^S^else 

hnd « {scMeinHandle)malloc( sizeof( MacHandle) + sz ) ; 
MacHandle fflacHandle( hnd ); 
* (MacHandle*) hnd ^ macHandle; 
#endif 

raise„if( !hnd, scERRmem ); 
iReniRecordTrackInfo( hnd, filename, line); 

return hnd; 

} 



void* MEMResizePtrDebug( void** oh j , 

ulong reqSize. 
const char* file, 

int line ) 

{ 

CLoanApp loanApp ; 
void »ptr; 
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{ 

#if useSmRIHEAP 

return MemLockC hnd ); 

HacHandle* mh ^ (MaicHaixdle*)hnd; 
return mh->Lock(); 
#endif 

} 



= ass sirs a 



void MEMJnlockHnd{ scMemHandle hnd, int counted ) 

kf useSMARTHEAP 

MemUnlock( hnd ) ; 

MacHandle* mh - (MacHandla*)hnd; 
mh->Unlock{) ; 
#endi£ 

} 



#if SCDEBUG > 1 

void MEMValidate( void *ptr ) 

C| 

,fif useSMARTHEAP 

MEM„POOL pool « PoolOfPtr( ptr ); 

fU if ( pool ) { 

scAssertC MemPoolCheck( pool ) ); 

M ' } 
;i|else 

""tendif 

Q 

'''foid memDumpMetrics 0 

^¥if useSMARIHEAP 
^=|feiif useMACHACK 
rSendif 

inline void meitiRecordTracklnfoC void *ptr. const char *fiiename, int line ) 

{ 

#ifdef MEM^TRACK.ALLOC 

#if useSMARIHEAP 

#else 

#endif 
#endif 
} 

inline void memRecordTracfcInfo( scMemHandle ptr, const char ^filename, int line ) 

lifdef MEMJRACK.ALLOC 

#if useSMARIHEAP 

#else 

#endif 
#endif 
} 

/* -s-a»sswras==sa»asjs:s5=ss!ss»a»»wS5K==2stcas3ssKas»= 
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MacHandle macHdndle( obj ); 

»(HacHandle*)obj ^ macHctndle; 
#endif 

return obj; 

} 

#endi£ /* ISCDEBUG 

void MEMFreePtrC void *obj ) 

{ 

if ( obj 0 ) 
return; 

#if useSMARTHEAP 

MemFreePtr( obj ); 
§else 

£t0b( obj ); 
#andif 
} 

?Aid MEMFreeHnd( scMsKiHandle obj ) 

rn if { obj 0 ) 
return; 

useSMARIHEAP 

raise_if( MemLockCount ( obj ). scERRmem ); 
MefflFree( obj ); 

13 free( obj ); 
„#endif 

A 

rSlong MEMGetSizePtr( const void *obj ) 

IJ if ( obj 0 ) 
[1 return 0; 

#if useSMARIHEAP 

return MemSizePtr( (void*)obj ); 
#else 

return ^msiseC {void*)obj ); 
#endif 
} 

ulong HEMGetSizeHnd( scMeniHandle obj ) 
{ 

if ( obj 0 ) 
return 0; 

#if useSMARIHEAP 

return MemSi2e( obj ); 
#©lse 

return „msize( (void*)obj ) - sizeof ( MacHandl 
#endif 
} 

void *MEMLockHnd( scMeinHandle hnd^ int counted ) 
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hnd = MEMAllocHnd( sz ); 
try { 

void* srcP « MEMLockHnd ( obj ); 
void* dstP « MEMLockHnd( hnd ); 
SCmemcpyC dstP, srcP, sz ); 

} 

catch (...){ 

MEMUttlockHnd{ hnd ); 
MEMUnlockHnd( obj ); 

} 

MEMUniockHnd( hnd ); 
MEMUiilockHM( obj ); 

#endif 

return hnd; 

} 

void *MEMDupObj ( void *obj ) 
{ 

CLoanApp 1 oanApp ; 
void *ptr; 

ulong sz « MEMGetSizePtr ( obj ); 

C3 ptr - MEMAllocPtrC sz ); 
f^i raise„i£( iptr, scERRmeiu ); 
1% SCmemcpyf ptr, obj, sz ); 
return ptr; 

'iiloid* MEMResizePtr( void** obj, ulong reqSize ) 

I CLoainApp loanApp; 
Z^^ void »ptr; 

'-#if useSMARTHEAP 
if ( l*obj ) 

ptr « MEMAllocPtrC reqSize ); 

^ ^ © 1 se 

C3 ptr = MemReAllocPtr{ *ob j , regSize, MEK-.RESIZEABLE ); 

f #else 

if ( l*obj ) 

ptr - malloc( reiqSize ); 

else 

ptr ^ realloc{ *obj, reqSize ); 

#end if 

raise„if{ !ptr, scERRmem ); 
return »obj » ptr; 

} 

scMeraHandie MEMResizeHnd( scMe^andle obj, ulong reqSize ) 

{ 

CLoanApp 1 oanApp ; 

#if useSMAimiEAP 
if ( fobj ) 

obj - MEMAllocHnd( reqSize ); 

el se 

obj » MemReAlloc( obj, reqSize, MEM^RESIZEABLE ); 

#else 

if { iobj ) 

obj - MEMAllocHnd( reqSize )j 

^obj - (scMeinHandle)realloc( obj, reqSize + sizeof{ MacHandle ) } 
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CLoanApp loanApp ; 
scMetnHandle hnd - 0; 

#if useSMARIHEAP 

hnd « MefflAlloc( C}etHcindlePooi{), MEM„MOVEABLE 1 MEM^RESIZEABLE, bz ); 

hnd ^ (scMemHandle)malloc( sizeof( MacHandle) + sz ) ; 

MacHandle macHandle( hnd ); 

*(MatcHandle*)hnd « macHandie; 
#end if 

raise„if( !hnd^ scERPmem ); 
return hnd; 

} 

//void »MEMAllocObj ( ulong size ) 
//{ 

// CLoanApp loanApp; 
// void »ptr; 
// 

// ptr « GetMemManagerO .AllocObj { (si2e„t)size ); 
// raise_if( fptr^ scERRmem ); 
// return ptr; 

//} 

lioid «MEMDupPtr( void *obj ) 

I CLoanApp 1 oanApp ; 
h.1 ^/oid *ptr; 

^1 ulong sz « MEMQetSizePtr( obj ); 

ptr « MEMAllocPtr( S2 ); 
P raise_if( Sptr, scEMmem ); 
SCmemcpyf ptr, obj, sz ); 
return ptr; 

\i 

^IcMemHandle MEMDupHnd( scMemHandle obj ) 

II 

f2 CLoanApp loanApp ; 
scMeinHandle hnd; 

#if useSMARIHEAP 

ulong sz « MemSize( obj ); 

hnd - MEMAllocHnd( sz ); 

try { 

void* srcP = MemLock( obj ); 
void* dstP « MemLock( hnd ); 
SCmemcpy( dstP, srcP, sz ); 

} 

catch (...){ 

MemUnlock( hnd ); 
MemUnlock( obj ); 

} 

MemUnlock( hnd ); 
MemUnlock( obj ); 

#else 

ulong sz - MEMGetSizePtrC obj ); 
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int gStartUpCompleted; 

// KOTE: To understand this you should be aware of the Macintosh memory 
// management as well as the handling of memory m the CApplication class. 
// Read the TCL description of the CApplication class and how it handles 
// the rainy day fund, 

// The stack object CLoanApp tells the application that we can fail this 
// memory reqiiest. We will assume that all other requests cannot fail, 
// That means we must have sufficient memory to service the request. 

// this should really be a CStackObject - unfortunatley the chicken/egg 

// probl^ arises because the init of tcExceptContext calls these routines 

// and CStackObject relies upon tcEKceptContext already existing. 

// The reason we would like it to be a stack object is that if we 

// throw and exception this would reset the memory requests properly. 

// To reset the the memory request flags in the application I will 

// set them when we ignore the exception at the top of the event loop. 

class CLoanApp { 
public: 

CLoanApp { ) ; 

'^CLoanApp ( ) ; 
private : 

CLoanApp : : CLoanApp ( ) 

% 

^aoanApp : : "'CLoanApp ( ) 
Seise 

lint gStartUpCompleted ^ true; 

.^tdefine CLoanApp 
J define loanApp 

I fend if 

#if SCDEBOT < 2 

void *MEMAllocPtr( ulong sz ) 

CLoanApp 1 oanApp ; 
void *ptr; 

#if useSMARlHEAP 

ptr = MemAllocPtr( GetPool ( S2 ), sz, 0 ); 
#else 

ptr ^ malloc( sz ) ; 
#endif 

raise„if( Iptr, scERRmem ); 
return ptr; 

} 

scMemHandle MEMAllocHnd( ulong sz ) 
{ 
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scStrcat( buf, scString( "MEM„VM„MOV£ABLE„BLOCK " ) 
if ( iafo->type & MEMJ/AR^FIXEB^LOCK ) 

scStrcat( buf, scString( "MEM^VAR^FIXED.BLOCK " ) ); 
SCDebu^Traca( 0, scStrmgC "MEM^BLOCK.TYPE Zs\n" buf ); 

SCDebugXrace ( 0, scStrinsC "pagesize ^dxn" )^ info->pageSize ); 

SCBebugTrace ( 0, scString( "floor ^lu\n" info->floor ); 

SCDebueXrace ( 0, scStriagf "ceiling Zlu\n'' )r info->ceiling ); 

SCDebugTrace ( 0, scString( "flags 0K^08x\n" ), info->flass ); 



} 

#entii£ 

void MEMFiniO 
{ 

register i; 

#if SCDEBUG > 1 

MEM^POOL^IlsTFO info; 

SCDebugTraceC 0, 8cString{ "\n\nMemFini : BEGIisNn'^ ) ); 
#end if 

#if MEM^DEBUG 

dbgMemSetDafaultErrorOutputC DB<B4£M„0UTPUr_C0HS0LE , "leakage .out'* ); 
#end if 

O for ( i - 0; i < numPools; i++ ) { 

li. SCDebugXrace ( 0, scStriug{ "Free MemPool - start %d\n" i ); 

!;|if SCDEBUG > 1 

fy MemPoolCheck( pools [i ]. fPool ); 

MemPoalInfo( pools [i ]. fPool , 0, &info ); 
n dbgMemFormatPoolInfoC &info ); 

^ fend if 

rfif MEM^DEBUG 

scAssert( dbgMemReportLeakage ( pools [i ], fPool , 1, UIOT_MAX ) ); 

J#endif 

^^J scAssertC MemPoolFriee( pools [i ] .fPool ) )^ pools [i] . f Pool = 0; 

SCDebugTrace C 0, scString( "Free MemPool - end %d\n\nNn" i ); 

[! } 

f^if SCDEBUG > 1 

SCDebugTrace ( 0, scString( "MemFini : DONE\n" ) ); 
#endif 
} 



=s a r; s: c; r: 

#else 




void MEMInit( scPoolInfo [] 5 

{ 

} 

void MEMFiniO 

{ 

} 

#endif 

#ifdef SCMACIOTOSH 
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register i; 

for ( i « 0; i < numPools; i^-^ ) { 

if ( poolsfi] .fBlockSize pools [i ] .fBlockSzze size ) 
return pools [i 1 .fPool ; 

else 

return pools [i ] .fPool; 

} 

return 0; 

} 



inline MEM^POOL PoolOfPtr( void* ptr ) 
{ 

MEM„POOL^IKfFO info; 

if ( MemPoolInfo( 0, ptr, S:info ) ) 
return info, pool; 

else 

return 0; 

} 

inline int CountPools( scPoolInfo infoPools[] ) 
{ 

register i; 

"^3 for {1^0; infoPools[i^+] .fBlockSize; ) 



return i; 

Void MEMInitf scPoolInfo infoPools[] ) 

4 

f3 register i; 

^"^^ pools = infoPools; 

lU nuiiiPooIs - CountPoolsf pools ); 

for ( i « 0; i < numPools; i++ ) { 
!f if ( pools (ij. fBlockSize ) { 

il pools[i} .fPool « MemPoolInitFS( pools [i ]. fBlockSize, 

1024, 

MEMJOOLJEFAULT ); 
rdise„i£( poolsfi} .fPool 0, scERlmem ); 

} 

else { 

pools [i].f Pool « MemPoolInit( MEM.POOL^BEFAULT ); 
raise_if( poolsfi ]. fPool 0, scERtoeia ); 

} 

} 

} 

#if SCDEBUG > 1 

void dbgMemFormat Pool Info ( MEH„P0OL_IOTO* xnfo ) 
{ 

scChar buf[2561; 

SCDebugTrace( 0. scString( "MElCPOOL^IHFOXn" ) ); 

scStrcpyC buf, scStringt ) ); 
if ( info->type & MEM„FSJLOCK ) 

scStrcat( buf, scString( "MEM„rs„BLOCK " ) 
if ( info->type Sc MEM_VAR_MOVEABLE„BLOCK ) 
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/»«*»»»»»*«*»»»»«»»*»**»»**»»«»*«*»***«*«*»***»****************************** 

File: MEM.C 

SHeader: /Projects/Toolbox/ct/SCM£M.CFP 2 5/30/97 8:45a tenis $ 
Contains: Memory management routines based on our own heap managers 
Written by: Sealy 

Copyright (c) 1989-94 Stonehaml Inc., of Cambridge. M^. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition ToolboK software is the proprietary 
and confidential property of Stonehand Inc. 

*»**«»«»*»**»«*»»***»»***»*«***«*******»*********************** 

#include "scmem.h" 

#if t useSMARTHEAP 

#include <malloc.h> 

..struct MacHandle { 
P const void* f Block; 
int f Count; 

MacHandle ( scMemHandle ptr ) : 
fy fBlock( (char»)ptr -f sizeof( MacHandle ) ), 

\1 f Count ( 0 ){} 

void* Lock( void ) { scAssert{ fCount >» 0 ); fCount++; return (void*)fBlock 
^^'^ void Unlock ( void ) { scAssert( fCount > 0 ); —f Count; } 

Jfendif 

I ^include "scexcept .h" 
{f include <string.h> 

Clif SCDEBU0 > 1 

#inciude <stdlib.h> // for rand 
~ lend if 



#if useSMARTHEAP > 0 

static MEM^POOL hndPooX; 

static mt numPools; 
static scPoolInfo* pools; 

inline MEM^POOL GetHandlePool ( void ) 
return pools f numPools - 1 ].fPool; 

} 



inline MEM POOL GetPool ( si2e_t size ) 
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File: SCmCIKT.H 

SHeader: /Projects/ToolboK/ct/SCMCIOT.H 2 5/30/97 e:45a Wmanis $ 
Contains: Defines for MacIntosh^MPW compile 
Written by: 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



#ifndef _H„SCMACIKIT 
#define .H„SCMACIOT 



Header configuration. To deterttiine if we are using universal headers load types, h and then 
C3* look to see if it has included the universal headers <ConditxonalMacros.h> file. 

^iinclude <Types.h> 

^iilifdef _C0KDITI0HALMACROS_ 
iijdefine USEUKIVERSALHEADERS 1 
a Jifelse 

"idefine USEUlsriVERSALHEADERS 0 
^"fendif 

"#if UBEIMIVEI^SALHEABERS ScSc [defined (USESROUTMEDESCRIPTORS) 

:#def ine USESROUIINEDESCRIPTORS 1 

y^ndif 

SYSTEM II:5CLUDES */ 
Jfinclude "StdDef.h" 

ff/#include <OSUtils,h> 
^':?/#include <£vents.h> 

//#include <limits.h> 

#include <string.h> 

//#include <ma th.h> 



// memory model stuff - for intel only 
#define scNEAR 
#define scFAR 
#define SChuge 

//volatile is not supported by MPW 
#define volatile 



#def ine SCTickCount ( ) (TickCount { ) ) 

#define SCSysBeep (duration) (SysBeep{ (int ) (dnr&tion))} 



#endif /* .H^SCMACIOT.H */ 
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uchar* 



const uchar* 



BufSet„REALC uchar 
REAL 

eByteOrder 

BufGet_REAL( const uchar 
REAL& 
eByteOrfer 



rbuf [12], 
r, 

desir^dByteOrder ) 

rbuf [12]. 
pr, 

foyteOrder ) ; 



void 



void 



void 



void 



// the follow an^ not good for 
// writing out alot of data, but for a long 
here are there they are goo 
ReadLoiig( longSt, 

APPCtKPtr, 
lOFuacPtr, 
eByteOrder ) ; 

// a quick way of writing out a long 
WriteLong( long, 

APPCtKPtr, 
lOFuncPtr, 
eByteOrder ) ; 

ReadBytes( uchaar*, 

APPCtsPtr, 
lOFuncPtr, 
long ); 

WriteBytes( const uchar*, 
APPCtKPtr, 
lOFuncPtr, 
long ); 
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Pg: 1 



File: pfileio.h 

SHeader: /Projects/ToolboK/ct/SCFIL£IO.H 2 5/30/97 8:45a Wmanis $ 
Contains: Independent byte order calls. 
Written by: Coletti 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, Mh. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

«»»»*»»»»»»»»»»*»»**»*«»*«»»*»****»*»»»*«***»»**»«•**»**»»***»**/ 

#ifndef „H.PFILEIO 
#define _H„PFILEIO 

#include "sctypes.h" 



typedef enum eByteOrders { 
1 3 kHoOrder « 0^ 

kIntelOrder 1> 
22 kMotorolaOrder « 2 
^^"1 eByteOrder; 



; typedef uchar REALBUF[i2]; 
^typedef uchar ByteOrderStr[8] ; 



'fdefine kShortBufSize 2 
^ #define kLongBufSize 4 



uchar* 
^^onst uchar* 



BufSet„byteorder ( uchar [] ); 

Buf Get^byteorder ( const uchar[}, short* ): 



^Sichar* 



const uchar* 



uchar* 



const uchar* 



uchar* 



const uchar* 



BufSet_char( uchar* 

const uchar* 

size„t 

eByteOrder 

BufGet„char( const uchar* 
uchar* 
size_t 
eByteOrder 

BufSet„short( uchar 
ushort 
eByteOrder 

Buf Get_short ( const uchar 
ushortS 
eByteOrder 

BufSet_long( uchar 
ulong 

eByteOrder 

BufGet_long( const uchar 
ulongS 
eByteOrder 



dstbuf , 
S3rcbuf , 
bytes, 

desiredByteOrder ); 

srcbuf , 
dstbuf , 
bytes , 

fayteOrder ) ; 

sbuf [2], 
s, 

desiredByteOrder ) : 

sbuf {2], 

byteOrder ) ; 

pbuf[4], 
1, 

desiredByteOrder )j 

Ibuf [4], 
pi, 

byteOrder ) ; 
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File: SCGLOBDA.C 

SHeader: /Projerts/IoolboK^ct/SCGLOBDA.CPP 2 5/30/97 8:45a Wmanis $ 
Contains: Global data^ which should be gone soon! 
Written by: Manis 

Copyright (c) 1989-94 Stonehand Inc.. of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an adinission or acknowledgment that publication 
has occurred or constitute a waiver o£ confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

#include "scescept.h" 

#include <string.h> 
#include "scmem.h" 

#include "scglobda.h" 

#include "scparagr.h" 
iij^include "sccolumn.h" 
J^include "sctestli .h" 

l^cDEFIHE„Rm ( scTBObj. scObject ); 
f'^cDEFINE„RTri( scCoiumn. scTBObj ); 
; ^cDEFIME^RTII ( scTeKtline, scTBObj ); 
^"^cDEFIKE^RTTI ( scContUnit, scTBObj ); 

-'#cDEFINE_ABSTRACT„RTri{ scAbs tract Array, scObject ); 
^'•jcDEFIlsiE^RTri ( scHandleArray , scAfostractArray 
"scDEFI]sIE„Rm( scMemArray, scAbs tract Array ); 
^ scDEFIME^RTIIC scCharArray, scHandleArray ); 

S J 

j: e:har »SCS„Copyright « "Copyright (c) 1988-1994 Stonehand Inc. All rights reserved. 

l^reakStruct gbrS; 
£^lofoalColumnStruct ggcS; 
JScStreamChangelnfo gStreamChangelnfo; 

Bool gHiliteSpaces; // hi lite trailing spaces at the end of a line 

long scLogUnitsPerPiKel ==20; 
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MicroPpint totalTrailingfSpace; 

long theLineCount; 

Bool firstGiue; 

Bool firstBoK; 

Bool allowHy^phsns; 

Boo 1 all ow Jus t i £ ica t ion ; 

Bool fNoStartline; /* true if previous char was */ 

/» starting punctuation 

MicroPoint fLastHangable; /* width of last character that was hangable */ 

short numTargetChars; /* num target chars rubi applied to */ 

short 1 i neHyphenated ; 



/* this the setting for the line based upon 
» the first spec found on the line or a quad 
* character 
*/ 

eXS Ju St e f f ect i veRag ; 



/* if the column has horz flex we 

* fit all the line flash left and 

* then reposition all the lines 

eTSJust colShapeRag ; 

C3 scColumn *theBreakCoiH; 

*I DropCapInfo dclnfo; 

MicroPoint doLastBaseline; 

f\ ^ 

=;,j /* true if this line contains a drop cap «/ 

Bool dcSet; 

""4 /* we found a character indent char on this line »/ 

f3 Bool foundChar Indent:. 

^qlass GlobalColumnStruct { 
!fublic: 

?2 GlobalColumnStruct { ) 

n } 

'"GlobalColumnStruct ( ) 
{ 
} 

TypeSpec def aul tSpec ; 

/» this is the current column we are breaking in *^ 
scCo 1 umn* t heAc t i veCo IH ; 



/*»»*«*»*»♦«**»*»** 



*«**««»»**««»«*«**««*»»*««»******»*****»***«*****»***/ 



extern BreakStruct 
extern GlobalColumnStruct 
extern scStreaiuChangelnfo 

extern Bool 



gbrS; 
ggcS; 

gSt reamChange I n f o ; 



gHiliteSpaces; hilite trailing spaces at the end of a line 



#endif /* _H_SCGLOBDA */ 
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void 



scSpecRecord* 
scLEADRefData 
scXEect 
scAngle 



scMaKLineValsO : 

fOblique{ 0 ) {} 
Init( void ) 

{ fSpecRec « 0; fMsKLead . Init ( scFlowDir( eRomanFlow ) ) 

fMa5£lnkEs:tents.Set( 0, 0, 0, 0 ); f Oblique « 0; } 
f SpecRec ; 
fMasLead ; 
CMazInkExtants; 
fObligue; 



enum eBreakEvent { 
start„of„iine, 
in-line, 

measure^sKceeded , 
©nd_of„stream„reached 

}; 

t3^edef eBreakEvent (*BrFunc)( void ); 



class BreakStruct { 
public: 



void 

BrFunc* 
CaadBreak* 



BreakStruct ( ) ; 
""BreakStruct ( ) ; 

Init(); 

breakMach; 
candBreak ; 



// CURRENT BREAK POINT STATE 
CandBreak cB; 

scMemHand 1 e brkL i neVa 1 sH ; 

// a list of max line vals for each spec on the line */ 
scMaKL i neVa Is* f MaxL i n eVa 1 s ; 

zero this and make sure it stays that way */ 
~ fZeroMasLineVals; 



scManLineVals 

CharRecoirdP 

TypeSpec 

scSpecRecord* 

MicroPoint 
MicroPoint 
MicroPoint 
GlyphSiae 

MicroPoint 
MicroPoint 
MicroPoint 



MicaroPoint 

GlyphSi2e 

MicroPoint 



gStartRec ; 

pspec„; 

theSpecRec; 

tmpMinGlue; 
tmpOptGlue; 
tmpMaKGlue; 
letterSpaceAdj ; 

originalMeasure; 
desiredMeasure ; 
hyphenationZone ; 

/* length of last line set, for ragged setting */ 

lastLineLen; 

justSpace; 

theLineOrg; 



y* space set by character indent */ 
MicroPoint charlndent ; 

MicroPoint ' minRelPosition; 

/* we need local values of this in case 
« the spec changes on the line 
*/ 

MicroPo i n t brkLe f tMarg in; 

MicroPoint brkRightMargin; 
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/»**»*«»»**»«»»***»**»***««*»»*«***»»*********«****************** 

File: SC6L0BDA.H 

$Heeider: /Projects^Toolbox/ct/Scglobda .h 2 5/30/97 8:45a V^anis S 
Contains: Global data. 
Written by: Lucas 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge^ Mk. 
Ml rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition ToolboK software is the proprietary 
and confidential property of Stonehand Inc. 

**»««»•»»»»»»»»»»«*»***«««***»«**»**»*«**»»****»•***************/ 

#ifndef .H.SCGLOBDA 
#define „H„SCGLOBDA 

#ifdef SCMACIHTOSH 

#pragiRa once 
#endif 

Ciinclude "sctypes.h" 

if include "scselect.h" 

JSinciude "scsetjmp.h" 
^;*;|/#include *'scvalue.h" 

filinclude "scspcrec.h" 

-.finclude "screfdat.h" 

;".#include "scparagr.h" 



J^»»*»»»*»**«»»»*«*««»«»»»»»**«»«**»«*«*«*»«»*»«»*****»««*»»«*»***»**»***»/ 

l^* FOR USE IN THE LINE BREMER */ 



Lj:lass CandBreak { 
r Jublic: 

P long 
fi long 



breakCount ; 
startCount ; 
streamCount; 



ushort 


wsSpaceCount ; 


/* 


ushort 


spaceCount; 


/« 


ushort 


trail ingSpaces; 


/* 


ushort 


chCount ; 


/» 


ushort 


filiSpCount; 


/^# 


int 


lineVal ; 


/* 


eBreakXype 


breakVal; 


/« 


MicroPoint 


minGlue; 


/* 


HicroPoint 


optGlue: 


/* 


MicroPoint 


masGlue; 


/* 


MicroPoint 


curBox ; 




MicroPoint 


fHangable; 


/» 


CharRecordP 


theChRec; 


/* 


short 


specChanged; 


/* 


TypeSpec 


spec; 


/« 


scSpecRecord »specRec; 






CandBreak ( ) ; 




void 


Init{); 





/* the count */ 

/* stream count at start of line */ 

/* stream count from start of this line */ 



# of trailing spaces »/ 



CandBreakS: operator«( const CandBreakSc )j 



class scMaxLineVals { 
public; 
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Translate ( 0, -RLUJASEfmTop ); 

} 

void scRLURect: :RLURomanBaseLineToMiddle( void ) 
{ 

Translate { 0, -"RLU_BASEfmTop/2 ); 

} 

void scRLURect: :RLURomanBaseLineToBottom( void ) 

^ Translate ( 0> RLU„BASEfmBottom ); 
} 

#if 0 

void RectTest( ) 
{ 

scXRect Krect{ IQO, 100, 200, 200 ); 
scMuPolnt ptl; 

scMuPoint pt2; 

ptl,K 20; 
ptl.y « 80; 

^ pt2 - ptl; 

Krect.FourthToThird( 1000 ); 
fU srect.ThirdToFourthC 1000 ); 

;1 ptl.FourthToThird( XOOO ); 
ptl.ThirdToFourth( 1000 ); 



ptl.FourthToThird( 100 ); 
ptl.ThirdToFourthC 100 ); 



i:\ ptl.FourthToThird( 200 ); 
•'f ptl.ThirdToFourthC 200 ); 

f5 ptl.FourthToThird( 500 ); 
pti.ThirdToFourth( 500 ); 



scAssert( ptl «^ pt2 ); 

} 

#endif 
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void scRLURect: : Invalidate ( ) 
{ 

Set( SHRT_MAX, SHRT_MflX, SHRT_MIN, SHRT_MIN ); 

} 

void scRLURect: :Transl ate ( RLU h, RLU v ) 
{ 

rluRight « rluRight + h; 
rluLeft « rluLeft + h; 
rluTop ^ rluTop + v; 

rluBottom * rluBottam + v; 

} 

void scRLURect: :FirstToFoTirth( RLU ) 
{ 

rluTop « -rluTop; 

rluBottom -rluBottom; 

} 

void scRLURect: :FourthToFlrst( RLU ) 
{ 

.^:r^^ rluTop ^ *-rluTop; 

rluBottom - -rluBottom; 

t 

^^^&id scRLURect: :RLURomQaBaseLineToCenter( void ) 

|{| 

;i rluRight = (rluRi0ht - rluL0ft)/2; 
„2 rluLeft « Q - rluRight; 

g //use bottom as temp variable to save height 

}^,^ rluBottom ^ riuTop - rluBottom; 

rluTop « scBaseRLUsystem - ( rluTop + RLU_BASEfmBottom) ; 

^4 rluBottom « rluTop + rluBottom; //Bottom has character height 

II 

fgoid scRLURect : :RLURomanBaseLineToLeft ( void ) 

1 

rluRight ^ (rluRight - rluLeft); 
riuLeft ^ 0; 

//use bottom as temp variable to save height 
rluBottom = riuTop - rluBottom; 

rluTop = scBaseRLUsystem - ( rluTop + RLU„BASEfmBottom) ; 

rluBottom « rluTop + rluBottom; //Bottom has character height 

} 

void scRLURect : :RLURomanBaseLineToRight( void ) 
{ 

rluLeft 0 - (rluRight - rluL^ft); 

rluRight ^ Q; 

rluBottom = rluTop - rluBottom; //use bottom as temp variable to save height 
rluTop - scBaseRLUsystem - { rluTop + RLU_.BASEfmBottom) ; 

rluBottom rluTop rluBottom; //Bottom has character height 

} 

void scRLURect : :RLURomanBaseLineToTop ( void ) 
{ 
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void scXRect: :FourthToFirst( MicraPoint d ) 
{ 

#if SCDEBUG>2 

scAssert( Valid () ); 
#eRdif 

yl d; 
y2 d; 

#if SCD£BUG>2 

scAssert( Valid () ); 
#endif 

} 




scRLURect : : scRLURect ( ) 

^ // in an attemp to insure that we can freely convert 

iJ // back and forth between these we do the following text 

scAssert( sizeof( scRLURect ) — sizeof{ RLU ) * 4 ); 

InvalidateO ; 

"i 

'JcRLURect: : scRLURect ( const scRLURectSc rlurect ) 

CI 

rluLeft = rlurect.rl^Left; 
L rluTop =« rlurect .rluTop; 

rluRight rlurect .rluRight; 

'-J rluBottom « rlurect .rluBot torn; 

"^ioid scRLURect: : Set { RLU left, RLU top, RLU right, RLU bottom ) 

rluLeft - left; 

rluTop = top; 

rluRight * right; 

rluBottom * bottom; 

} 



Bool scRLURect: : Valid ( eC oordSys tern coord Sys ) const 

^ switch ( coordSys ) { 
case eFirstQuad: 

return rluLeft <= rluRight rluTop >= rluBottom; 
case eSecondQuad: 

return rluLeft rluRight &St rluTop >= rluBottom; 
case eThirdQuad: 

return rluLeft >« rluRight £c& rluTop <- rluBottom; 
case eFourthQuad: 

return rluLeft <« rluRight rluTop <- rluBottom; 

} 

return false; 
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#if SCDEBUG>2 

scAssert( Valid() ); 
#endif 

ptl.K « x2; 
ptl.y ^ yl; 

ptl.FourthToThirf( w ); 

pt2.K = xl; 
pt2.y - y2; 

pt2.FourthToThird( w ); 

k1 pti.s; 
yl = ptl.y; 

y2 - pt2.y; 

#if SCDEBUG>2 

scAss&rt( Valid () ); 
#endif 
} 

void scXRect : :ThirdToFourth( MicroPoint w ) 
{ 

13 scMuPoint ptl, 
- "'^ P"*- 2 ' 

CSif SCDEBUa>2 

fij scksserti Valid () ); 

^ #endif 

ptl.x « si; 
ptl.y ^ y2; 

ptl.ThirdToFourth( w ); 

13 pt2.x = k2; 
\j pt2.y = yl; 

pt2.ThirdToFourth( w ); 

r1 si =^ ptl.s; 
yl - ptl.y; 

s2 * pt2.K; 
y2 ^ pt2.y; 

#if SCDEBUG>2 

scMsert( Valid () ); 
#endif 
} 

void scXRect: :FirstToFourth( MicroPomt d ) 
{ 

#if SCDEBUG>2 

scAs8ert( ValidO ); 
#endi£ 

yl = -yl; 
y2 = -y2; 

#if SCDEBUG>2 

scAssert( ValidO )' 
#endif 

} 
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#if SCDEBUG > 1 

scChar* scXRect : :DebugStr ( scChar* buf, int factor ) const 

wspriSi^^^^ "(%d, Zd. %d)'' ), Kl / factor, yl / factor, z2 / factor, y2 / facto 

r ); 

sprintfC buf, scStrin0( "(%d, %d, %d. XdY ), si / factor, yl / factor, k2 / factor, y2 / factor 

); 
#[andif 

return buf ; 

} 

#endif 

Bool scXRect: : Valid ( eCoordSystem coordSys ) const 

^ switch { coordSys ) { 
case eFirstQuad: 

return k1 <- x2 ScSc yl y2; 
case eSecondQuad: 
13 return xl >« x2 Sc& yl >» y2; 

1,1 case eThirdQuad; 

return kI x2 yl <« y2; 
case eFourthQuad: 
fy return k1 <- k2 yl <- y2; 

^3 } 

■t.i return false; 



!void scXRect: : Scale ( TeaThousandth factor ) 

'^'#if SCDHBUG>2 

scAssert( Valid() ); 
?'fendif 

n Kl « scRoundMP( (REAL)xl * factor / 10000.0 ); 
x2 - scRoundMP( {REAL)k2 * factor / 10000.0 ); 
yl « scRoundMP( (REAL)yl * factor / 10000.0 ); 
y2 = scRoundMPt (REAL)y2 » factor / 10000.0 ); 

} 

void scXRect: : Scale ( REAL factor ) 
{ 

#if SCDEBUG>2 

scAssert{ Valid () ); 
#endif 

2£l - scRoundMP( (REAL)Kl * factor ); 
x2 « scRoundHP( (REAL)k2 * factor ); 
yl - scRoundMP( (REAL)yl » factor ); 
y2 « scRouixdMP{ (REAL)y2 * factor ); 



void scXRect : :FourthToThirdC MicroPoint w ) 
{ 

scMuPoint pti, 
pt2; 
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File: SCHRECT.C 



$Header: /Projects/Ioolbox/ct/SCHRECT.CPP 2 5/30/97 8:45a Wtnanis $ 
Contains: 

This file duplicates xn high res rectangles the 

'Calculations on Rectangles' described in Inside MAC 1-174 



Written by: Manis 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc, 

**»**»«»«**«»«***********«**»***««»*********************************" 

#include "sctypes.h" 

Clif defined ( „MSC_VER ) 

Q #pragiKa warning (disable: 4244) // disable - int conversion 

^^ndif 



void scMuPoint: :FourthToThird( MicroPoint w ) 

U 

MicroPoint sPriiae, 
'■J yPriiae; 

7^ scAssert( k != kInvalMF 11 y 1 klnvalMP ); 

13 KPrime = y; 

yPrime «= w - k; 

X * xPrime; 

V ^ yPrime; 

} 



void scMuPoint: ;ThirdToFourth( MicroPoint w ) 
{ 

Mi croPo int KPrime, 
yPrime ; 

scAssert{ x 1= klnvalMP || y kInvalMF ); 

KPrime « w - y; 
yPrime = 
s - sPrime; 

y yPrime; 

} 



/* 
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eByteOrder byteOrder ) 

uchar fouf[4]; . 
r6ise„if( (*readFunc) ( ctKPtr, buf, 4 ) !- 4, scERRfile ); 
ulons uval; 

Buf Get^long ( buf, wal, byteOrder ); 
val '= (long) uval; 



/* 



write a quick long 



void WriteLong( long val^ 

APPCtKPtr ctxPtr, 

lOFuncPtr wri teFunc , 

eByteOrder byteOrderr ) 



{ 



uchar buf [4] ; 

BufSet_long( buf, vaU byteOrder ); 
raise.ifC (*writeFunc) ( ctxPtr, buf, 4 



) I* 4, scERRfile ); 



«/ 



void ReadBytes( uchar* buf, 

APPCtKPtr ctsPtr, 

lOFuncPtr readFunc, 
tl long numbytes ) 

,n 

2- raise if( (*readFunc)( ctxPtr, buf, numbytes ) 1= numbytes, scERRfile ); 



i^^jcsid WriteBytes( const uchar* buf, 

H APPCtxPtr ctxPtr, 

12 lOFuncPtr writeFunc, 

long numbytes ) 

?3 raise 2f{ (*writeFunc) ( ctxPtr, (void*)buf, numbytes ) I- numbytes, scERRfxle 
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1 ong tendedR^p [ 3 ] ; 
CvtFloat64To96( eKtendedRep , ); 
SCmefficpy( rbuf, ©KtendedRep, 12 ); 

} 

raise ( scERRnotlmplemented ); 

break ; 

default : 

sctesert I 0 ) ; 
break; 

} 

return rbuf + 12; 





/• write out a REAL to a byte buffer */ 

uchar* BufSet„R£AL( uchar rbuf [12] 

REAL d, 
eByteOrder ) 



{ 



switch ( local By teOrder ) { 

case kIntelOrder: 

//^ convert intel long double to bytes 
IntelDoubleToBytes( rhuf, d ); 
break; 

case kMotorolaOrder: 

// convert motorla long double to bytes 
MotorolaDoubleToBytes( rbuf, d ); 
break ; 

default: 

scAssert( 0 ); 
break; 

} 

return rbuf -i- 12; 



1^* 

Lf* read in a REAL from a byte buffer *y 

'^i:onst uchar* BufGet„REAL( const uchar rbuf [12], 

REAL6< r, 
eByteOrder ) 



{ 



switch ( localByteOrder ) { 
case kMotorolaOrder: 

BytesToMotorolaDouble( (uchar *)rbuf, r ); 
break; 

case kIntelOrder; 

BytesToIntelDoubie( (uchar *)rbuf, r ); 

break ; 
default: 

break; 

} 

return rbuf + 12; 



} 



/« 



// write a quick lon^ 

void ReadLong( long& val, 

APPCtKPtr ctxPtr, 
lOFuncPtr readFunc^. 
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static const uchar* BytesToMotorolaDouble( const REALBIJF 



rfouf , 
r ) 



uchar 



*ptr 



(uchar »)Str; 



switch ( sizeof( REAL ) ) { 
case 12: 

SCmemcpy( ptr, rbuf, sizeof ( REAL ) ); 
break; 



#if 0 

|;#else 
i^iendii 



} 



case 10: 
ptrfO 
ptr[l 
ptr[2 
ptr[3 
ptr[4 
ptr[5 
ptr[6 
ptr[7 
ptr[8 
ptr[9 
break ; 

case 8: 



rbuf [0]; 
rbuf [i]; 
rbuf [4]; 
rbuf [5]; 
rbuf [6]; 
rbuf [7]; 
rbuf [8]; 
rbuf [9]; 
rbuf [10]; 
rbuf [11]; 



// Convert ©Ktended representation to 64 bit IEEE format 
{ 

long eKtendedRep[3] ; 

SCmemcpy( entendedRep, rbuf, 12 ); 

CvtFloat96To64( r^ extendedRep ); 

} 

raise ( scERRnot Imp lamented ); 

break; 
default: 

scAssert { 0 ) ; 
break ; 



return rbuf + 12; 



static uchar* MotorolaDoubleToBytes( REALBUF rbuf, 

REAL r ) 



*/ 



{ 



uchar 



*ptr 



(uchar *)&r; 



switch ( sizeof ( REAL ) ) { 
case 12: 

SCmemcpy( rbuf, ptr, sizeof ( REAL ) ); 
break; 



#if 0 



case 10: 
rbuf [0 
rbuf [1 
rbuf [2 
rbuf [3 
rbuf [4 
rbuf [5 
rbuf [6 
rbuf [7 
rbuf [8 
rbuf [9 
rbuf [10] 
rbuf [11] 
break; 



- ptr[0]; 

- ptr[l]; 

- ptr[0]; 
« ptr[l]; 

- ptr[2]; 
« ptr[3]; 

- ptr[4]; 
« ptr[5]; 
= ptrI6]; 
= ptr[7]; 

« ptr[8]; 
ptr[9]; 



case 



// Convert 64 bit representation to asrtended 
{ 
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return abuf+4; 

} 

/» ^ */ 

static const uchar* BytesToIntelDoubl^ ( const REALBUF rbuf, 

REALS. r ) 

{ 

uchar *ptr - (uchar »)&r; 

switch ( siseof( REAL ) ) { 
case 10: 

ptr[9] » rbuf[2]; 

ptr[8] - rbuf[3]; 

break ; 
case 8; 

break ; 
default: 

scAssert ( 0 ) ; 

break ; 

} 

ptr[7] - rbuf[41; 
ptr[63 - rbu£[5]; 
ptrfS] « rbuf[6]; 
ptr[4] ' rbuf[7]; 
ptr[3] « rbuf[8]; 
ptr[2] - rbuf[9]; 
ptrtl] « rbuf[10]; 
ptr[0] - rbuf[ll]; 

return rbuf + 12; 



-7* 



static uchar* IatelDoubleToBytes( REALBUF rbuf, 

REAL r ) 



{ 



uchar *ptr - (uchar *)£cr; 

switch( si2:eof( REAL ) ) { 
case 10: 

rbuf[0] « ptr{;9]; 

rbuf[i] - ptr[83; 

rbuf [2] - ptr[9]; 

rbu£[3] - ptr[8]; 
break; 

case B; 

rbuf[0] « ptr[7]; 

rbuf[l] = ptr[6]; 

rbuf [2] « ptr[7]; 

rbuf [3] - ptr[6]; 
break ; 

default: 

scAssert ( 0 ) ; 
break; 

} 

rbuf[4] « ptr[7]; 
rbuf [5] « ptr[8]; 
rbuf [6] - ptr[5]; 
rbuf[7] = ptr[4]; 
rbuf [8] = ptr{3]; 
rbuf [9] - ptr[23; 
rbufJlO] = ptr[l]; 
rbuf [11] « ptr[0]; 

return rbuf + 12; 
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*pfouf - (uchar)SC„I2M„MKW0RD((uchar*)&s); 
break; 

case kIntelOrder: 

»pbuf = (uchar)SC„M2I„MKW0RD((uchar*)&s); 
break; 



} 



default: 

«(ushort*)pbuf 



} 

else 

*Cushort*)pbuf = s; 
return pbuf + sizeof( ushort ); 



/» ^ 

// read out a short from a byte buffer 

const uchar* BufGet_short ( const uchar abuf[2], 

ushort^t s r 

eByteOrder byteOrder ) 

^ if ( iocalByteOrder !- byteOrder ) 
s - (ushort)SCPIO„MKWORD(abuf); 

else 

s = * (ushort* )abuf; 
;2 return abuf-t-2; 



write out a long to a byte buffer 

'^^char* BufSet„long( uchar pbuf [4]^ 

ulong 1^ 

f=l eByteOrder desiredByteOrder ) 



if { desiredByteOrder !- IocalByteOrder ) { 

switch { desiredByteOrder ) { 

case kMotorolaOrder: 

*(ulong*)pbuf - SC_I2MJdKL0HG( (uchar* )&1) ; 
break ; 

case k Intel Order: 

»(ulong*)pbuf « SC_M2I„MRLONG({ucha3r*)Scl); 
break; 



} 



default: 

*( (ulong* )pbuf) - 1: 



} 

else 

*{(ulong*)pbuf ) « 1; 
return pbuf + si2:eof( ulong ); 



/« 

read out a long from a byte buffer */ 

const uchar* BufGet_long( const uchar abuf[4], 

uZong& 1 r 

eByteOrder byteOrder ) 

^ if ( IocalByteOrder I* byteOrder ) 
1 - SCPIOJdKLOHG(abuf); 

else 

1 = »(ulong*)abuf ; 
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static short local By teOrder kMotorolaOrder; 



#define SCPIO.MKWORD 
#define SCPIO^MKLONG 

#endif 



SC_I2M„MKW0RD 
SC I2M„MKL0m 



#ifndef SCPIO.MRWORD 

#error "A Processor architecture needs to be defined" 
#endif 





/* 

code for creating the header 

uchar* BufSet_byteorder( uchar pfouf [] ) 

^ SCmemsetC pbuf, 0^ sizeof{ ByteOrdarStr ) ); 

strcpy( (char*)pbuf, byteOrderStrllocalByteOrder] ); 

return pbuf + sizeof( ByteOrderStr ); 

} 



/y code for extracting the header 



const uchar* Bu f Get„byt ©order ( const uchar pbuf[], 

short* byteOrder ) 

if ( !strcmp( (char *)pbuf, byteOrderStr [kMotorolaOrder] ) ) 
It *byteOrder ^ kMotorolaOrder; 

^} else if ( istrcmp( (char *)phuf , byteOrderStr[kIntel Order] ) ) 
fU *b3rteOrder ^ kIntelOrder; 

L.. 1 else 

y'^- «byteOrder ^ kMoOrder; 

return pbuf + sizeof( ByteOrderStr ); 



'4 



lichar* BufSet_char( uchar* dstbuf, 

const uchar* srcbuf, 

s.l size_t bytes, 

eB3rte03rder ) 

H 

ri SC!neDamove( dstbuf, srcbuf, bytes ); 
I'i return dstbuf 4- bytes; 

H 



const uchar* 



} 



Buf(jet„char ( const uchar* 
uchar* 
size^t 

eByteOrder ) 



SCmeHimove( dstbuf, srcbuf, bytes ); 
return srcbuf -4- bytes; 



srcbuf , 
dstbuf.. 
bytes , 



// write out a short to a byte buffer 
uchar* 



{ 



Buf Set_short ( uchar 
ushort 
eByteOrder 



pbuf [2], 
s, 

des 1 redBy teOrder ) 



if ( des i redBy teOrder local ByteOrder ) { 
switch ( des i redBy teOrder ) { 
case kMotorolaOrder: 
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File: pfileio.c 

$ffeader: /Projects/Toolbox/ct/SCFILEIO.CPP 2 5/30/97 8; 45a "^anis $ 
Contains: Implementation of iatdependent byte order code* 
Written by: Coletti 

Copyright (o) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserv^ed. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

#include "scfileio.h" 
#include "scexcept .h*' 
#include "scmem.h" 
#include <string.h> 

#if 0 

^jinclude "cvtfioat.h" 
l^ndif 

'^^^ string that goes into the header 
Static char *byteOrderStr[] = { 

"'i "Intel 86", 
"Motor68% 
ly MJLL 

% 

^ »/ 

'^y^ : »/ 

1 3 

h i // Intel to Motorola 

,#efine SC„I2MJ4KWORD(p) (((ushort) ((p)[l]) << 8 ) | ( (p) [0] )) 

// Motorola to Intel 
^^efine SC„H2I„MKW0RD(p) {((ushort) {(p)[0]) << 8 ) i ( (p)[lj )) 

// Intel to Motorola 
#define SC„I2M_MiCL0MG(p) \ 

( (long) {ulong)SC.I2M_MKTORD(p) [ ( { (long) (ulong)SC„I2M„MKW0RD{ (p)+2) ) << 16)) 

// Motorola to Intel 
#define SC_M21„MRL0NG{p) \ 

((long) (ulong)SC_M2I_MKTORD((p)+2) | ( ( (long) (ulong)SC_M2I_MKW0RB(p) ) « 16)) 

/« : : : «/ 

#if defined ( SCWIHDOWS ) f defined ( _X86„ ) 

#define JK86„ 1 

#endif 

#if defined ( _X86„ ) 

static int localByteOrder « kInteiOrder; 

#define SCPIO„MKWORD SC„M2I_MKW0RD 
#d6fine SCPI0J4KL0HG SC_M2I_MKL0HG 

#elif defined ( SCMACIlsiTOSH ) 
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0) 



#define raise (err) 
#defina raise_if {aKp, err) 



#endif 
#endif 



throw ( sc:EKception( (status) err ) ) 

((esp) ? (throw( scEKception{ (status)err ))xO) 



#else 



#define raise (err) 
Meiine raise_if (enp, err) 



throw ( err ) 

((esp) ? (throw( err ). 0 ) : 0) 



#endif 



= ss ss ss 3=: 



#endif /* „H^EXCEPT */ 
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File: EXCEPT. H 

SHeader: /Projects/ToolboK/ct/SCEXCEPT.H 2 5/30/97 8:45a Wmanis $ 
Contains: e:sception code 
Written by: Sealy 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality- 

Composition ToolboK software is the proprietary 
and confidential property of Stonehand Inc. 



w s; » » ss » » a !k: K sa a as w = as ss 5: = » =s a 5S « as sj s a K w K as m =s =: a: s « K « a as K s 

#ifndef H EXCEPT 
#define _H„EXCEPT 

#include "sc types. h" 

#if SCBEBUG > 1 
fi #undef new 
^^ndif 

Li^* sa^aast = as« = aaaaaattaMaaaaaaa5BaMiKtsasK5W5Kwa»a»sffi=ssa=:«!a»a»tsssK »/ 

^^lass scException { 
^^blic: 

^|if SCDEBUG > 1 

fi scEKception( status errCode - scSuccess^ 

const char* file » 0, 
^ int line « 0 ) : 

13 fFiie( file ), 

fLine( line 

,1 f Codec errCode ){ SCDebugBreak ( ) ; } 

|#else 

f~3 scException ( status errCode - scSuccess ) : 

:f f Codec errCode ){} 

ifend if 

status GetValue{void) const { return fCode; } 

#if SCDEBUG > 1 

const char* fFile; 

const int fLine; 
#endif 

private : 

const status fCode; 



#if 0 

#if SCDEBUG > 1 

#define raise (err) 
#define raise„if (exp, err) 
« )).0) : 0) 

#ifndef MSVCBUG„1A 

#define raise { scerr ) 
#define raise„if (esp^ scerr ) 

0) 



throw( scException ( err, FILE , LINE ) ) 

((exp) ? (throw( scException( err, FILE , LINE^ 



throw{ scException ( scerr ) ) 

((exp) ? (throw ( scException ( scerr )),0) 
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File: chfile.h 

$Header: /Projects/ToolboK/ct/SCDBCSDT.H 2 5/30/97 8:45a V^anis $ 
Contains: Class for reading DBCS files. 
Written by: Manis 

Copyright (c) 1989-94 Stoaehand Inc., of Cambridge, MA. 
Ail rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition ToolboK software is the proprietary 
and confidential property of Stonehand Inc. 

_ a- _ -B _ _ 5- s_ — — 



#ifndef _H„SCDBCSDT 
#define .H„SCDBCSDT 



#include "sc types. h" 

^"lilass scDBCSDetector { 
'^^ublic: 

fil enum eByteType { 

eFirstByte ^ -1, 

eOnlyByte, 

eLastByte, 
"^4 eMiddleByte 

f'-^, }; // id*s a byte of a multibyte character 

scDBCSDetector ( TypeSpec ts ); 

I J 

I A void setDBCSC TypeSpec ts ); 

long StrLen( const char « ) const; 

eByteType ByteType( uchar ch ) const 

Q ^ 

return dbcs_ ^ shiftjis_fch] : eOnlyByte; 

U y 

private : 

Bool dbcs„; 

static eByteType shiftjis„[]; 

}; 

#endif /* „H„SCDBCSDT */ 
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va^list args; 



if ( fmt *fffit ) { 

va_start ( args r imt ) ; 
DfogVPrintf( fmt, args ); 
va_end ( args ) ; 

} 

} 

Asserts *y 

void AssertFailed( const scChar *eKp, const char *file, int line ) 
{ 

#ifdef SCMACIOTOSH 

SCDebugTrace ( 0, scString( "(^s,5^1d): assert failed: \''Zs\''\n" )^ file, line^ esp ); 
#else 

SCDebugTrace{ 0, ©cString( "(2^s,%d): assert failed: \"^\"\n" file, line, exp ); 
#endif 

raise( scERRassertFailed ); 
y/ throv?( new sc£sception( scERRassertFailed, file, line ) ); 
} 
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File; DEBUa.C 

^Header: /Projects/ToolboK/ct/SCDEBUG.CPP 2 5/30/97 8:45a Wmanis $ 
Contains: Debugging routines for composition toolkit- 
Written by: Sealy 

Copyright {c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reser^/ed. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbos: software is the proprietary 
and confidential property of Stonehand Inc. 



#if defined ( SCWINDOWS } 

^include <windowsK.h> 
#else 

^include <stdio,h> 
#endif 

Cfinclude <stdarg.h> 

^include "scexcept.h" 

fy/ Debugger output/interrupts 

'^%|oid DbgVPrintf ( const scChar* fmt, 
r'^ va_„list args ) 

^#if defined ( SCWINDOWS ) 

G scChar buf[25&]; 
. .1 int ien; 

%h wvsprintf( buf, fmt, args ); 
□ len = scStrlen( buf ); 

^3 if ( buf[len - 1] '\n' ) { 
buf[ Xen - 1] - 0; 

scStrcat( buf, scString( *'\r\n" ) ); 

} 

OutputDebugString( buf )j 

#elif defined { SCMACIOTOSH ) 

scChar buf [256]; 
vsprintf( buf, fmt, args ); 
fputs( buf, stderr ); 

#endif 
} 

void SCDebugTrace ( int level, const scChar* fmt, ... ) 
{ 

extern int scDebugXrace; 

if ( level > scDebugXrace ) 
return ; 
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#d0fine MAisIUAUNST 

#ifdef MMIUAL„INST 

#define DEFINE^TEMPLATES 
#include "scparagr.h" 
#include "scspcrec *h** 
#include "scpubobj ,b" 
#undef DEFIlsrE^TEMPLATE 

#ifdaf „WIHDOWS 

#pragBa warnijig ( disable : 4660 ) // duplicate template definitions 
#endif 

#ifdef MSI_CLASS„INST 

template class scSizeableArray< char* >; 

template class scSizeableArrayD< stPara >; 

template class scSizeableArrayD< scKeyRecord >i 

template class scSizeableArray< UCS2 >; 

template class scSizeableArrayD< scSpecLocation > ; 

template class scSizeableArrayD< scSpecRecord >; 

template class scSizeableArrayD< RefCountPtr< stSpec > >; 
#endif // AblSI^CLASS^INST 



#endif // MAMJAL_IMST 
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File: EXCEPT, C 

SHeader: /Projects/Toolbos/ct/SCEXCEPT.CPP 2 5/30/97 8:45a Vtoanis $ 
Contains: kkk put contents here kkk 
Written by: Sealy 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox soft^sfare is the proprietary 
and confidential property of Stonehand Inc. 

^ ffl K « ss K K M s a ss sa se a « M s: St Ks « = s= S5 ss w » « « s =s K Sf « » Tt = = a a » s? s= ss w » K « M = 

#include "scexcept.h" 
#inciude <string.h> 
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^FirstByte, 




Ok© 5 


*/ 


eFirstByte, 


/* 


0x©6 


^/ 


eFirstByte, 




Ox© 7 




eFirstByte, 


/* 


0k©8 


*/ 


aFirstByte, 


/* 


0k©9 


*/ 


eFirstByte, 


/» 


OK©a 


*/ 


©First Byte, 


/» 


OK©fo 


«/ 


eFirstByte, 


/* 


Ox©c: 


*/ 


©FirstByte, 


/* 


Oned 


»/ 


©First Byte, 


/« 


Os©e 


*/ 


©FirstByt©, 


/* 


Oxef 


*/ 


©FiarstByte, 


/■* 


Oxf 0 


«/ 


©FirstByte, 


/« 


Ok£1 


*/ 


©FirstByta, 


/» 


GkF 2 




©FirstByte, 


/* 


OkF 3 


*/ 


©FirstByte, 


/* 


0x£4 


*/ 


©FirstByt©, 


/* 


OkFS 


*/ 


©FirstByte, 


/« 


0x£5 


«/ 


©FirstByt©, 


/« 


0xf7 


*/ 


©First Byte, 


/« 


0Kf8 


*/ 


©FirstByt©, 


/» 


Dxi y 


*/ 


©FirstByta, 


/» 


Osfa 




©First Byte, 


/» 


Onffa 


*/ 


©FirstByt©, 


/• 


Ok£c 





©OnlyByt©, Oxfd */ 
©OnlyByta, /* Oxfe */ 
©OnlyByt© Oxff */ 
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©FirstByte, /* 0x9c */ 
eFirstByte, /* Ox9d */ 
eFxrstByte, /« 0K9e */ 
eFirstByte. /* 0K9f */ 
eOnlyByte, /* OxaO */ 
eOnlyByte, O^al */ 
eOnlyByte, /« 0xa2 */ 
eOnlyByte, OsraS */ 
eOnlyByte, /* 0xa4 */ 
eOnlyByte, /« 0xa5 */ 
sOnlyByte, /* GKa6 */ 
eOnlyByte. /* Oxa7 */ 
eOnlyByte, /* 0xa8 «/ 
eOnlyByte, /* 0xd9 */ 
eOnlyByte, /* Oxaa */ 
eOnlyByte, Osab »/ 
eOnlyByte, /* Oxac */ 
eOnlyByts, /* Osad */ 
eOnlyByte, Osae */ 
eOnlyByte^ /* Onaf */ 
eOnlyByte, OKbO »/ 
eOnlyByte, OKbl »/ 
eOnlyByte. 0xb2 */ 
eOnlyByta. /* 0xb3 */ 
eOnlyByte, /* 0Kb4 */ 
eOnlyByte, OxbS */ 
eOnlyB3rte, /* OxbS */ 
eOnlyByte, Oxb7 */ 
eOnlyByte, /* OxbB */ 
13 eOnlyByte, 0xb9 
i.3 eOnlyByte, /* Onba */ 
eOnlyByte, /* Qxbb 
eOnlyByte, /* Osbc */ 
fy eOulyByte, /* Oxbd */ 
i:.! eOnlyByte, /* Oxbe */ 
eOnlyByte, /» Oxb£ »^ 
eOnlyByte. /* OkcO */ 
eOnlyB^^e, z'* Oxcl »/ 
d eOnlyByte. 0kc2 »/ 
r eOnlyByte, /* 0xc3 */ 
L eOnlyByte, /» 0kc4 »/ 
iJ eOnlyByte, /* 0xc5 */ 
'■J eOnlyByte, ^» 0kc6 */ 
\A eOnlyByte, /* 0xc7 */ 
1'" eOnlyByte, /* 0xc8 «/ 
eOnlyByte, 0xc9 */ 
Cj eOnlyByte, /* Oxca */ 
r-^ eOnlyByte^ Oxcb 

eOnlyByte. /* Oxcc »/ 
eOnlyByte, /» Dxcd */ 
eOnlyByte. /* Oxce */ 
eOnlyByte, /* Oxcf */ 
eOnlyByte. /* OxdO «/ 
eOnlyByte, /» Oxdl */ 
eOnlyByte, /* 0xd2 */ 
eOnlyByte, /* 0xd3 */ 
eOnlyByte, 0xd4 */ 
eOnlyByte. /* 0xd5 */ 
eOnlyByte, OxdS 
eOnlyByte. /* 0xd7 */ 
eOnlyByte, /* OxdS */ 
©OnlyByte. /» 0xd9 */ 
eOnlyByte, /» Oxda */ 
eOnlyByte, /* Oxdb 
eOnlyByta. /» Oxdc */ 
eOnlyByte, /* Oxdd */ 
eOnlyByte, /* Oxde */ 
eOnlyByte, /» Oxdf */ 
eFirstByte, /* OxeO */ 
eFirstByte, /* Oxel */ 
eFlrstByte, /* 0xe2 */ 
©FirstByte, /* 0xe3 
eFirstByte, 0xe4 */ 
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eOnlyByte. /* 0x53 */ 
eOnlyByte, /* 0x54 «/ 
eOnlyByt^, /* Ok 55 
eOnlyByte, /* 0x56 */ 
eOnlyByte, /* 0s57 */ 
BOnlyByte, /» 0x58 */ 
eOnlyByte, /* 0x59 */ 
eOnlyByt&, Ox5a */ 
eOnlyByte, /* Ok 5b 
eOnlyByte. /* 0x5c */ 
aOalyByte. /* OsSd */ 
eOnlyByte, /* 0s5e */ 
eOnlyByte, 0x5f */ 
eOnlyByte, /* 0x60 */ 
eOalyByte, /* 0x61 */ 
eOnlyByte, /* 0x62 */ 
eOnlyByte, /* 0x63 */ 
esOnlyByte. 0x64 */ 
eOnlyByte. /* 0x65 */ 
eOnlyByte. /* 0x66 */ 
eOnlyBytes, /* 0x67 *y 
eOnlyByte. /* 0x68 */ 
eOnlyByter, /* 0x69 */ 
eOnlyByte, /* 0x6a */ 
eOnlyByte, 0K6b */ 
eOnlyByte, /* 0x6c */ 
^OnlyByte. /* 0x6d */ 
eOnlyByte. /* Ox6e */ 
©OnlyByte, /* 0x6f */ 
eOnlyByte, /* 0x70 */ 
eOnlyByte, /* 0x71 */ 
eOnlyByte. /* 0x72 */ 
eOnlyByte, 0x73 */ 
sOnlyByte, /* 0x74 «/ 
eOnlyB3rte^ /* 0x75 */ 
eOnlyByte. /-* 0x76 */ 
eOnlyByte, /* 0x77 »/ 
eOnlyByte, 0x78 */ 
eOnlyByte. /* 0x79 */ 
eOnlyByte^ /* Ok 7a */ 
eOnlyByte, /* 0x7b */ 
feOnlyByte. /* 0s7c */ 
eOnlyByte, /* 0x7d «/ 
eOnlyByte, /» Ox7e */ 
eOttlyByte, /* 0x7f »/ 
eOnlyByte, /* 0x80 
aFirstByte, 0x81 */ 
eFirstByte, /* 0x82 */ 
eFirstByte, /* 0x83 
eFirstByte. /* 0x84 «/ 
eFirstByte, /* 0x85 */ 
eFirstByte^ /* 0x86 */ 
eFirstByte, /* 0x87 */ 
eFxrstByta, /* 0x88 
©FirstByt^, /* 0x89 */ 
©FirstByte^ /* OxSa */ 
eFirstByte, /* 0x8b */ 
eFirstByte, /* 0x8c */ 
©FirstByte, /* 0x8d */ 
eFirstByte. /* 0x8e */ 
eFirstByte^ /* 0x8f */ 
©First Byte. 0x90 
eFirstByte, /* Dk91 */ 
sFirstByte, /* 0x92 
©First Byte, 0x93 */ 
eFirstByte, /* 0x94 */ 
eFirstByte, /* 0x95 */ 
©FirstByte. /* 0x96 */ 
©FirstByte, /* 0x97 */ 
eFix^tByte, 0x98 
©FirstByt©, /* 0x99 */ 
©FirstByte, /* Qx9a */ 
eFirstByte, /* 0K9b */ 
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eOnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyByte^ 

eOalyByte, 

eOnlyByte, 

eOnlyByte, 

sOnlyByts, 

eOnlyByta, 

eOnlyByte, 

eOnlyByte, 

aOnlyEyte, 

eOnlyByte, 

eOnlyByte, 

oOnlyByte, 

©OnlyByte. 

eOnlyByte^ 

eOnlyByte, 

sOnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyB3rte, 

eOnlyByte, 

eOnlyByte, 

eOniyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyByte. 

eOnlyByte, 

eOnlyB3rte^ 

eOnlyByti^, 

eOnlyByte, 

eOnlyByte, 

etOnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyByte. 

^OnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyBytet, 

eOnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyByte , 

eOnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOnlyByte, 

eOn lyByte , 

eOnlyByte, 



/* QxOa */ 
/« OKOb */ 
/* OxOc 
/* QxOd */ 
OxOe •/ 
/* OkOF 
/* Oslo 
/* OkII 
/* Ok 12 
/* Ok 13 */ 

0x14 
/* 0x15 */ 
/» 0x16 */ 
/* 0x17 
/» 0x18 «/ 
/* 0x19 */ 
/* Ox la */ 
/* Ox lb */ 
/* Oxlc */ 
/* Ox Id 
/* Oxle */ 
Oxlf */ 
/* 0x20 */ 
/« 0x21 */ 
/* 0x22 */ 
/« 0x23 */ 
/* 0x24 *y 
/* 0x25 */ 
0x26 */ 
0x27 »/ 
/* 0x20 
/* 0x29 */ 
/* Ox 2a */ 
/« 0x2b */ 
0x2c »/ 
/* 0x2d */ 
0x2e */ 
0x2f »/ 
/* 0x30 */ 
/« 0x31 */ 
/* 0x32 */ 
/* 0x33 */ 
/» 0x34 
/» 0x35 
/* 0x36 */ 
/» 0x37 */ 
/* 0x38 •/ 
/» 0x39 »/ 
/» 0x3a */ 
0x3b «/ 
/* Ox 3c */ 
/» Ox 3d */ 
/* 0x3e 
/» 0x3f 
/» 0x40 */ 
/« 0x41 */ 
/* 0x42 */ 
/« 0x43 */ 
/» 0x44 */ 
/* 0x45 */ 
/* 0x46 

0x47 »/ 
/* 0x48 «/ 
/* 0x49 */ 
/* 0x4a 
/« 0x4b «/ 
y* 0x4c 
0x4d 
/* 0x4e */ 
0x4f */ 
/* 0x50 »/ 
y* 0x51 *^ 
0x52 */ 



File: WorkvCrtPrtxStonehndxScdfocsdt . cpp ^ 
File: charbyte.c 

SHeader: /Projects/ToolboK/ct/SCDBCSDT.CPF 2 5/3G/9? 8:45a Vftaanis $ 
Contains: DBCS code. 
Written by: Man is 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, Mh. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

#include "scdbcsdt.h" 
#include "scstcach.h" 

S:DBCSDetector: :scDBCSDetector( TypeSpec ts ) 
.1 : dbcs_(0) 

V: set DECS { ts ); 

y>id scDBCSDetector: :setDBCS( TypeSpec ts ) 

m 

dbcs_ = ts.ptrO ? scCachedStyle: :GetCachedStyle( ts ) .GetBreakLang { ) : false; 

% 

■5; ^ 

%ng scDBCSDetector: :StrLen( const char* str ) const 

If 

O long len ^ 0; 

"^"^ for ( ; *str; ) { 

switch { ByteType { *str++ ) ) { 
case eOnlyByte: 
case eLastByte: 
len++; 
break ; 

} 

} 

return len; 



scDBCSDetector: :eByteType scDBCSDetector: :shiftj is_[ ] « { 
eOnlyByte, /* 0x00 «/ 
eOnlyByte, /* OkOI */ 
eOnlyByte, /» 0x02 */ 
eOnlyByte, /» 0x03 */ 
eOnlyByte, 0x04 »/ 
eOnlyByte* /* 0x05 */ 
eOnlyByte, /* 0x06 »/ 
eOnlyByte, /* 0x07 
eOnlyByte, /* 0x08 «/ 
eOnlyByte, 0x09 */ 
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File: 



SCCTYPE.H 



$Header: /Projects/ToolboK/ct/SCCIYPE.H 2 5/30/97 8:45a Winanis S 
Contains: Character types. 
Written by: Manis 

Copyright (c) 1989-94 Stonehand Inc.. of Cambridge, Mk. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition ToolboK software is the proprietary 
and confidential property of Stonehand Inc. 



*»*«**««*««*««**»**»«**«*»»*»*»«****»»*•»**«*«**«********/ 



#ifndef J!„SCCTYPE 
#define J1.SCCIYPE 

#ifndef „H_SCIYPES 
#include "sctypes.h" 
#endiF 



=^§iefine sc. 
j;^efine sc, 
';^define sc„ 
I'Miefine sc. 
i,#iefine sc. 
ii'^efine sc 
^l^define sc 
^^efine sc 
ffdefine sc 
'#define sc. 



ASCII 
.SPACE 
PUNC 
DIGIT 
ALPHA 
_ACCEHT 
.SYMBOL 
LOCASE 
UPCASE 
LIGATR 



OkOOOI 
0x0002 
0k0004 
QsOOOS 
OxOOlO 
OkOOZO 
0k0040 
OkOOSO 
OkOIOO 
0k02O0 



^^^Ktern unsigned short sc„CharType [ ] ; 

for now we assume everything above 255 is alpha, with release of kanji and other 
f-^ versions this will change 



ij*/ 

li^define CTIsAlpha(ch) 
''fdefine CTIsSelectable(ch) 
#define CTIsDigit (ch) 
#define CTIsPunG(ch) 
#define CTIsUpperCase (ch) 
#define CTIsLowerCase(ch) 
#define CTIsSpace (ch) 
#define CTIsSymbol (ch) 
#define CTIsVisible (ch) 
UKC[sc SYMBOL) ) : true ) 



( 


(ch) 


< 


256 


? 


( 


( 


(ch) 


< 


256 


? 


( 


( 


(ch) 


< 


256 


? 


( 


( 


(ch) 


< 


256 


? 


( 


( 


(ch) 


< 


256 


? 


( 


( 


(ch) 


< 


256 


? 


( 


( 


(ch) 


< 


256 


? 


( 


( 


(ch) 


< 


256 


? 


( 


( 


(ch) 


< 


256 


? 


( 



sc„CharType [ 
sc„CharType [ 
sc„CharType [ 
sc^CharType [ 
sc„CharType [ 
sc_CharType [ 
sc„CharType [ 
sc_CharType [ 
sc^CharType [ 



(ch)+l] 
{ch)+l] 
(ch)+l] 
(ch)-!-!] 
(ch)+l] 
(ch)+l] 
(ch)+l] 
(ch)+l] 
(ch)-^l] 



Sc (sc„ALPHA) ) : true ) 

& (sc„ALPHA|sc_DIGIT) ) : true ) 

(sc^DIGIT) ) : false ) 
Sc (sc.PUHC) ) : false ) 
& (sc„UPCASE) ) : false ) 
(sc„LOCASE) ) : false ) 
(sc„SPACE) ) : false ) 
(sc^SYMBOL) ) : false ) 



(sc.ALPHAj sc JIGIT | sc^CCEOT t sc 



#define CTIsDropCapable (ch) ( CTIsVisible ( ch ) ScSc ! CTIsSpace ( ch ) ) 

Bool CTStoreAll{ UCS2 ); 

Bool CTIsFracBar( UCS2 ); 

UCS2 CTToLowerf UCS2 ); 

UCS2 CTToUpperC UCS2 ); 

UCS2 CTToggleCase( UCS2 ); 



#endif /* .H„SCCTYPE */ 
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if ( str } 

col->GetStr0dm()->STRMarl5( scRETABULATE \ scREBREAK ); 

} 

scCachedStyle: :SetFlowdir( flowDxr ); 
GetFlowset{)->LimitDamage{ 0, scReforsiatTimeSlice ); 

} 

void scFlowDir; :SetFlow( eCommonFlow cf ) 

if ( cf ©NoFlow ) { 

linedir_ - elnvalidFlow; 
glyphdir„ ^ elnvalidFlow; 

} 

else if ( cf eRomanFlow ) { 
linedir_ ^ eXopToBottom; 
glyphdir„ « eLeftXoRight ; 

else if ( cf «^ eVertJapanFlow ) { 
Iinedir„ - eRightToLeft ; 
glyphdir„ - eXopToBottom; 

} 

else if ( cf ©BidiFlow ) { 
linedir„ = eXopXoBottom; 
0lyphdir„ - eRightXoLeft; 

> 

rebommonFlow scFiowDir: :GetFlowC) const 

IM 

i3 if { linedir^ ^= eXopXoBottom ScSt glyphdir^ eLeftXoRight ) 
-'"a return eRomanFlow; 

else if ( linedir^ eRightXoLeft glyphdir„ eXopXoBottom ) 
return eVertJapanFlow; 
C3 else if ( linedir„ eXopXoBottom £cS= glyphdir^ eRightXoLeft ) 
l"^ return eBidiFlow; 

return eNoFlow; 

1% 



3 K as as aa ss as a w s 



;|if SCDEBUG > 1 

fioid scColumn; :DbgPrintInfo( int debugLevel ) const 

SCDebugXraceC debugLevel. scStringC "\nSCCOLUMH 0s%08k - firstline 0H%08K\n" ), this, fFirstline 

scXestline* tKl; 



1 



} 

/* 



for ( tKl = fFirstline; txl; tKl = tKl->GetNeKt () ) 
txl->DbgPrintInfo( debugLevel ); 



#endif 
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} 

} 

void scColumn: :Unixnk( scRedispList* redispList ) 

^ scColumn* firstCol; 
scXRect 1 i neDaxtiage ; 

// mark the paras in the container beings unlinked to be reforoken, 
y/ since they are losing their hoste, they definately need to 
foe rebroken 

// 

firstCol GetPrev(); 
if C firstCol mil ) 
firstCol ^ GetHsKtC); 

if ( firstCol ) { 
MarkParas ( ) ; 

FreeLines( trus, lineDamage ); /* deletes lines «/ 

if ( redispList ) 

redispList'->AddColumn( this. lineDasiage ); 

scTBObj::Unlink( ); 
SetFlowsetStream( 0 ); 

firstCol ->Renumber( )j 
£:j firstCol ->Mark( scIWALID ); 

.'i firstCol ->LimitDamage( redispList, scReformatTimeSlice ); 



f y 



^=^oid scColumn: :BreakCha in ( scColumn* col2 ) 

n raise_if( GetNest{) i« col2, scERRstructure ); 

^ if ( GetStreamO ) 

13 GetStream{)->STRDefonnat(); remove any layout information 

..1 // break the link 

SetNext( 0 ); 
f'2 col2">SetPrev( 0 

col2->SetFlowsetStream( 0 ); set the stream in col 2 to nothing 

kj 

void scColumn: :Invert£Ktents( HiliteFuncPtr func. 

AFPDr^Cts: mat ) 

{ 

scTes:tline* txl; 

for ( txl « GetFirstline{ ); tsl; tsl « tKl->GetNes:t ( ) ) 
tx 1 -> Invert Est en ts( func. mat ); 

} 

set the flow direction of the container */ 

void scColumn: :FlowsetSetFlowdir( const scFlowDirSc flowDir ) 

scColumn* col ^ GetFlowset(); 

for ( ; col 1^ 0; col « col->GetNeKt () ) { 
if ( col->GetFlov?dir() 1* flowBir ) { 
col->SetFlowdir( flowDir ); 
col->Mark( scINVALID ); 
scStream* str = col->GetStream( ) ; 
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/* renumber »/ 

for ( ; collH; collH - coliH->Getl<lestO ) { 
if ( collH c:ol2H ) 
return true; 

} 

return false; 

} 

void scColumn; :Link( scColumn* col2. 

Bool reformat, 
scRedispList* redispList ) 

^ scSelection* select 2 * 0; 

// make sure the existing links make sense 
raise„if ( col2->GetPrev() , scERRstructure )i 

raise„if{ COLLinkSetContains( this, col2 ), scERRstructure ); 

/* mark the paras in each to be rebroken *^ 
MarkParasC ); ^* maybe we should only mark the last one */ 

col2->MarkParas( ) ; 

col2->Flows8tSetFlowdir( GetFiowdir() ); 

if ( FlowsetOetSelectionO ^ lcol2->GetSelection() ) 
i-tl ; //we are cool 

else if ( IFlowsetGetSelectionQ col2->GetSelection () ) { 
m // transfer selection 

5!: select2 « col2">FlowsetGetSelection{ ) ; 

col2->FlowsetRemoveSelection() ; 
^-3 FlowsetSetSelection{ select2 ); 

iy > 

" else 

"'^ select2 « coi2->FlowsetGetSelection () ; 

C3 col2">FlowsetRemoveSelection() ; 

delete select 2, select 2 = 0; 

C3 ^ 

'"J // do the actual link 

ly scTBObj:: Li nk( col 2 ); 

"^'^ /* patch the stream (s) 

13 * if either column has a stream we can deal with it easily. 

£1 * if both have it, append stream2 to streaml 

»/ 

if ( GetStreamO ! col 2- >Get Stream () ) { 
/» coll has a stream */ 
SetFlowsetStreamC GetStream() ); 

} 

else if ( col2->GetStream() SS. !GetStream() ) { 
/» col 2 has a stream */ 
SetFlowsetStreamC col 2">Get Stream () ); 

else if ( GetStreamO StSc col2->GetStream() ) { 
// both contain streams 
fetStream{)->Append( col2->GetStredm( ) ); 
SetFlowsetStreamC GetStreamO ); 

} 

else 

/* no column has a stream */; 

// renumber the streams 
Renumber ( ) ; 

// patch selection 

if ( 3refo3rmat ) { 

Mark( scIIfiVALID ); 

LimitDamageC redispList, scRefontiatTimeSlice ); 
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// over what is correct 
size,S6tWidth( xrect.sZ ); 
size.SetDeptht Kract.y2 ); 

} 

break ; 

case eVertFlex: 
case eFleKShape: 

si2e.SetWidth( Width () ); 

size.SetDepth( LONG_MAX ); 

break ; 

default: 

case eHorzFlex: 

case el?oShape: 

size GetSizeC) ; 

break; 



} 



} 

Deteraiine maximum depth of text from top (or from right in vertical) */ 

void scColumn: :QueryTeKtDepth( MicroPointSc depth ) const 

^ switch ( GetShapeTypeO ) { 
case eVertShape: 

depth - POLYMaKDepth( fVertH ); 
break ; 

case eRgnShape: 

depth - RGm4aKDepth( fR^nH 
%l break; 

■^1 case eVertFleK: 

i^i if ( GetFlowdirO .IsVerticalO ) { 

;i depth TeJstDepth ( ) ; 

""-^ break; 

case eFleKShape: 

depth « LOHG„MAX; 
break; 

Id case eHorsFleK: 

if ( GetFlo9?dir() .IsVerticalO ) { 
depth « LONG„MAX; 
11 break; 

O } 

default: 

case eHoShape: 

depth - TeKtDepthO; 

break ; 

} 



} 



MicroPoint scColumn :: Text Depth ( ) const 

{ 

return GetFlowdir( ) .IsHorisontal () ? Depth() : Wxdth(); 

} 



static Bool COLLinkSetContains( scColumn * collH, 

scColumn * col2H ) 

scColumn * prevColH; 
/» backup »/ 

for ( ; collH E^Sc (prevColH - col iH->GetPrev() ) 1« NULL; 
collH - prevColH ) 
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break ; 



switch ( GetShapeType ( ) ) { 
ca^e eFlexShape: 
case eVertFleK: 

if ( GetShapeTi^e { ) eFlesShape ) 
margins. Set ( 0, 0, 0^ 0 ); 

else 

margins. Set( 0, 0. Width(), 0 ); 

/* add each line to the current entents 
for ( tsl - GetFirstline( ); tKl; txl = nestTsl ) { 

if ( GetShapeType ( ) eFlenShape ) . ^ , 

margins. k2 * ViP^i t%l">GetOrigxnO .y + tKl->GetLength() , margins. x2 ); 

nextTxl = L];^eKt( txX ); 
if ( InextTsl ) { /* last line */ 

margins .y2 - MAX( txl->GetOrigin( ) .y. margins, y2 ); 

/* this makes vertical flex columns the size 
* of the test baseline plus whatever amount 
» of text the application wants to add to the bottom 

MicroPoint maKlead - txl->MaKLead ( spec ); 
if (spec.ptrO) { 

margins .y2 CSlastLinePosition ( GetAPPName { ) , spec ); 

:S > 

y margins .y2 txl->GetVJOf fset () ; 

J } 

a } 

break; 

'3 case eHor^Flex: 

margins. Set ( 0. 0. 0, Depth() ); 

-J for ( txi = GetFirstiineC ); txl; txl - txl->GetHext ( ) ) . ^ , 

J margins. x2 - txl->GetOri8inC ) -x + tKl->GetLength () , margins-x2 ); 

'''Z break; 

;3 case eVertShape: 

;3 case eRgnShape: 

case eHoShape: 

margins. Set ( 0, 0. Width{), Depth () ); 
break; 

} 

} 

determine maximum possible depth of the column in its local coordinates 

void scColumn: :QuerySize( scSizeS* size } const 

^ switch ( GetShapeType ( ) ) { 

#ifdef ColumnPolygon 

case eVertShape: 

si2e.SetDept( POLYMaxDepth ( fVertH ) ); 
break; 

#endif /* ColumnPolygon */ 

case eRgnShape: 
{ 

scXRect X3rect; 

RGMGetExtents ( fRgnH. xrect ); 

this is open to some discussion 
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for ( tKl - col->GetFirstline(); txl; tzl « LMext( tsl ) ) { 
Krect2,S$t( tKl->GetOrigin() .k, 
tKl->GetOrigin() .y, 

tKl->GetOri0xn() .X + CSf irstLinePosition ( col->GetAPPName ( ) . tK 

l->SrjecAtStart( ) ), 

col->Bepth() 
margins .Union ( KrectZ ); 

} 

tKl ^ c:ol->GatLastline( ); 
txl->MaKLead( spec ); 

xrect2.S©t( txl->GetOrigin () .k - CSlastLinePosition ( col->aetAPPMame() , spec 
txX->GetOriginC) .y, 
tKl->GeitOrigin() .x^ 
col->Depth() ); 

max^ ins .Union ( xrect2 ); 

} 

break ; 

case eFlexShape: 

txl ^ col->GetFirstllne() ; 
if ( tKl ) { 

margins. Set( txl'->GetOrigin() .x, 

txl->G©tOrigin{) .y, ^ ^ ^ 

txl->GetOrigin() .K + CSf irstLinePosition ( col->GetAPPNama() , txl->S 

pecAtStart( ) 

txl ->GetMeasure () ) ; 

'5 for ( txl « col->GetFirstlina(); txl; txl - Ll:3Hext( txl ) ) { 

li xrect2,Set( txl->GetOrigin() .x^ 

txl->GetOrigin() .y, ^ ^^^^^ ^ 

txl->GetOrigin() -x -4- CSf irstLinePosition ( coi->GetAPPMaine() , tx 

. J->SpecAtStart( ) 

'1 txl->GetMeasure() ); 

^'^ margins , Uni on { xrect2 ); 

I" txl = col->GetLastline( ); 

~~ txl->MaxLead( spec ); 

y xrect2.Set{ txl->GetOrigin{) .x - CSlastLinePosition{ col->GetAPPHam8{) . spec ), 
^■J txl->GetOrigin() ,y. 

1 txl->Gs!tOrigin() .x, 

;^ txl->GetMeasure() ); 

margins. Union ( xrect2 ); 

IZ } 

break; 

case eVertFlex: 

margins. Set ( 0, 0, col->Wxdth() , 0 ); 

for ( txl ^ col->GetFirstline(); txl; txl - txl->GetHext () ) 

margins. y2 = MAX( txl->GetOrigin() -y + txl->GetLengtla() , margins.y2 ); 
break ; 

} 

} 

void scColumn: :QueryMargins( scXRect& margins ) const 
{ 

scTextline *txl; 
scTex t line *nex tTx 1 ; 
TypeSpec spec ; 

if ( GetFlowdirO .IsVerticalO ) { 
switch ( GetShapeTypeO ) { 
case eHorzFlex: 
case eVertFlex: 
case eFlexShape: 

COLQuer>^arginsVertical ( this, margins, GetShapeType ( ) ); 
return ; 
default: 
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exSize « siseof (scColumn) ; 

if ( IGetPrevO ) { 

for ( para - GetStream(j; para; para = para->GetN0Kt ( ) ) 
enSize para->ExternalSize () ; 

} 

switch ( GetShapeType C ) ) { 

case eVertShape: 
#ifdef ColumnPolygon 

exSize +* POLYExternalSize ( fVertH. fShapePieces ); 
#endif /* ColumnPolygoii */ 

break ; 

case eRgnShape: 

exSize -f- R(^EKternalSize( FRgnH. fShapePieces ); 
break ; 

IxSize += sizeof{ scTBObj ); NULL OBJECT 

} 

void scColumn: :2eroEnumei-ation( ) 

{ 

ZeroEnum{) ; 

if ( !GetPrev() ) 

GetStream{)->STRZeroEnumeration() ; 

1^* determine extents of the column in its local coordinates */ 
'■'koid scColumn: :ComputeInkExtents( ) 

Cl 

""2 scXRect lineEx tents; 
13 scTextline* txl; 

/» clear rect 

fIakExtents.Set( 0, 0. 0. 0 ); 
'"^J /* add each line to the current extents */ 

for ( txl - fFirstline; txl; txl « UsINext( txl ) ) { 
txi->QueryExtents( lineExtents, 1 ); 
if ( lineExtents .Width () <* 0 ) 
il lineExtents.xZ - lineExtents .xl -i- 1; 

a^i fInkEstents. Union ( lineExtents ); 

..." J 

} 



detensine extents of the column in its local coordinates 

static void COLQuerv^arginsVertical ( const scColuran* col, 

scXRectS margins , 

int shapeType ) 

{ 



scTextline *txl; 

scMuPoint translate ; 

TypeSpec spec; 

scXRect xrect2; 

switch ( ShapeType ) { 
case eHorzFlex; 

txl « col-X^tFirstlineO ; 

if ( txl ) { 

margins, Set( txl->aetOriein() .x, 

txl~>GetOrigin { ) .y, . „ 

txl->aetOri^in() -K CSf irstLinePosition ( col->GetAPPName( ) , txl->S 

pecAtStartC ) )r 

col->Depth() ); 
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case etJoShape: 

SetSize( width, depth ); 

break ; 
case eVertFlex: 

SetWidth( width ); 

break; 
case eHorsFlsK: 

SetDepth( depth ); 

break; 
case eFlesShape; 

SetSi2e( width, depth ); 

break ; 

} 

Mark( scIWALID ); 

LimitDama0e( redispList, scReformatTimeSlxce ); 

} 

void scColumn: : Resize ( const scSizeSt newSize, 

scRedispList* redispList ) 

^ switch ( GetShapeType ( ) ) { 
case eRgnShape: 
case eVertShape; 

SetSizeC newSize ); 
return; 
case eNoShape: 

SetSi2e( newSize ); 
I 3 break ; 

i,3 case eVertFlex: 

SetWidth( newS ize- Depth ( ) ); 
break; 
y case eHorzFlex: 

1 SetDepth ( newSize .Width ( ) ) ; 

J break; 
" case eFiexShape: 

4 SetSize( ne?i^ize ); 

3 break ; 

> 

Mark( scIWALID ); 
^ LimitDamage( redispList, scRefomatTimeSlice ); 

4 



cn 



H/* EmmmTE the column akfd its structures 



i'- 



wid scColumn: : Enumerate ( long& objEnumerate ) 

^ scTBObj : :Enumerate( objEnumerate ); 

//if the column has no previous members, that is it is 
// the first column of a set of linked columns, enumerate 
// the paragraphs and their text 

// 

if ( IPrevO fStream ) 

fStream->DeepEnumerate( objEnumerate ); 



/* return the size of this column for storage purposes, the text stream 

* is always stored with the first column, subsequent columns store 

* just the container itself, (this may present problems for paging of text 

* in multipage documents) 
*/ 

void scColumn: :ExternalSize( longS: ©KSize ) 
{ 

scContUnit* para; 
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for ( ; txl; tKl ^ nesctlKl ) { 
nestlKl - txl->Getl5eKt(); 

txl->Delete( colReformatDdta . fLineDamage ); 

} 

} 

} 

void scColumn: :SetFlowsetStr^am( scStream* cu ) 
{ 

scColuffln* col; 

for ( col - (scColumn*)FirstInChain(); col; col - col->GetlsfeKt{) ) 
col ->Set Stream ( cu ); 

} 

/* ^s:js:sj:==:sass=5ssos=t=3»sa*!SsasM«3S=s»a=«:==~=S5S£K5=«!=i — = — — 

/* free the stream from the column chaic */ 

void scCoXumn: :FreeStream() 
{ 

if ( f Stream ) { 

f Stream- >STRFree( ); 
SetFlowsetStream( 0 ); 

} 

} 

CS"* force the rebreaking of this column 

l%oid scColumn: :Rebraak( scRedispList* redispList ) 

fy // save the recomposition state 

Bool saveRecompcseFlag - GetRecomposition () ; 

SetRecompositionC true ); 

fj R©break2( redispList ); 

% // restore the saved value 

C3 SetRecomposition( saveRecomposeFlag ); 

\.\ 

Unmark( scINVALIP ); 



fT» rebreak of this column 

void scColumn: :Rebreak2( scRedispList* redispList ) 

^ Mark( scINVALID ); 

if { DamOpen( ) ) 

LimitBamaee( redispList, scReformatTimeSlice ); 

} 



- as =; s: SB ss as s:; a: =s at 3* ss */" 



/* give the column a new width & depth, rebreak and return Aoxm^BA areas */ 
/* the column measure and/or depth has changed respond accordingly 

» OBVIOUS OPTIMIZATIONS 

* if depth increases just add stuff 

«/ 

void scColumn: : Resize ( MicroPoint width, 

MicroPoint depth, 
scRedispList* redispList ) 

^ switch ( GetShapeType ( ) ) { 
case eRgnShape: 
case eVertShape: 

SetSize( width, depth ); 

return ; 
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return fStream ? fStreaffi->First () : 0; 



scColumn* prev ^ GetPrev(); 
scTBKtline* tnl « 0; 
scCoutUnit* p ==0; 

// get last valid line in prev para, presumably 
// the container has been reformatted 

do { 

txl = prev->GetLastline{) ; 
if ( itxl ) 

prev * prev->GetPrev() ; 
} while ( prev StS= ItKl ); 

// get the paragraph of the last line, check to 
// see if the end of the lina represents the end 
of the paragraph, if it does go to the next para 
if ( tsl ) { 

p = ts:l->GetPara(); 

if { tKl->aetEndOffset() p->GetContentSize() ) 
p ^ p->GetNeKt() ; 

} 

el se 

p - f Stream ? fStream->First ( ) : 0; 
return p; 

J» Delete escass lines in the column *^ 

Woid scColumn: :DeleteEKcessLines( scContUnit* para, 

1 scTeKtline* iastXxl, 

Boo 1 t est Gets tri p , 

scCOLRefDataS< colReformatData ) 

1 scTextline* tiil ; 

scTestline* nsKtTxl; 

Bool deleteLines = false; 

a if ( lastTxl ) { 

.J if ( ( txl - imeKti lastTsl ) ) I - NULL ) 

^" deleteLines true; 

* } 

3 else if C ( tKl « GetFirstlineO ) !- miL ) { 

^ if ( para NULL |i para->GetCount () txl->GetPara()->GetCount() ) { 

if ( I testGetStrip ) 

deleteLines ^ true; 
else { 

scLIHERefData lineData; 

scCachedStyle: :SetFlowdir( GetFlowdir() ); 
TypeSpec ts * tKi->SpecAtStart ( ) ; 
scCachedStyle: :GetCachedStyle( ts ); 

lineData. fOrg - txl->GetOrigin() ; 

lineBata.f Measure = txl->GetMeasure() ; ^ - ir * 

1 ineDat a. f Logical Extents - soCachedStyle : :GetCurrent Cache () .GetLogica 1 Extents () . 
lineData. fInitialLead.Set( scCachedStyle : :GetCurrentCache() .GetComputedLead( ) , scCac 
hedStyle: :GetCurrentCache() .GetFlowdir() ) ; 

if ( !GetStrip( lineData, eStartColBreak, colReformatData ) ) 
/» the first line will not fit, delete them */ 
deleteLines * true; 



if ( deleteLines ) ■{ 

Mark( scREPAIOT ); /* if we delete we n^ed to repaint 
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/* mark all the paras contained within this container to h© rebroken */ 

scContUnit* scColumn: :MarkParas( ) 

{ 

scContUnit* firstPara; 
scContUnit* lastPara; 
scContUnit* para; 
scColumn* cont^ntCol ; 

firstPara = FirstPara(); 

i£ { firstPara ) { 

// in this case the container has some lines 
lastPara » LastPara (); 

for C para ^ firstPara; para; para * para->GetHeHt () ) { 
para->Mark( scREBREAK ); 
if ( para lastPara ) 
break ; 

} 

} 

else { 

X* in this case the container has no lines, 
» we must t3:y to find a neighbor that has 
» some lines, first we look backwards and then 

* we look forwards, we mark what we find and 

* see if they will reformat into the container 

if ( !GetPrev() ) 
1 firstPara ^ GetStream(); 

else { 

t contentCol « PrevWithLines() ; 

- if ( contentCol ) 

y firstPara = contentCol ->LastPara () ; 

3 else { 

contentCol « MeKtWithLines( ); 
^ if ( contentCol ) 

J f i rstPara = contentCo l->FirstPara(); 

1 } 

if ( I firstPara ) { 

/* this would be executed if no containers had lines 
3 * attached to them 

J 

1 firstPara GetStream(); 

y 1 

- } 

=1 if ( firstPara ) 

Z firstPara->Mark( scREBREAK ); 

^ > 

return firstPara; 

} 

/* return the paragraph of the last line of test in this column */ 
scContUnit* scColumn :: LastPara ( ) const 
scTextlme* tsl ^ GetLastline( ); 

for ( ; tHl t2i:l->Marked( scINVALID ); tKl « txl->aetPrev() ) 



return tKl ? tKl->GetPara() : MJLL; 

} 

// return the first valid paragraph of this column 

scContUnit* scColumn :: FirstPara ( ) const 

if no previous column the first ^uy in the stream is 
// the first paragraph 
if ( IGetPrevO ) 
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} 

} 

if ( aColH->GetReccimposition() && aColH->GetStream() ) 

STRReformat( aColH, aColH->OetStream(} , scReformatTimeSlice, redispList ); 
else { 

scSelection» select = aCoIH->FlowsetGetSelectioii( j; 
select->UpdateSelection( ); 

} 

} 

} 

} 

/» search a column hnildins a list of typ&specs that are contained 
» in the column 
»/ 

void scColumn: :GetTSList( scTypeSpecListS* tsList ) const 

{ 

scTeKtliae* tKl; 

for ( tKl - GetFirstlineC); txl; tsl - tKl">GetHext () ) 
tKl->GetTSList( tsList ); 

} 

----a; -------- 2sc=s»=s= 

s3^» determine the prev column with a line in it */ 
-icColumn* scColumn : :PrevWithLines{ ) const 
y scColumn* col; 

for ( col ^ GetPrev(); col ; col = col ->Get Prev ( ) ) { 
if ( col">GetFirstline( ) ) 
"'■■4 return col^ 

:i } 

return 0; 



s SB s 



y* determine the next column with a line in it 
=%cColumn* scColumn : :NextWithLines ( ) const 

:3{ 

scColumn* col; 

for { col = GetMe3tt(); col; col - col->GetHext ( ) ) { 
if ( col">GetFirstiine( ) ) 
return col; 

} 

return 0; 



/* return the last line in this column »/ 

scTeKtline* scColumn: :GetLast line ( ) const 
{ 

scTeKtline* txl; 
scTeKtline* validLine =0; 

for ( tKl - fFirstline; tKl; tKl « tKl->GetKrest ( ) ) { 
if ( ltsl->Marked( scIKVALIB ) ) { 

validLine * tKl; 
// validLine->AssertValid{) ; 

} 

} 

return validLine; 
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} 

/* Upon completion of reading data in from disk we search down the column list 
* finding the first columns in a chain and retabuiate, rebreak and repaint 
«/ 

void scColumn: : Update ( scRedispList *redispList ) 

{ 

scColumn* flowset; 
scColumn* col; 

for ( col - GetBaseContestList(); col; col ^ col->GetContext {) ) { 
if { col->Marked{ scHsTVALlD ) &a col->GetRecomposition{) ) { 
flowset = {scColumn*)col->FirstlnChain(); 

scCachedStyle: ;SetFlowdirC f lowset->GetFlowdir() ); 

flowset->LimitDaiaa0e ( redispList, scReformatTimeSlice ); 

scColumn* p ^ flowset; 
for ( ; p: P - p->OetNest() ) 
p->Unmark( scIMVALID ); 

} 

} 

} 

/* this is still a little dirty - needs to be cleaned up a bit */ 
Cy* reformat all columns containing ts */ 

'ii-oid scColumn: :ChangedTSC TypeSpec theXS. 

eSpecTask task, 
fif scRedispList* redispList ) 

It 

scColumn* aColH; 
scContUnit* p; 
scTextline* txl; 

scCachedStyle: :StyleInvalidateCache( theXS ); 

13 for ( aColH - GetBaseContestList ( ); aColH; aColH « aColH->GetContest ( ) ) { 
if ( aColH->GetCount() 0 ) { 

scCachedStyle: :SetFlowdir( aColH->GetFlowdir () ); 

fi p « aColH*>GetStream( ) ; 

1% for { ; p; p « p->GetNeKt( ) ) { 

if ( p->ContainTS( theTS ) ) { 

if ( i aColH->GetRecomposition() ) { 

if ( ( tKl ^ p->GetFirstliae() ) !- miLL ) { 
scColumn « coiH; 

if C ( colH = ts:i->GetColumn() ) [« NULL ) 
colH-'>Mark( scIHVALIB ); 

} 

aColH->Mark( scIHVALID ); 

if ( task S eSCRetabulate ) 

p->Mark( scRETAHOLATE ); 
if ( task & eSCRebreak ) 

p->Mark( scREBREAK ); 
if ( task & eSCRepaint ) 

p->ForceRepaiRt( OL, LOMG„M^ ); 

} 

else { 

if ( task eSCRetabulate ) 

P'->Retabulate( theTS ); 
if ( task S< eSCRebreak ) 

p->Mark{ scREBREAK ); 
if ( task & eSCRepaint ) 

p->ForceRepaint( OL, LONGJdAX ); 
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} 

/* draw the portions of the column that intersect the 'damagedRec tangle' */ 

void scColumn: :Draw( const scXRectS: dRect, 

APPBrwCtx dCr 
const scMuPoint* translation ) 



{ 



scTeKtline* tKl; 
scXRect ©KRect ; 
scMuPoint tK( 0, 0 ); 

if { translation ) 

ts -^^ ^translation; 

for { tzl - GetFirstlineC); tKl i- HULL; tsl - tKl->GetNext ( ) ) { 
tsl->Que3:yExtents( eKRect, 1 ); 
if ( eKRect. Intersect ( dRect ) ) { 

tKl->Draw( dc, fFlowDir^ ts ); 

t2:l->Unmark( scREPAIlsiT ); 

} 

} 



/* read from a tent file */ 

void scColumn: :ReadTes:tFiie( TypeSpec spec. 

1 AFPCtsPtr ctKPtr, 

lOFuncPtr readFunc, 

i scRedispList* redispList ) 



} 



scColumn* startCoi ; 

scCachedStyle: :SetFlowdir( GetFlowdir() ); 
scCachedStyle: :GetCacliedStyle( spec ); 

startCol « (scColiimn*)FirstInChain(); 

if C GetStreamO ) 

aetStredm()->RemoveEmptyTrailingParas( GetFlowset{) ); 

if { StartCol ->GetStreaiB() NULL ) 

SetFlowsetStreamC scStream: rReadXextFile ( spec, ctxPtr, readFunc, 0 ) ); 

else 

StartCol ->aetStream()-> Append ( scStream: :ReadTextFile( spec, ctKPtr, readFunc, 0 ) ); 
StartCol ->Mark( scINVALID ); 

startCol->LimitDamase( redispList, scRaformatTimeSlice ); /* reBreak */ 



/* paste APPTeKt into a text container */ 

void scColumn: :PasteAPPText { stTeKtlmportEKportSi appTeKt, 

scRedispList* redispList ) 



{ 



scColumn* f irstCol ; 
lypeSpec null Spec; 

if ( GetStreamO ) 

GetStream ( ) ->RemoveEmptyTrai 1 ingParas ( GetFlowset ( ) ) ; 

firstCol = GetFlowset (); 

if ( If Stream ) 

firstCol ->SetFlowsetStream( scStream: :ReadAPFTest ( appTest ) ); 

else 

f Stream- > Append ( scStream: :ReadAPPTeKt ( appTeKt ) ); 
firstCol->Mark( scIiOVALID ); 

firstCol->LimitDamage( redispList, scHe formatTimeSl ice ); /* reBreak */ 



File: Work\CrtPrt\Stoaehnd\Sccolunin .cpp 



Pg: 20 



for { lineCount « 1; 

countTxl miL', 

lineCount+4-, countTxl = LlsIH©Kt{ countTnl ) ) { 
if ( countTKl txl ) 
return lineCount; 

} 

} 

} 

return -1; 

} 

/• determine the size of the damagerect for ImmediateRedisp depending 
* on the lines set 
*/ 

void scColumn: :LineExtents{ scIntmediateRedispS: immediateRedisp ) 
i 

scTentline* txl; 
short count; 
scXRect colRect ; 
scXRect rect; 

colRect » Invalidate 0 ; 

txl ^ fFirstline; 

for ( count ^ 1; txl count < iimned i a teRedisp.f Start Line; count-f+ ) 
tKl « tKl->GetMeKt () ; 

3 if ( txl ) { 
i do { 

Z txl->QueryExtents( rect ); 

- colRect. Union ( rect ); 

U txl - txl->GetNest(); 

1 count +4-; 

} while ( txl St& count <«= iitmiediateRedisp.fStopLine ); 

1 ^ 

3 if C colRect,Valid() ) { 

if ( fFlowDir,IsHorisontal() ) { 

colRect.xl = MIKf( colRect.xl^ 0 ); 

3 colRect.x2 - MAX{ colRect,x2, Width () ); 

4 } 

5 else ■{ 

colRect.yl « MIH( colRect.yl, 0 ); 
colRect.y2 =» MAX( colRect.y2, Depth () ); 

3 } 
3 ^ 

iHffliediateRedisp.flinmediateRect « colRect; 

} 

/* draw the line of text in the selection »/ 

void scColumn: :UpdateLine( scImmediateRedispSc immediateRedisp^ 

APPDrwCtx mat ) 

{ 

scTextline* paintTxl; 
short count; 
scHuPoint tK( 0, 0 ); 

paintTxl « fFirstline; 

for { count - 1; paintTxl i- MJLL S^S, count < iramediateRedisp. f Start Line; count-^+ ) 
paintTxl = paintTxl->3etNeKt () ; 

if ( paintTxl MILL ) { 
do { 

paintTxl ->Draw( mat^ OetFlowdir()^ tx ); 
paintTxl = paintTxl->GetHext() ; 
count-*-+; 

} while { paintTxl f- WJLL count <= iismediateRedisp . fStopLine ); 

} 
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Bool scColumn: :HasTeKt ( ) const 
{ 

scContUnit* p; 

for ( p « GetStreamO; p; p - p->aetHeKt( ) ) { 
if ( p->QetContentSi2e() > 0 } 
return true; 

} 

return f^lse; 

} 

/* does the test flow out the bottom of this container 

Bool scColumn: :MoreTeKt ( ) const 
{ 

scTextline* txl; 
scContUnit» para; 
scColumn* neighfaorCol ; 

tKl « GetLastline() ; 

if ( tKl ) { 

para « tKl->GetPara () ; 
if ( para->GetHeKt 0 ) 
return true ; 

else if ( para">GetContentSize() > tKl->GetEndOf fset ( ) ) 
1 return true; 



else if ( GetStreamO ) { 

neighborCol = NeKtWithLinesO ; // text in subsequent columns 
if ( neighborCol ) 
return true; 

I neighborCol ^ PrevWithLines () ; 

if { neighborCol ) { 

tEl ^ neighborCol->GetLastiine() ; 

1 // this gets a little tricky, we are assuming that 

i // the text cannot be reformatted into this or 

some other column and therefore it hangs off the 
// end 
para = tsl">GetPara () ; 
if ( para->GetMext() ) 

return true; ^/ another paragraph be>^nd last formatted line 
else if C para->GetContentSi2e () > txl->GetEndOf fset ( ) ) 

return true; // more characters byyond last formatted line 
return false; no more text 

return true; no text formatted and we have a stream 

} 

return false; 

} 

determines line num in column of selection, assumes a sliver cursor 

short COLLineNum( scSelection* select ) 
{ 

scColumn* col; 
scTextline* txl; 
scTextline* countTxl; 
short lineCount; 

if ( select ) { 

col - select->£Hark,fCol; 
txl « select->fMark.fTKl; 
if ( col 6c& txl ) { 

countTxl = col->GetFirstline(); 
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SetFlowsetStrea2n( 0 ); 

void scColumn: rFlowsatPasteStreamC scStream* stream, 

scRedispList* rsdispList ) 

{ 

scColumn* firstCol « GetFlowset () ; 



stream'->STRMark( scREBREAK ); 

if ( GetStreamO ) 

Get Stream ( ) -> Append ( stream ) ; 

else 

SetFlowsetStream{ stream ); 
firstCol->Hark( scINVALID ); 

firstCol->LlmitDamage( redispList, scReformatTimeSl ice ); 

} 

/» free tlxe column, not any tezt associated with it and unlink it from 
* its column chain 
*/ 

void scColmn: : Delete ( scRedispList* redispList ) 

S 

J scColumn* firstCol; 
\ scColumn* nextCol; 



firstCoi « [scColumn*)FirstInChain() ; 

neKtCcl - GetNext(); 

if ( this " firstCol ) { 

// trying to free a column in a chain without 
// unllinking it 
raise„if( nentCol GetStream()^ scERRstructure ); 

if { InestCol ScSc OetStreamO ) { 

we are the only column left so 
// we need to delete the text stream 
FreeStream ( ) ; 

TypeSpec nuIlSpec; 

// clear the cache to help eliminate refs to specs 
scCachedStyle: :StyIeInvaiidateCache( nullSpec ); 

} 

} 

scTBDbj ; :Unlink( ); 
DeleteFromCTXList ( ) % 



if { firstCol !- this ) { 
firstCol->Reaumbar( ); 
firstCol ->Mark( scIWALID ); 

firstCol->LimitDamaHe( redispList, scReformatTimeSlice ): 

} 

else if ( nextCol ) { 

firstCol ->Renumber( ); 
firstCol ->Mark( scINVALID ); 

firstCol ->LimitDamage( redispList, scReformatTimeSlice ); 

} 

Free ( ) ; 

} 

because of reformatting nothing lands in here will still return 
true 
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/* free the column, no disentdnglement of pointers, save its own internal 
« strictures 

void scColumn : : Free ( } 
{ 

scXRect lineDamage; 

FreeLines( false, lineDamage ); deletes lines 

SetShapeType ( eNoShape ); 

// free it up from the context list 
DeleteFromCIXList( ); 

delete this; 

} 

free the column that is part of the scrap 

void scColumn: :FreeScrap( ) 
{ 

scAssert ( I GetlsfeKt () ) ; 

Freest ream ( ) ; /* deletes stream */ 

DeleteFromCIXListC ); 
Free ( ) ; 

CH 

clear the stream from the set of linked columns, 

* that this column belongs to 

fy */ 

?i/oid scColumn: :FlowsetClearStream( scRedispList* redispList ) 

"^y scColumn* firstCol GetFlowset { ) ; 
f ^ scXRect 1 i ne Damage ; 

^ // invalidate selection 

|3 Flowsetlnvai idateSelection ( ) ; 

,1 // free all the lines associated with the column(s) 

scColumn* col; 

%^ for ( col * firstCol; col; col * col->GetNext () ) { 
H if ( col~>GetFirstline() ) 

col->FreeLines( true, lineDamage ); /* deletes lines */ 

y } 

delete the stream from all the column (s) 
firstCol ->FreeStream{ ); 

} 

cut the stream from the set of linked columns, 

* that this column belongs to 
»/ 

void scColumn: :FiowsetCutStream( scStream* stream, 

scRedispList* redispList ) 

{ 

scColumn* firetCol ^ GetFlowset ( ) ; 
scXRect 1 ineDamage ; 

FlowsetlnvalidateSelection ( ) ; 

stream- >STRDe format ( ) ; 

scColumn* col; 

for ( col = firstCol; col; col « col->Get^est () ) 

col->FreeLines( true, lineDamage ); ^* deletes lines 
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* into a flexible container - we will have to free the shape 
*/ 

FreeShap© { ) ; 

} 

if ( type eHoShape ) 

fLayBits.FLaylype « type; 

else 

FLayBits.fLayType - (eColShapeXype) ( ( fLayBits . fLayType & eFlenShape ) | type ); 
break; 

} 

} 

y* free the lines with the column, this is tricky because we may want 
* to disentangle pointers at the same time 
*/ 

void scColum»: :FreeLines( Bool reportDamage ^ 

scXRecta lineBamage ) 

{ 

scTextline* tKl; 

scTeKtline* nentTKl; 

scContUnit* para; 

scKRect extents; 

scContUnit* streajuPresent fStream; 

for ( txl - fFirstline; tKl; tsl neKtXsl ) { 
#if SCDEBUG > 1 

tKl-'>scTBObj : :scAssertValid { ) ; 

C^endif 

ne^tTKl = Ii3Next( tKl ); 
Iz if ( reportDamage ) { 

tKl->QueryEKtents( extents, 1 ); 
ry if ( extents -Width () 0 } 

extents. X 2 « extents. k1 + 1; 
lineDamage .Union ( extents ); 

} 

HI if ( streamPr^sent 0 ) { 

para « txl-'>GetPara ( ); 

if C psra SiSc para->GetFirstline{] txl j 
para">SetFirstline( 0 ); 

13 } 

'^.j delete txl; 

iii ^ 

SetFirstline( MJLL ); 

— — — — — — — — — St a K=f=tSK» saasKSS =2 ss = !ssK» cewss^M 

/* free the vertices of this column *^ 

void scColumn; :FreeShape( ) 
{ 

switch ( GetShapeType ( ) ) { 
case eVertShape: 

if ( fVertH i« mJLL ) 

MEMFreeHnd( CVertH ); 

fShapePieces - 0; 

fVertH - NULL; 

break ; 
case eRgnShape: 

if ( fRgnH NULL ) 

DisposeHRen( fRgnH ); 

fShapePieces ==0; 

fRsnH - MILL; 

break; 
default: 

break ; 

} 

} 
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if ( this === col ) 
return ; 

} 

raise ( scERRidentif ication ); 

} 

void scColumn: :FiniCTXList( void ) 
{ 

scColumn* col; 
scColumn* nestCol ; 

for ( col « fTheConteKtList; col; col = nextCol ) { 

SCDebugTrace( 1. scStrin0( "FinxCIXList : 0s?S08K\n" ) , col ); 

neKtCol = col->0etCoatext() ; 

col ->FreaStream { ) ; 

// must do this since all la3rout are tracked 
col->scTBOfoj ; :UnUnk{) ; 
col->Free() ; 

} 

} 

^oid scColumn: :SetVert Flex ( Bool tf, 

Z scRedispList* redispList ) 

y if ( tf ) 

1 SetShapeType ( eVertFlen ); 

^; f LayBits , f LayType - (eColShapeType) ( fLayBits.fLaylype & -"eVertFlex ) 

3 Mark( scIHVALlD ); 

LimitDama3e( redispList, scReformatTimeSiice ); 

:>oid scColumn: :SetHorzFleK( Bool tf^ 

'2 scRedispList* redispList ) 

if ( tf ) 

SetShapaType ( eHorzFlex ); 

el 

fLayBits.fLayType = (eColShapeType) ( fLayBits.fLayType Sc "'eHorsFlex ) 
Mark( scIHVALID ); 

LimitDamaee( redxspList, scReformatTimsSlice ); 

} 

void scColumn: ;SetShapeType( eColShapeXype type ) 
{ 

switch ( type ) { 
case eVertShape: 
case eRgnShape: 

if ( (eColShapeT3^e) fLayBits.fLayType I- type ) 

FreeShape ( ) ; 
fLayBits.fLayType type; 
break ; 
case eVertFlsx: 
case eHorzFleK: 
case eFlexShape: 
case el:^oShape: 

if ( (eColShapeType) fLayBits.fLayType & eIrregShape ) { 

we are trying to turn an irregularly shaped container 
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col->SetCount( count++ ); 

} 

y* creates a nem unlinked empty coluitin of spSfcified width and depth */ 

scColumn i ; scColuitm ( APPCoiumn appName , 
MicroPoiut widths 
MicroPoint depth, 
scStream* p, 
eCommonFlow flow ) ; 

fS1aapePieces( 0 ), 

fRgnH( 0 ), 

fNeKtConteKt ( 0 ), 

f AppName ( appMame ) ^ 

fColumnCount( 0 ), 

fSize( width, depth ), 

fFlowDir( flow 

f Stream { p ), 

f Selection ( 0 ), 

fFirstline{ 0 ) 

SetShapeXype ( eNoShape ) ; 

fInkEKtents.SetC 0, 0, 0, 0 ); 

/* add to context list */ 
AddToCTXListC ); 



if ( appName 0 ) 

fAppName (APPColumn)this; 



s'^icColumn* scColumn : :FindFlowset( const scStream* str ) 

l2 scColumn *col; 

'S' col flheConteKtList; 

for { ; col; col * col->GetConteKt () ) { 
if ( cal->GetStream() str ) 
hJ return col->GetFlowset () ; 

11 } 

^'^ return 0; 

O} 

void scColumn: : Del eteFromCIXLi St ( ) 
{ 

scColumn *col; 

col = fTheContestList; 

if ( this col ) 

fTheConteKtList ^ GetConteKt ( ) ; 
e Ise ■{ 

for ( ; col col->GetConteKt () l« this; col « col->GetConteKt ( ) ) 

if ('col ) 

col->SetContext( GetContext(} ); 

} 

} 

void scColumn: :VerifyCTXList( void ) const 
register scColumn* col; 

for ( col « fTheContextList; col; col ^ col->G©tConteKt ( ) ) { 
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if ( fVertH SSc GetShapeType ( ) eVertShape ) { 

scrapPolyH ^ MEKkllocHndC fShapePieces * siseof (scVertex) ); 

scAutoUnlock hi( scrapPolyH ); 

scAutoUalock h2( fVertH ); . . . . . 

SCmetnmoveC (scVertes*)*hl, (scVerteK»)*h2. {size„t) (fShapePieces * si2eof( scVerteK ) ) ); 

} 

scrapPolyH ^ IsIULL; 
«dstVertHP = scrapPolyH; 

} 

#endif 

this is primarily called when a column has chan^Bd, it forces a rebreak 
« of the paragraphs in the column, ' StrRerf omat ' should take care of damage 
* to subsequent paragraphs in subsequent columns, this also forces the 
» the rebreaking of any paragraphs that have no first line, thus if 
« a column is deleted it will force the correct rebreaking 
*/ 

void scColumn: :LimitDamage( scRedispList* redisplist, long ticks ) 
{ 

scContUnit* firstPara; 
scColumn* neKtcol; 

/* look thru the stream until we find an intersection of a paragraph 
» and a column, once we have an intersection we mark all the remaining 

* paragraphs to be rebroken, one problem is that if the column has been 
« made so small no lines are in it, then no paras are marked, the code 

^.11 » following the walk down the list takes care of that case 

■■^'1 if ( iGetRecompositionO ) { 
C3 Mark( scINVALID ); 

I"" return; 

h ^ 

if ( !GetStream() ) 
I ; I return ; 

if ( Marked ( scIWALID ) ) 
C3 firstPara « MarkParas( ); 

fi else 

firstPara ^ GetStream(); 

/» before we get into the stream make sure all paras that need to 

* be marked as REBREAK are marked as such 
*/ 

for ( nextcol - this; nested; neKtcol = nextcol->GetNeKt ( ) ) { 
if ( neKtcol ->Marked( scIHVALID ) ) 
neKtcol ->MarkParas ( ) ; 

} 



} 



scAssert( firstPara i= 0 ); 

STRReformat( this, firstPara, ticks, redisplist ); 



/* renumber all the columns 
void scColumn: : Renumber ( ) 

^ scColumn* col = (scColumn* )FirstInChain () ; 
long count; 



/* renumber */ 
for ( count = 0; col; col = col->GetHest () ) 
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Mark( scINVALID ); 

LxmitBamaee( redispList, scRe^formatTimeSl ice ); 

} 



«;ass5 2S3!!si=K = =f ssss ess assays s=s =5 ss = =;=!SK ss 

#if defined ( scColumnShapa ) 

/« add a polygon into the indicated column, rebreak and return 
» damaged areas 
»/ 

void scColumn: :PastePoly( scVertHandle srcVertH, 

scRedispList* redispList ) 

ushort shapePxeces; 
scVerteK »srcV, 
*dstV; 

raise„if( GetShapeType ( ) « eR^nShape. scERRstructure ); 

scAutoUnlock h{ srcVertH ); 
srcV » (scVerteK*)*h; 

shapePieces - POLYCountVerts ( srcV ); 

SetShapeXype ( eVertShape ); 

fVertH = MEMResiseHnd ( fVertH, shapePieces * siseof (scVerteK) ); 

C 3 

?S scAutoUnlock h2( fVertH ); 
dstV * (scVertes*)*h2; 

^.3 if C fShapePieces ) { 

dstV ( f ShapePieces - 1 ) ; 
I'^i scAssert( dstV->fPointType ^» eFinalPoint ); 

'J dstV->fPointType « eStopPoint; 

Q dstV++; 

; > 

C3 SCmeinmove( dstV, srcV, (size.t) (shapePieces * sizeof( scVerteK )) ); 
'Sj fShapePieces - (ushort )( f ShapePieces + shapePieces); 

Mark( scIKVALID ); 

LimitdamasBi redispList, scReformatTimeSlice ); 



[3} 



a ss » ss w s! SB JK se 1:= 



void scColumn; :ClearShape( scRedispList* redispList ) 

switch ( GetShapeType ( ) ) { 
case eVertShape: 
case eRgnShape: 

SetShapeXype ( eKoShape ); 

Mark( scIWALID ); 

LimitDamage( redispList, scReformatXimeSlice ); 

break ; 
case eVertFle^: 
case eHorzFlsK: 
case eFleKShape: 
case eHoShape: 

break; 

} 

} 



void scColumn; :CopyPoly( scVertHandle* dstVertHP ) 
scVertHandle scrapPolyH; 
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} 

/* paste a region into the indicated column, rebreak and return 
* damaged areas 
»/ 

void scColumn: :PasteRsn( const HR0nHandle srcRgnHr 

scRedispList* redispiist ) 



{ 



HRgnHandie dstRgnH; 
HRgn* 3rgn; 

raise^if ( srcRgnH NULL, scERRstructure ); 

dstRgnH » HewHRgnC R9HSliverSize( srcRgnH ) ); 

if ( FRgnH ) { 

SectHRgn( fRgnH. srcRgnH, dstRgnH ); 
DisposeHRgn( fRgnH ); 

} 

else { 

CopyHRen( dstRgnH, srcRgnH ); 
SetShapeType ( eRgnShape ); 

} 

fRgnH - dstRgnH; 
scAutoUnlock h( £Rsn}i }; 
rgn = (HRgn *)*h; 

fShapePieces = (ushort)rgn->fl^umSlivers; 



Mark( scINVALID ); 

LimitDamage( redispList, scRefonnatTizneSl ice ). 



^^oid scColumn: :CopyRgG( HRgnHandleS: dstRgn ) 

-J dstRgn N8*Rgn( R(l?SliverSise( FRgnH ) ); 
I J CopyHRgn{ dstRgn, fRgnH ); 



fV* paste a polygon into the indicated column, rebreak and return 
* damaged areas 
*/ 

void scColumn: :ReplacePoly( scVertHandle srcVertH, 

scRedispList* redispList ) 

^ ushort shapePieces; 
scVertex* srcV; 
scVertex* dstV; 

scAutoUnlock h( srcVertH ); 
srcV - (scVertes*)*h; 

shapePieces ^ POLYCountVerts ( srcV ); 

fVertH = MEMResizeHnd( fVertH, shapePieces * sizeof ( scVertes ) ); 

scAutoUnlock hl( FVertH ); 
dstV ^ (scVertes«)*hl; 

SCmejmaove{ dstV, srcV, (size_t) (shapePieces * sizeof ( scVerteK )) ); 
FShapePieces shapePieces; 

/* check if poly type is set 
SetShapeType ( eVertShape ); 



ft/ 
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se!lect">R$store( Sanark, 0, 0, false ); 

select->f Point. fCol ^ this; 

if ( Seiect( pt, Scselect->f Point, Mist ) ) 
select->LineHilite( func ); 

else 

raise ( scERRlogical ); 

} 

void scColumn: :InitialSelection( TypeSpecSc ts, 

scSelection*£c select ) 

{ 

scMuPoint mPt; 
TextMarker tm; 
REAL dist; 
scContUnit* firstPara; 
Bool i Added « false; 

select « KULL; 

raise.if( GetPrev(), scERRlogical ); 

if ( iGetStreamO ) { 

firstPara ^ scContUnit : :M locate ( ts, mJLL, OL ); 

// initialise spec cache 
■■^ scCachedStyle: :SetParaStyle( firstPara, ts ); 

^3 scCachedStyle: :aetCachedStyle( ts ); 

SetFlowset Stream ( (scStream*) firstPara ); 

J Mark( scIHVALID ); 

J LimitDamage( 0, scReformatTimeSlice ); 

i Added « true; 

> 

mPt.Set( 0, 0 ); 

if ( i Select C mPt, Sctm, Sdist ) ) { 
'4 if ( iAdded ) 

J FreeStream( ); 

T raise ( scERRstructure ); 

Z } 

;2 select FlowsetGetSelection() ; 
select->SetMark( tm ); 
select*>SetPoint< tm ); 

} 

void scColumn: :LineInfo( scLinelnfoList* linelnfoList, 

long& nLines, 
B00I& moreXext ) const 

{ 

scTextlme* txl ; 

nLines = GetLinecount ( ) ; 

moreXeKt « MoreTert{ ); 

if ( linelnfoList nLines ) { 
scLinelnfo 1 ineinf o ; 

lineInfoList->RemoveAll () ; 

for ( tKl « GetFirstlineO; txl; tnl « tsl->GetMeKt ( ) ) { 
txl->GetLineIafo( linelnfo ); 

1 ineinf oList->AppendData{ (£lementPtr)SclineInfo ); 

} 

} 
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void scColumn: : St arte lick ( const scMuPoint& pt. 

Hi i i teFuncPtr f unc ^ 
APPDr??Ctx, 

scSelection*£e select ) 



{ 



REAL dist; 
scSelection selection; 

if ( !GetStream() ) 
return ; 

select ion. fMark,f Col ^ this; 
COLSetSeiMdK( this, ^selection . fMark, pt ); 

raise^if ( ! Select ( pt. ^selection . fMark, Mist ), scERRlogical ); 
selection. f Point = selection . f Mark; 
select ion. LineHilite( func ); 
select * FlowsetGetSelectionO ; 
♦select ^ selection; 



=4» «/ 



CIvoid scColumn: :ContinueClick( const scMuPointS. pt, 
, Hi 1 i teFuncPtr func , 

It scSelection* select ) 

lU REAL dist; 

.^3 scSelection oldSeiection( *select ); 

raise_if( ! select->fMark . fCol , scERRstructure ); 

C3 if C IGetStreamO ) 
7' return; 

C3 select->fPoint,fCol ^ this; 

1^ if { iOetFirstlineO ) 
return; 

f''% // columns not in same stream, application program should catch this 

% raise if ( select->fMark. fCol->aetStream( ) l« select->fPoint .fCol->aetStream{} , scERRstructure 

COLSetSelMax ( this, &select->f Point , pt ); 

if ( Select ( pt, Saelect-> f Point , S<dist ) ) { 

select- >InteractiveHiiite( oidSelection, func ); 

} 

else 

raise ( scERRlogical ); 

} 

void scColumn: : St artSh if tC lick C scStreamLocation& mark, 

const scMuPointSs pt, 
HiliteFuncPtr func, 
APPBrwCtK, 

scSelectian*St select ) 

{ 

REAL dist; 

if ( !GetStream() ) 
return ; 

select « FlowsetGetSelectionO; 
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/* select something special indicated by the SelectType */ 

void scColumn ; ;Sel ect Specie 1 ( const scMuPointS: pt, 

eSelectModi fier selectMod , 
scSelection*6< select ) 

{ 

select = Floi^setGetSelection ( ) ; 

scSelection newSelection( *seiect ); 
REAL dist; 

if ( !GetStream() ) 
return; 



newSeiection.fMark.fCol « this; 
COLSetSelMaK C this, toewSelection .fMark, pt ); 

if ( selectMod eAllSelect ) 
newSelection.AllSelect ( ); 
else { 

#ifdef TESTEXimrs 
{ 

HRect KiaKEsRect^ ^* column ©Kteuts 

masMar^Rect; /* column margins */ 

/* if the point is to far out of the manExRect 
W * things will get ve^y slovf 

fn */ 

^~z, maxExRect = col ->f Extents; 

U- SetHRect( SimasMargRect ^ 0,, 0, coi->fWidth, col->fDepth ); 

UnionHRect( SmaxEsRect, SanaxMargRect * SaaxExRect ); 



s if ( jMuPtInHRect( pt, &masEKRect ) ) { 

/* the point is in (M's front yard */ 
return scERRbounds; 

J1 } 

yi^ndif TESTEXTEOTS */ 

1 3 raise_if( i Select ( pt, S=newSelection.fMark, &dist scERRbounds ); 

newSel ecti on .f Point = newSelection .fMark; 

switch ( selectMod ) { 
case eferdSelect; 

newSelection .WordSelect ( ) ; 

break ; 
case eLineSelect: 

newSelection . LineSelect ( ) ; 

break; 
case eParaSelect: 

newSelection .ParaSelect ( ) ; 

break; 
case eColumnSelect ; 

newSelection .ColuianSelect ( ) ; 

} 

} 

*seiect « newSelection; 

} 



Start selection in the original column 
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textMarker->fPara ^ tKl-">GetPara () ; 

teHtMarker->fTKl = txl; 

teKtMarker->f ParaCouut * teKtMarker->fPara->GetCount ( ) ; 
teKtMarker->fLineCount txl->GetLinecount() ; 

} 

} 

/« if no selection and the y position is 
« lower than the top of the last line, then 
* select the last char on the last line 
*/ 

/« assumes lines move from right to left »/ 
if ( vertical ) 

belowTest « ILlsIHext( txl ) hitPt.K < esRect.x2 St& «bestDist — DBL_MAX; 

g ][ se 

belowText « ILMeKt( txl ) £c& hitPt.y > exRect.y2 ScS: »bestDist DBL„MAX; 
if ( belowTeKt ) { 

*bestDist » tKl->Select( charOrg, count, hitPt, eCursFor^ard, textMarker->fEndOf Line 

testMarker->f Offset « txl->GetEndOffset () ; 
scMuPoint charOrg; 

charOrg ^ tsl->Locate( teKtMarker->fOf fset, charOrg, eCursForward ); 
if ( vertical ) 

teKtMarker->fHLoc « charOrg .y; 

else 

13 textMarker->fHLoc « charOrg. k; 

li textMarker-->fPara « tKl->GetPara ( } ; 

teKtMarker">fTs:l = txl; 

HJ textMarker->fParaCount « textMarker->fPara->GetCaunt () ; 

.1 textMarker-'>fLineCoiint « tKl->GetLinecount ( ) ; 

break ; 

if { vertical ) { 

fudgeHFactor — scPOIOTSCl) ; 
iJ fudgeVFactor scPOIisITS (8) ; 

H } 

z 5 else ■{ 

^■^ fudgeHFactor sGPOim:SC144) ; 

r-^ fudgeVFactor scPOIOTS(l); 

n } 

return ( textMarker->fPara != NULL ); 

} 

/* return a number that is the square of the dx plus the square of the 
» dy between the 'pt' and a significant point 
»/ 

void scColumn: :ClickEvaluate( const scMuPointSt pt, 

REALa dist ) 



{ 



TextMarker tm; 

REAL nearDist; 

dist - DBL.MAX; /* defined in scmath.h »/ 

if ( GetStreamO ) { 
tm.fCol ^ this; 

raise_if ( ! Select ( pt, Stm, EtnearDist ), scERRlogical ): 

} 

dist « nearDist; 
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else 

txl->Hilite{ HULL, LOHa^MIH, miLr tmQJ^. atppMd.t, func, selection ); 



} 



/» select text in a col at the given hit point 

Bool scCoZumn: : Select ( const scMuPointSr hitPt, 

TeKtMarker* teKtMarker , 

REAL* bestDist ) 

{ 

scXRect esRect; 
scTextline* txl; 
lon0 count; 
scMuPoint charOrg; 
MicroPoint fudg'eHFactor, 
fudgeVFactor; 
REAL dist; 
Bool belo^^eKt - false; 

Bool vertical « false; 

Int lineHum; 

vertical = GetFlowdir() -IsVertical () ; 

/* make first hit infinitely far away */ 
»bestDist * DBL^M^; 

textMarker->fCol this; 

te2£tMarker->fColCouat ^ GetCount(); 

13 testMarker-'>fPara = NULL; 

testMarker'->fTKl « NULL; 

fudgeHFactor ^ fudgeVFactor 0; 

'5 while ( GetFirstlineO ! ten tMarker->f Para ) { 

for ( lineHum = 0, tKl - GetFirstliueO ; txl; tzl LMsfeKt( tKl }, linelslum4+ ) { 

ly 

"^J tKl-->QueryEKtents( eKRect ); 

fi // grow hit by fud^e factor to account for sloppy hits, 

how well will this worked on zoomed text?, this value 
// IS in world coordinates, HOT the screen coordinates 
13 e^Rect .Inset ( fudgeHFactor, fudgeVFactor ); 

,1 if i esiEect .PinRect( hitPt ) ) { 

SCdEBW > 1 

U SCDebugTrace( 2, scStrine( "COLSelect: line #%d (%d,%d) (%d Zd 5£d %d)\n" 

lineHum, 

Ti. muPoints( hitPt.K ), muPoints( hitPt.y ), 

muPoiiits{ eHRect.al ), iuuPoints( exRect.yl 
muPoints( exRect.KZ ), muPoints( eKRect,y2 ) ); 

#endif 

Bool endOfLine; 

/'y' we have a hit within the extents of the line, now see 
exactly where on the line we may have selected 
dist « tsl-'>Select ( charOrg/ count, hitPt, eCursNoMovement , endOfLine ); 

if ( dist < »bestDist ) { 

// we have a hit that is better than any previous hit 
*bestDist dist; 

if { vertical ) 

textMarker->fHLoc * charOrg.y; 

else 

te5£tMarker">fHLoc charOrg.K; 

textMarker->fOf fset * count; 

// if ( LNOrigin( txl ) + LNLength(txl ) fHLoc &St LKIsHyphenated ( tsl ) ) 

testMarker~>f EndOfLine * true; 

// else 

teKtMarker->f EndOfLine ^ endOfLine; 
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scXRect lineDamage; 

rdl ,LineListChanges( this, lineDajtiage, redispList ); 
col->Unmark( scREALIGM ); 

} 

} 

scSelection* select = F 1 owse t Get Select! on () ; 
select">UpdateSelection( ); 



#if SCDEBUG > 1 




void scColuran : :scAssert Valid ( Bool recurse ) const 
{ 

scTBObj ; iscAssertValid ( reciirse ) ; 
if C I recurs© ) { 

if ( fFirstline ) 

fFirstline'>scAssertValid( Balse ); 

if ( f Stream ) 

fStredin->scAssertVal id ( false ); 

} 

} 

#endif 

should ^& reformat this column or wait till later 
ffili 1 scCo 1 uitin : : DamOpen ( ) 

r-r^r. return APPRecomposeColumn( GetAPPName() ); 

/p,:set the mas selection extent based upon the column flow direction */ 

sMtic void COLSetSelMaK ( scColumn* col, 
13 Te^tMarker* tm. 

const scMuPointSi muPt ) 

iU 

if ( col->GetFlowdir() .IsVertical C) ) 
'''■4 tm->fSelMas:X ^ muPt.y; 
else 

tm->fSelMaKX « muPt.K; 

}% 

y^'luilite or dehiiite the characters in this column 

void scColumn ;: Hi lite ( const TextMarkerSt tmMark, 

const TextMarkerS* tmPoint, 

Hi 1 i teFuncPtr f unc , 

const scSelectionSt selection ) 



{ 



scTestline* txl; 
scTeKtline* lastTsti; 

scTextline* txll ^ tioMark . fX^rl ; 

scTextline* t^l2 * tmPoiut-fTsl; 

MicroPomt startLoc tmMark . fHLoc , 

stopLoc « tznPoint .fHLoc; 
APPDrwCtx appMat ; 

APPDrawConteEt ( GetAPPHame ( ) . this, appMat ); 
lastlKl - txl2->GetNeKt(}; 

for ( tsl ^ txll; tsl &Sc tzl UstTxi; txl « tKl">GetNext () ) { 
if ( txl txll ) 

tKl->Hilite( SttmMark. startLoc. Ii^ULL. LONG„MAX, appMat, func, selection ) 
else if ( txl txiZ ) 

tKl->Hilite( TOLL, LONG^MIN, ^tmPoint, stopLoc^ appMat, func, selection ) 
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Bool scColumn; :GetRecomposition( void ) const 
{ 

scColumn* col - {scColumii«)FirstInChain() ; 
return col->Marked( scLAYcomposeACTIVE ); 

} 

// get the selection object associated ^s?ith the flowset, if there is 
// none it will create one 

©cSelection* scColumn : :FlowsetGetSe lection ( void ) 
{ 

scColumn* col (scGoluffin*)FirstInChain() : 

if ( lcol->GetSelection() ) 

col->SetSelection( SCKIEW scSelection( col ) ); 

return col ->GetSelect ion ( ) ; 



// set the selection object for the flowset none should exist, 
// since if it does error recovery might be a bit tricky 

void scCoiumn: '.Flowse tSet Select ion ( scSeiection* sel ) 

{ 

scColumn* col = (scColumn*)FirstInChaxn{) ; 
^1 col->SetSelection( sel ); 

AAxhxB removes the selection from the flowset 
/|<sNOTE: it does not delete it 

vd-id scColumn: : Flowse tRemoveSe lection ( void ) 

scColiunn* col (scColuTnn*)FirstInChain() ; 

col->SetSelection( 0 ); 

viSSd scColumn: : Flowse tInvalidateSe lection ( void ) 

scColumn* col - (scColumn* ) First InChain( ) ; 

scSelection* sel = col->GetSelection() ; 

if ( sel ) 

sel->Invalidate() ; 

} 

void scColumn: :RecomposeFlowset( long ticks^ scRedispList* redispList ) 
{ 

scColumn* col « (scColumn* ) FirstlnChain () > 

SetRecompositionC true ); 

for ( ; col; col « col->aetHext () ) { 

if ( col->Marked( sdHViy^ID ) col->BamOpen () ) 

coI->LimitDamage ( redispList, ticks ); 
else if ( col->Marked( scREALKM ) ) { 

scRedisplayStoredLine rdl ( GetLinecount ( ) ); 
rdi .S3veLineList( this ); 



col->VertJustify() ; 
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// pointer to first line 
^hvt£ « BufSet_lons( pbuf, 0^ kIntelOrder ); 



// flow direction 

pbuf = BufSet_short( pbuf^ (ushort)fFlowDir .GatLineDir () , klntelOrder ); 
pbiiF = BufSet„short{ pbuf, (ushort)fFlowDir.i^tCharDir () , klntelOrder ); 

// width & depth 
pbuf =^ BufSet_long( pbuf, fSise.Width() . kIntelOrder ); 
pbuf * Bu£Set_„lone( pbuf, f Size. Depth Q ^ kIntalOrder ); 

// application name 
pbuf = BufSet„lone( pbuf, 

AFPPointerToDiskID( ctsPtr. fAppName^ diskidColumn 
klntelOrder ) ; 

// count 

pbuf ^ BufSet_lon0( pbuf, GetCount(), kIntelOrder ); 

scAssert ( (size_t) (pbuf-abuf ) FILE_SI2E„C0LUHW ); 

WriteBytes( abu£. ctsPtr, writeFunc, FILERS I ZE^COLUMN ); 

WriteLong( (ulons)fShapePieces^ ct^Ptr, writeFunc, kIntelOrder ); 

switch ( GetShapeType ( ) ) { 

default: 
C5 break; 

IZ case eVertShape: 

POLYtoFile( ctxPtr. writeFunc, fV^frtH, fShap^Pi^ces ); 
lli break; 

^r'"; case eRgnSbape; 

RWtoFil&i ctxPtr, witeFunc, fRgnH. fShap^Pieces ); 
""'4 break; 

13 } 

!^ if ( IGetPrevC) ) 

13 fStream->STRToFile( ctxPtr. writeFutic ); 

vajd scColuitin : :RestorePointers( scSet* enumTabie ) 

if ( I Marked ( scPTRRESTORED ) ) { 

scTBObj : :RestorePointers( anumXable ); 

AddToCmistO; 

fStream - (scStream*)enumTable->Get ( (long)fStream ); 
if ( /aetPrevO ) 

fStream->STRRestorePointers( eniunTable ); 

} 

} 

void scColumn: :SetRecomposition( Bool tf ) 
{ 

scColumn* col ^ (scColuian*)FirstInChain () ; 

if ( tf ) 

col->Mark( scLAYcomposeACTIVE ); 

else 

col->Unmark( scLAYcomposeACTIVE ); 

} 
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pbuf = Bu£Get_long( pbuf^ uval^ kIntelDrder }; 
f St ream « (scStreaffi*)iival ; 

pointer to first line 
pbvif ^ BufGet„ion9( pb^f, uvai, kIstelOrt&r ); 
scAsssrt( uval 0 ); 



// flow direction 
ushort uflow; 

pbuf « Buf Get„short ( pbuf, uflow^ kIntelOrder ); 
fFlowDir.SetLineDir( (eTeKtDirections)uf low ); 

pbuf ^ BufGet„short{ pbuf. uflow, kIntelOrder ); 
fFlowDir.SstChdrDir( ($TeEtDirections)uf lo?? ); 

width depth 
pbuf * BufGet„lon0( pbuf, uval, kIntelOrder ); 
fSize.SetWidth( uval ); 

pbuf = BufGet_long( pbuf^ uval, kIntelOrder ); 
eSiz0.Setd&pthi uvai ); 

// application name 
pbuf - BufG«t_long{ pbuf, uval, kIntelOrder ); 

fAppName « (APPCcIumn)APPDiskIBToPointer( ctKPtr, (longjuval, diskidColumu ); 
// count 

pbuf « BufG©t_iong( pbuf, uval, kIntelOrder ); 
fColumnCount =^ uval; 

£3 

-^3 scAssert ( (si2e_t ) (pbuf -abuf ) FILERS I ZE^COLUHM ); 

j'' // shape type 
ly long val; 

'%i RifeadLong( val, ctKPtr, readFunc^ kIntelOrder ); 
if ( val ) { 

HRgnHandle rgnH * RGHfromFile( ctsPtr^ readFuiac, fSbapePiscss ); 

SatSbapeT^/^e ( eRgnShape ) ; 

53 fRgnH « rgnH; 

i:\ scAutollnlock h( fRgnH ); 
:^ HRgn* rgn « (HRgn *)«h; 

11 fShapePieces (ushort ) rgn- >fHumSl i vers; 

ra > 

else 

fShapePieces * 0; 

if ( IGetPrevO ) 

scStraain: :STRFromFxls( enumlable, ct^Ptr, raadFunc ); 

} 

y* ACTUAL WRITE, this perfortas the write out of the column data structure, 

* paragraphs are written out with the fi3?st column in a set of linked columns 

* other than the column itself the only thing we will be writting out will 

* be the outline vertices 
»/ 

void scColumn: :Write( APPCtxPtr ctxPtr, 

lOFuncPtr writeFunc ) 

{ 

scTBObj : :Write( ctxPtr, writeFunc ); 

uchar afouf f FILE_SI2E„C0LUM1;I] ; 
uchar* pbuf « abuf; 

// pointer to stream 
pbuf - BufSet_long( pbuf. f Stream ? fStrea2n->GetEnumCount () : 0, kInteiOrder ) 
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File: SCCOLIM^.C 

$Header: /Projects/Toolbox/ct/SccoluKm .cpp 4 5/30/97 8:45a Wmanis $ 
Contains; The 'methods' for the column objects. 
Written by: Man is 

Copyright (c) 1989-94 Stouehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an adkisBion or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

#include "sccolumn.h" 

#include "scpubcbj,h" 

#include "scapptex .h" 

#include '*sccallbk.h" 

#include "scstcach.h" 

#incliide "scglobda.h" 

#jnclude "scmem,h" 

ISnclude "scparagr .h" 

fgiclude "scpolygo.b" 

iisic 1 ude " screg i on . h " 

liiiclude "scselect .h" 

ftlaclude '^scstream.h" 

MQiclude "scset.h" 

^include "scteKtli.h" 

fnicluds "screfdat.h" 

#i4sclude "scfileio.h" 

#include <float.h> 

sl^t^olumn* scColumn: rflheContextList * 0; 

s&Golumn: :'^scColu«in() 
{ 

delete f Selection, f Selection « 0; 

} 

#define FILERS I ZE„C0LIM 28 



void scColumn : :Read ( scSet* enumTable, 
APPCtsPtr ctKPtr. 
lOFuncPtr readFunc ) 



{ 



uchar abuf [ FILERS IZE^COLIMI] ; 

const uchar* pbuf « abuf; 

scTBObj : :Read( enumTable, ctxPtr^ readFunc ); 
MarkC scimkLW ); 

// read in the rest of the columns data 
ReadBy^es( abuf, ctjrPtr, readFunc, FILE„SIZ£„COLUMl!? ); 

pointer to stream 
ulong uval; 
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#endif /* _H_SCCOHMI */ 
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void 



virtual Bool 
private : 

static scColmnn* 
void 

scColumn* 

APPColumn 

Ions 
#if 0 

MicroPoxnt fWidth; 

Mi croPo i nt f Depth ; 

#else 

scSize 
#endif 

scFiowDir 

C JscStream* 
./jscSelection* 

JIJscXRect 

^.JscTestline* 

,;^ushort 
"bunion { 

ll scVertHandle 
HRgnHandie 

=; 3B 5s W :si 2s is -ss as « sc as =s St sx as 



M^iae FIRST_LI1;IE„P0SITI0H 
#ditjine HorzFle^Measure 

/*^Hhese seems arbitrary, 
« but we need to get it 
* away from LOHG_MAX 
*/ 



} 

SetSel©ction( saSelection* sel ) 
{ 

f Selection - sel; 

} 

// actually allocate the real estate for lines 
GetStrip2{ scLINERef Da ta&, int, scCOLRefData& ); 



fTheContestList ; 
CreateSelection( void ); 
fNextContest; 
f AppName ; 
fColumnCount; 



application name 



fSize; 

fFIowDir; 

f St ream; 
f Select ion; 

fInkEKtents; 

fFirstline; 

fShapePieces; 

fVertH; 
fRgnH; 



// width of column 
depth of column 



// the basic flow direction of a container 
y/ hook into stream 

// actual extents w/ italics, idents, etc. 
// first line of the column 
// num of components of shape 



(L0l!3G„MIH + 1) 
(LOHG_MAX - one„pioa) 



/* stssssssttasssssssESSsssssi 



/* OPTIMIZATIONS 

#def ine COLShapePieces ( c ) ( {c)~> fShapePieces ) 



/* PROTOTYPES */ 
/»»***»»»»«*»»*»*#»»»»»» 



»»»»»»»*»*»*»«»»»***»»»****»*»»»**»***»**»»**»*/ 



short COLLineNum( scSelection* ); 



/ # _ _ _ a, = 2t as S! =s K « 5S =E K s:: 63 a: ss w « is « » 5S = » ss as » 

/« =i ss SK s: s^ ss s a at ts: ss ss 1= ^ ss a a a = ss: a s: ss =s =s « a a: rs =£ a as s= a a SI 
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void 



void 
void 



AddToCTXList( ) 
{ 

fHextConteKt 
fThsCoataxtList = 

} 

BeleteFromCTXList ( ) ; 
VerifyCnXList( void ) const; 



fXheContextList; 
this; 



static wid ChangedTS( TypeSpec, eSpecTask, scRedispList* )j 
static void Update ( scRedispLlst* ); 



void 



LineInfo( scLinelnfoList*, 
longSt, 

BoolSc ) const; 



void 
void 
void 



VertJustify( void 

SetDepthHVJ( MicroFoint, scRedispList* ); 
SetVJ( eVertJust ); 



// COLUMl^ SELECTION 
void ClickEvaliiate( const scMuPointS^, 

REAL& ); 



void 



void 



void 



StartShi f tCl ick ( scStreaaiLocat xon&, 
const scMuPointSc, 
HiiiteFuncPtr, 
APPDrwCtK, 
scSelection»Sc ) ; 

StartCIick( const scMuPointSc, 
HiliteFuncPtr, 
APPDrwCts, 
scSelection^S: ) ; 

ContinueClickf const scMtiPointS: , 
HiliteFuncPtr, 
scSelection* ); 



Bool 



Select { const scMuPointSt hitPt, 

TextMarker* testMarker , 

REAL* bestDist ); 



void 
void 

void 
void 
void 



InitialSelection( TypeSpecSc, scSelection*& ); 

SelectSpecial ( const scMuPointSc, 
eSelectModifier, 
scSelection*& ); 

LimitDamageC scRedispList*, long ); 

PasteAPPTeKt ( stText Import Exports*, scRedispList* ); 

ReadTestFile( TypeSpec, 
APPCtsPtr, 
lOFuncPtr. 
scRedispList* ) ; 



protected : 



scSelection* 



// do not confuse the following with flowset operations 
0etSelection{ void ) 
{ 

return f Select ion; 
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} 

scColumn* GetPrev( void ) const 

{ 

return (scCoIumn* ) Prev ( ) ; 

} 

scColumn* GetNextC void ) const { return (scCoiumn*)NeKt () ; } 

void SetCount( long count ) 

{ 

fColumnCount = count; 

} 

long GetCount( void ) const 

{ 

return fColumnCount; 

} 

void SetFlowdir{ const scFlowDir& fd ) 

{ 

fFlowDir ^ fd; 

} 

const scFlowDirSc GetFiowdir( void ) const 
{ 

return fFlowBir; 

} 



void 



scColumn* 



/I void 
void 
"^J Bool 



C3 Bool 



SetConte:^t( scColumn* ctx ) 
{ 

fHextContext « ctK; 

} 

fetConteKt( void } const 
{ 

return fKestContext; 

} 

SetVertFleK( Bool, scRedispList* ); 
SetHorsFiex{ Bool, scRedispList* }; 
GetVertFleK( void ) const 
{ 

return GetShapeiype ( ) & eVertFlen; 

} 

GetHorsFlesC void ) const 



return GetShapeType ( ) & eHorzFlex; 



^i;r„ void 
void 
void 
void 
void 

void 
void 

void 
#if SCDEBUQ > 1 

virtual void 

void 
#else 

virtual void 
#endif 



Delete ( scRedispList* ); 
Free{ void ); 
FreeShape( void ); 
FreeScrap( void ); 

UpdateLine( scImmediateRedispSt, APPDrwCtx ); 

LineEKt0nts( scInanediateRedispSc ); 
FreeLines( Bool, scXHect& ); 

Inwrt£Ktents{ HiliteFuncPtr, APPDrwCtx ); 

scAssertValid ( Bool recurse - true ) const; 
DbgPrintInfo( mt debugLevel - 0 ) const; 

scAssertValid( Bool ^ true ) const{} 



static scColumn* FindFlowset( const scStream* ); 

context list 
static scColumn* GetBaseContextList( void ) 
{ 

return fXheContextList ; 

} 

static void FiniCTXList( void ); 
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eVerrtJust 



void 



eColShapeType 



void 



GetVertJust( void ) const 
{ 

return {eVert Just ) f LayBits , f LayAdjustment ; 

} 

SetVert Just ( eVertJust vj ) 
{ 

fLayBits.fLayAdjustment - v j ; 

} 

GetShapeType ( void ) const 

{ 

return (eColShapeXype) fLayBits . f LayType; 

} 

SetShapeType ( eColShapeXype st ); 



ushort GetShapePieces( void ) const 

{ 

return fShapePieces; 

} 

scVertHandle GetVertList( void ) const 
{ 

return fVertH; 

} 

void S$tVartList( scVertHandle vl ) 

{ 

fVertH « vl; 

} 



1% HRgnHandle 



void 



void 



i^pPColumn 



void 



MicroPoint 



void 

MicroPoint 
void 



const scSizeSt 



void 



GetRgn( void ) const 
{ 

return fRgnH; 

} 

SetRgnC HRgnHandle rgn ) 

{ 

fRgnH ^ rgn; 

} 

SetAPPMameC APPColumn appcol ) 
{ 

fAppName « appcol; 

} 

GetAPPMaine{ void ) const 
{ 

return fAppHaiae; 

} 

SetWidth( MicroPoint w ) 
{ 

fSize.SetWidth( w ); 

} 

Width ( void ) const 
{ 

return f Size .Width ( ) ; 

} 

SetDepth( MicroPoint d ) 
Depth ( void ) const 

SetSi2e{ const scSizeSs size ) 
{ 

fSize = size; 

} 

GetSxze( void ) const 
{ 

return fSize; 

} 



SetSize( MicroPoint MicroPoint d ) 
{ 

fSize.SetWidthC w fSize .SetDepth ( d ); 



{ fSize.SetDepth( d ); } 
{ return f Size .Depth {) ; } 
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void Rebreak( scfedispList* ); 

void RebreakZ ( scRedispList* ) ; 

void EsternalSize( long& ); 

void ZeroEnumex"ation( void ); 

Bool GetStrip( scLINERefDataS*, int. scCOLRefData^ ); 

void DeleteEKcessLines( scContUnit*, scTentline*, Bool^ scCOLRefDataSc ); 

/////////////////// C0LIM3 SHAPE METHODS ////////////////////////// 

void RepiacePoly( scVertHandle, scRedispList* ); 

void PastePoly( scV^rtHaBdie, scR©dispList« ); 

void CopyPoly{ scVertHandle* ); 

void PasteRgn( const HRgnHandle, scRedispList* ); 

void CopyHgn( HRsn^andleSc ); 

void ClearShape( scRedispList* ); 



///////////////// COLIMJ LINKAGE METHODS 



void Link( scColumn*, Bool, scRedispList* ); 

void Unlink( scRedispList* ); 

void Renumber ( void ); 

void BreakCliain( scColuxtin* ); 

get the next or previous column that 
// actually contains lines (i.e. coxaposed text ) 

// 

scColumn* PrevWithLines( void ) const; 

scColum* NeKtWithLines( void ) const; 

void ComputeInfcEKtents( void ); 

void SetInkEstents( MicroPoint k1, MicroPoint yl, MicroPoint MicroPomt y2 ) 

fInkExtents.Set( k1, yl, k2^ y2 ); 

} 

const scXRectS: GetInkEKtents( void ) const 
{ 

return fInkEKtents; 

} 

void UnionInkExtents( const scXRect^ xrect ) 

{ 

fInkExtents .Union ( xrect ); 

} 



Bool 
Bool 

scStream* 



void 



void 
void 



MoreTeKt( void ) const; 
HasText( void ) const; 

GetStreaitt( void ) const 
{ 

return f Stream; 

} 

SetStreamC scStream* stream ) 
{ 

fStreaffi = stream; 

} 

SetFlowsetStream( scStream* stream ')\ 
FreeStream( void ); 
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APFDsrwCtK^ 

const scHuPoint* translation 0 ) ; 



wid 



Halite( const TeKtMarkerS:, 
const Tes:tMarker£c, 
HiliteFuncPtr^ 

const scSelectionSt selection ) , 



// FILE I/O 

// complete the read 
virtual void Read( scSet*, APPCtKPtr, lOFuncPtr ); 

// complete the write 
virtual void Write ( APPCtxPtr, lOFuncPtr ); 

// restore the pointers after completing a read 
virtual void RestorePointers( scSet* ); 



void 
Bool 



SetRecomposition ( Bool tf ); 
GetRecomposition( void ) const; 



// get or set the first line of the column 

// 

scTsKtlins* GetFirstline( void ) const 
{ 

return f First line; 

} 

void SetFirstline( scTextline* tKl } 

{ 

fFirstline » t^l; 

} 

scTeKtline* GetLastline( void ) const; 



void TranslateLines( const scMuPointSt ); 

void R©positionLines( void ); 

scContUnit* MarkParas( void ); 
scContUnit* LastPara( void ) const; 

return the first paragraph m this container 
for reformatting purposes, we will assume that 
// the previous container has been successfully 
// reformatted 
scContUnit* FirstPara( void ) const; 



return the number of lines for this column, 
// if it is not fomatted it will return -i 
ushort GetLinecount ( void ) const; 

virtual void Resizef const scSise& size, scRedispList* 0 ) ; 
void Resize( MicroPomt, MicroPoint, scRedispList* 0 ); 

scXRectSc RepaintExtent C scXRectS ); 

void QueryMargins( scXRectS< ) const; 

void QuerySi2:e( scSizeS* ) const; 

void QueryTextDepth ( MicroPoint£= ) const; 

MicroPoint TextDepth( void ) const; 

void GetTSList( scTypeSpecList& ) const; 



// should we reformat this column or wait till later 
Bool 0amOpen( void ); 
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///////////////////// FLOW SET METHODS 



void 



void 



void 



// delete the stream from the flowset 
// RETURNS the damaged area(s) 

// 

FlowsetClearStream( scRedispList* ); 

remove the stream from the flowset 
// REIURNS the damaged area(s) 
// 

FlowsetCutStreatm( scStream*, scRedispList*) ; 

paste the stream into the flowset 
// RETURNS the damaged area(s) 

// 

F 1 owset Fastest ream ( scStream*, scRedispList* ): 



scSelection* 



f\\ void 



void 



// get the selection object associated with 

the flowset, if there is none it will 
// create one 
// 

Flowset0etSelection( void ); 

// set the selection object for the flowset 
// none should exists since if it does 
// error recoveiy might be a bit tricky 

// 

FlowsetSetSelection{ scSelection* ); 

// this removes the selection from the flowset 
NOTE: it does not delete it 

// 

FlowsetRemoveSelection( void ); 



void 

[3 void 

scColumn* 

void 



invalidate any selection associated with 
// the flowset 
FlowsetInvalidateSelection( void ); 

// set the flow for the flowset 

all containers in a flowset must have the 
same flow at this time 
FlowsetSetFlowdirC coast scFlowDirSc ); 

GetFlowset( void ) const 

return (scColumn*)FirstInChain() ; 

RecomposeF 1 owset ( long ticks LONG^MAX. 

scRedispList* redisplist 0 ) ; 




void 



Enumerate ( longSt ); 



virtual void 



// draw the column updating the area 
// intersected by the damage rect 

Draw( const scXRectSc damagedRect. 
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File: SCCOLUM.H 

SHsader: /PTOjects/Toolbox/ct/SCCOLUHK.H 2 5/30/97 8:45ai toanis $ 
Contains: text container definitions 
Written by: Man is 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved* 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

***************^********^^**^*******^*^^^^ 

#ifndef ^H.SCCOLUM 
#define Ji_^BQCOLUm 

#include ^'sctbobj.h" 



dMss scRedispList; 
cajtss soSelection; 
c|jlss TeKtMarker; 
allss scImmediateRedisp; 
ci'dss stTeKt Import Export; 
cliss scLIHERef Data ; 
class scCOLRefData; 
cl^ss scXRect; 
ci=dss scRedispList; 
cliss scTypeSpecList; 
c|4ss scLinelnfoList; 
cliiss scSpecLocList; 
/f !:iHE COLUMN OBJECT */ 

clqss scColumn : public scTBObj { 
scDECLARE^RTTI ; 

friend class scCOLRefData; 



public; 



scColumn( APPColumn, 
MicroPoint, 
MicroPoint, 
scStream* p 
eCommottFlow 



flow 



eRomanFlow ), 



scColumn () : 

fShapePl eces( 0 
fRgnH( 0 

fNeKtContext ( 0 ) , 
fApplsrame( 0 ), 
fColumnCount( 0 ), 
fSize( 0, 0 

fFlowDir( eRomanFlow ), 
f Stream ( 0 
fSelection{ 0 
fFirstline( 0 ){} 

"^scColumnO ; 
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SCDebugXrace ( 0, scString( "SCSPECLOCLIST\n" ) ); 
#endif 

TypeSpec scSpecLocList : :GetLaiStValidSpec ( void ) const 

for ( int i « Miunltems() ~ 1; i >^ 0; i— ) { 
if ( (*tliis)[i].spec().ptr() ) 
return (*this) [i] .sp©c:() ; 

return 0; 

} 

TypeSpec scSpecLocList : :GetFirstVaLlidSpec( void ) const 

for ( int i = 0; i < Kfumltems{); i++ ) { 
if ( (*this)[i].speo().ptr() ) 
return (*this) [i ] .specQ ; 

return 0; 

} 

TypeSpec scSpecLocList : :GetNthVaiidSpec ( int nth ) const 

for ( int i = 0; i < NumI terns () ; i++ ) { 
!f if ( (*this) [i] .specO ,ptr() —nth 0 ) 
return (*this) [i] .spec( ) ; 

' Z return 0 ; 
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fPosOnLine( si .fPosOnLine 

£SelMasX( sl.fSelKaKX 

fFont{ sl.fFont 

fPointSi2e{ si .fPointSize 

fBaseiine( si . f Base line! 

f Measure ( sl.f Measure 

f LetterSpace ( si . f LetterSpace ) , 

£'WordSpace( si . fWordSpace ) 



scStreamLocation : :scStreamLocation ( ) 

f Stream ( 0 

fAPPColuinn{ 0 ), 

fParaNumt 0 

fParaOffset( 0 )r 

£EndO£line( 0 

fTh©Ch( 0 

f Flags ( 0 ), 

fUnitType( eNoUnit 

fTheChWidth( 0 

fChSpec( 0 

fParaSpec( 0 

fPosOnLine( 0 ), 

fSelMasX( 0 ), 

fFont( 0 ), 

fPointSize( 0 
s^i fBaseline( 0 )^ 
""I f Measure ( 0 
'^f FLetterSpace ( 0 
|n fWordSpaceC 0 ) 

fa 



ymd scStreamLocation : ; Ini t ( ) 

s f Stream « 0; 

fi fAPPColumn - 0; 

n fParaNum - 0; 

fParaOffset ^ 0; 

|y fEndOfLine « 0; 

fTheCh = 0; 

fFlags « 0; 

!; fUnitXype * eHoUnit; 

13 fTheChWidth « 0; 

£ChSpec» clear 0 ; 

f ParaSpec .clear ( ) ; 

fPosOnLine « 0; 

fSelMascX « 0; 

fFont 0; 

fPointSize » 0; 

f Baseline =0; 

fMeasure - 0; 

FLetterSpace =0; 

fWordSpace = 0; 

} 



#if SCDEBUG > 1 

void scSpecLocList; ;DbePrint( void ) const 

SCDebugTrace( 0, scString{ "\nSCSP£CLOCLIST\n" ) )* 
for ( int i » 0; i < HmltemsO ; i-i-+ ) { 

SCDebugTrace ( 0, scString( "\tscCharSpecLoc { Zd Xd ) OxXQBx\n" 

(*this ) [i ] .offset ( ) . f ParaOf f set . 

(*this) [i] -offsetO .fCharOffset. 

(*this) [i] .specO ); 
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fKeyCode 
field. 

fReplacedChar 
replacedf ield_ 
fEscapeinent 

f Restores© 1 ect 
fMark 

return *this; 



rec . f KeyCode ; 

rec.£ield_; 

rec . f ReplacedChar; 

rec.replacedf ield„; 

reef Escapement; 

reef Spec; 

rec . f NoOp ; 

rec . fRestoreSelect ; 

rec. fMark; 



} 

scKeyRecord : :~scKe!yRecord ( ) 

{ 
} 

void scKeyRecord : : Invert ( ) 
{ 

UCS2 tmpChar = fReplacedChar; 
fReplacedChar ^ f KeyCode; 
f KeyCode « tmpChar; 

uintS tmpfield « replaced fields 
replacedf ield_ ^ field_; 
ri fields * tmpfield; 

la 



^!^treamLocationS= scStreamLocati on :: opera tor=» ( const scStreamLocationSc si ) 

^1 

|y f Stream * sl.fStream; 

^^J fAPPColumn - si . fAPPColumn; 

fParaisTum « si . fParaNum; 

fParaOffset - si .fParaOffset; 

- fEndOfLine - si ,fEndOfLine; 

O fXheCh « sl.fTheCh; 

f Flags ^ si. f Flags; 

,1 fUnitType « si .fUnitlype; 

Vd fTheChWidth - si , fXheChWidth; 

H fChSpec - sl.fChSpec; 

f=% fParaSpec « si .fParaSpec; 

2Z iPosOnline » si .fPosOnLine; 

U fSelMaxX « sl.fSelMasX; 

fFont ^ sl.fFont; 

fPointSize ^ si .fPointSise; 

f Baseline « si .f Baseline; 

fMeasure « si, f Measure; 

fLetterSpaca - si . fLetterSpace; 

fWordSpace « si .fWordSpace; 

return *this; 



scStreamLocation: :scSt3reamLocation( const scStreamLocationSc si ) 
£Stream( sl.fStream ), 
fAPPColumn ( si .fAPPColumn ). 
fParaNumC sl.fParaHum 
fParaOffset( si .fParaOf fset ). 
fEndOfLine { si . fEndOfLine 
fTheCh( sl.fTheCli 
f Flags ( si. f Flags ), 
fUnitType ( sl.fUnitType ), 
fTheChWidth( si . fXheCbWidth ), 
f ChSpec ( si . f ChSpec ) , 
fParaSpec C si. fParaSpec 
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File: SCCSPECL.C 

SHeader: /Projects/ToolboK/ct/SCCSPECL .CPP 2 5/30/^97 8:45d Wmanis $ 
Contains: Maintains typespec list. 
Written by: Man is 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved* 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

#include "scpubobj.h" 



void scTypeSpecList: : Insert ( TypeSpecSc ts ) 

il 

"Z for { int i « 0; 1 < Kumltems(); i+n- ) { 
]^ if ( ts.ptrO (*this)[i].ptr() ) 

ifl return; 

fU > 

' Append ( ts ) ; 

H 

sc'KeyRecord : : scKeyRecord ( ) : 

s type_( insert 

O fKeyCode( 0 ), 

:i fHeplacedChar( 0 

/1 field„( 0 ), 

ly replaced fields ( 0 

fEscapement( 0 

fSpec( 0 
:f fNoOp( 0 }, 
a fRestoreSelect( 0 ) 
{ 
} 



scKeyRecord: ; scKeyRecord { const scKeyRecordSc rec ) 

t5^e_ « rec.type„; 

fKeyCode = rec . f ReyCode ; 

fields = rec.field_; 

fReplacedChar = rec. fReplacedChar; 

replacedf ield_ « rec .replaced fie ld„; 

f Escapement ^ rec . f Escapement ; 

fSpec = reef Spec; 

fNoOp ^ rec.fHoOp; 

fRestoreSelect ^ rec , fRestoreSelect; 

fMark * reef Mark; 

} 

scKeyRecordSc scKeyRecord :; operator^ { const scKeyRecord^ rec ) 
{ 

type_ * rec.type_; 
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/* determines whether or not to store just the character and its flags or 
* the character, its flags and its escapement 
*/ 

Bool CTStoreAll( UCS2 ch ) 
{ 

switch ( ch ) { 
default: 

return False; 
case scFixAbsSpace: 
case scFiKRel Space: 

return true; 

} 

} 
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sc„ALPHA|sc„LOCASE, // [OOFF] IJ^TIH_SMALL.L£TrER„y„WITILOIAERESIS 

0 



static UCS2 CTChangeCasS! { UCS2 ); 

/* TBt^xTXL the lower case of a character »/ 

UCB2 CTIoLowerC UCS2 ch ) 
{ 

register ushort test; 

if ( ch < 256 ) { 

test = sc„Chariype[ch+l] ; 
if C test Sc sc_UPCAS£ ) { 
if { ch [« OkDF ) 

return (UCS2)(ch + 0k20); 

} 

} 

else 

; case may not be si0nificant 
return ch; 

13 

UCIS2 C'noUpper( register UCS2 ch ) 

register ushort test; 

if C ch < 256 ) { 

test = sc_CharTypefch-i-l] ; 
if ( test Sc 3c„L0CASE ) { 
if ( ch f« OxFF ) 
fl return {UCS2) (ch - 0k20); 

M } 

} 

else 

\^ ; /* case may not be significant */ 

!r return ch; 

I- 

UCS2 CTroggleCase( register UCS2 ch ) 
{ 

register ushort test; 

if ( ch < 256 ) { 

test « sc_CharType[ch+l] ; 
if ( test £< sc„LOCASE ) { 
if ( ch != OhFF ) 

return (UCS2){ch - 0x20); 

} 

else if ( test & sc„UPCASE ) { 
if ( ch I* OkDF ) 

return (UCS2)(ch + 0k20); 

} 

} 

else 

; /» case may not be significant */ 
return ch; 

> 
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sc„SYMBOL, 


// 


[OOBD] 


VULGAR„FHACTION_ONE„HALF 




$c„SYMBOL, 


// 


[OOBE] 


VULGAH^FRACni OH_THREE_QUARTERS 




sc„SyMBOL, 


// 


[OOBF] 


Ils!VERTED_QUESTI OH_MARK 




sc_ALPHA 1 sc_UPCASE , 


// 


[OOCO] 


LATIK_CAP I TAL_LEITER_A_WIIH_GRAVE 




sc„ALPm j sc„UPCASE , 


// 


[ooc 13 


LATIN_CAP ITAL„LEITER_A_%^IIH_ACUTE 




sc„ALPHa ( sc JJPCaSE, 


// 


[0QC2] 


LATINJjAP ITAL_LETTER_A Ja? ITH„C I RCuMFLEX 




sc^ALPHA 1 sc^UPCASE , 


// 


{GQC3] 


LATIN„GAPITAL_LETrER„A_WIIH„TILDE 




sc_ALPHA i sc^UPCASE , 


// 


[00C4] 


LATIN_CAPITAL.LETrER„A_WIIH_D lAERES IS 




sc„ALPHA i sc JJPCASE , 


// 


[00C5] 


LATI^_CAP ITAL_LEnER_A„WIlli.RING_ABOVE 




sc^ALPHA ) sc„UPCASE ^ 


// 


[00C6] 


LATIN_CAP ITAL_L I GATLJRE_AE 




sc_ALPHA 1 sc_UPCASE ^ 


// 


[00C7] 


LATI1SLCAP ITAL„LETrER_C_WIIH_CED I LLA 




sc„ALPHA 1 sc„UPCASE , 


// 


[00C8] 


LATINJAP ITAL_LETTER_E_WIIH_GRAVE 




£C_ALPHA i sc_UPCASE > 


// 


[00C9] 


LATIN_CAP ITAL„LETrER_E„WI'IH_ACUTE 




sc„ALPHA i sc JUPCASE , 


// 


[OOCA] 


T T^'YliT a ^ '*Y*Tt Y" 1 'M 1 ■ i < Y^ Y^ f . t ^r*f Y ^ ^ ^>^Y Yt JT^^I^ t^ie y 

LATIH„CAP I TAL„LETrER„E_WIIH_C I RCUMFLEX 




sc^ALPHA t scUPCASE , 


// 


[OOCB] 


LATIN_CAP ITAL_LETTER„E_WIIH_D I AERES I S 




sc_ALPHA j sc„UPCASE ^ 


// 


[OOCC] 


LATIN_CAP I TAL_LETrER_ I _WIIK_GRAVE 




sc^ALFHA j sc_UPCASE , 


// 


[OOCD] 


LATIN_CAPITAL_LETTER_I„WIIH„ACUTE 




sc_ALPHA j sc_UPCASE , 


// 


[OGCE] 


LATIlsLCAP ITAL„LETTER_I_WIIH_C I RCUMFLEX 




sc„ALPHA 1 sc„UPCASE , 


// 


[OOCF] 


LATIH_CAPITAL_LETrER_I„WIIH„D lAERES I S 




sc_ALPHA 1 sc_UPCASE , 


// 


[OODO] 


LATIN_CAPITAL„LETrER_EIH_ ( Icelandic ) 




sc_ALPHA ! sc_UPCASE , 


// 


[OODl] 


LATIN„CAPITAL_LETrER__N„WIIH__TILDE 




SC ALPHA [sc UPCASE, 


// 


[00D2] 


LATIN CAPITAL LETTER O^WIxH GRAVE 




sc_ALPHA 1 sc^UPCASE , 


// 


[00D3] 


LATIN CAPITAL LETTER 0 WITH ACUTE 




sc„ALPHA 1 sc^UPCASE . 


// 


[00D4] 


LATIN_CAPITAL„LETrER^O„WIIH_C IRCUMFLEX 




sc ALPHA Isc UPCi^E, 


// 


[00D5] 


LATIN CAPITAL LETTER 0 WITH TILDE 




sc.ALPHA 1 sc^UPCASE , 


// 


[OOD63 


LATIN_CAPITAL_LETTER„0_WI1H„DIA£RES I S 




sc_SYMBOL , 


// 


[00D7] 


MJLTI PL I CATI ON_S I GN 


, =^ 


sc„ALPHA 1 sc_UPCASE ^ 


// 


[00D8] 


LATIN_CAPITAL„LETTER„0„WITH„STROKE 




sc J^LPHA 1 sc^UPCASE * 


// 


[0GD9] 


LATIN_CAPITAL_LETTER„U„WI'ni_GRAVE 


z'.l 


sc.ALPHA 1 sc„UPCASE . 


// 


{ OODA] 


LATIN_CAP ITAL_LETrER„U„WITH„ACUTE 




sc ALPHA [sc UPCASE, 


// 


[OODB] 


LATIN^CAPITAL LETTER U WITH CIRCUMFLEX 




sc„ALPHA ! sc^UPCASE , 


// 


[OODC] 


LATIN CAPITAL LETTER U WITH DIAERESIS 




so ALPHA (sc UPCASE. 




[OODD] 


LATIN CAPITAL LETTER Y WITH ACUTE 


iJ 


sc„ALPHA ! sc_UPCASE , 


// 


[OODEl 


LATIN_CAPITAL_LETTER.IHORN_( Icelandic ) 


f'"i 


sc_ALPHA 1 sc„LOCASE , 


// 


[OODF] 


LATIN_SMALL„LETrER_SHARP„S_ (German ) 




sc_ALPHA 1 sc_LOCASE , 


// 


[OOEO] 


LATIN„SMALL„LETTER„A„WIIH_GRAVE 


- ~« 

13 


sc_ALPHA j sc„LOCASE , 


// 


[OOEl] 


LATIN„SMALL_LETrER_A„WITH_ACUTE 


" 'si 


sc„ALPHA [ sc„LOCME ^ 


// 


[00E2] 


LATIN_SMALL„LETTER„A„WIIH„C I RCUMFLEX 




sc_ALPHA 1 sc^LOCASE ^ 




[00E3] 


L ATIN_SMALL_LETTER_A_W1TH JII LDE 


111 


sc„ALPHA 1 sc_LOCASE , 


// 


[00E4] 


LATIN_SMALL_LETTER_A„WITH_D I AERES I S 


f " 


sc^AI-PHA i sc_LOCASE , 


// 


[00E5] 


LATIN_SMALL_LETTER_AJ/^I1H„RING_AB0VE 




sc_ALPHA i sc_LOCASE , 


// 


[OOE63 


LATIN_SMAL L„L I GATURE„AE 




sc_ALPHA 1 sc_LOCASE , 


// 


[0QE7] 


LATIN„SMALL_LETTER_C_WITH_CED ILLA 




sc _JtLPHA 1 sc„LOCASE , 


// 


[Q0E8] 


LATIN_SMALL„LETTER„E„WIIH„GRAVE 




sc_ALPHA i sc_LOCASE , 


// 


[OOE93 


LATIN_SMALL_LETrER„E_WITH_ACUTE 




sc„ALPHA [ sc_LOCASE , 


// 


[OOEA] 


LATIN^SMALL^LETTER^E^WIIH^C I RCUMFLEX 




sc_ALPM 1 sc_LOCASE , 


// 


[OOEB] 


LATIN„SMALL„LETTER„E„WIIH_DIAERESIS 




sc„ALPHA j sc_LOCASE , 


// 


[OOEC] 


LATIN_SMALL_LETTER_I_WITtL.GRAVE 




sc„ALPHA i sc„LOCASE , 


// 


[OOEB] 


LATIN„SMALL„LETrER_I„WITH„ACUrE 




sc_ALPHA j sc^LOCASE , 


// 


{OOEEj 


LATIN„SMALL„LETTER„I_WITH_CI RCUMFLEX 




sc^ALPfiA 1 sc„LOCASE . 


// 


[OOEF] 


LATIN„SMALL„L£TTER„I„WITH„D I AERES I S 




sc_ALPHA 1 sc_LOCASE , 


// 


[OOFO3 


LATIN„SMALL_LETTER_ETH_ ( Icelandic ) 




sc.ALPHA I scJLOCME , 


// 


[OOFl] 


LATIN_SMALL„LETrERJsr_WIIH„TILDE 




sc_ALPHA t sc_LOCASE r 


// 


[O0F21 


LATIN_SMALL„LETTER_0„WIIH_GRAVE 




sc^ALPHA] sc„LOCASE , 


// 


[OOF33 


LATIN SMALL LETTER 0 WITH ACUTE 




sc^ALPHA 1 sc_LOCASE , 


// 


[00F4] 


LATIN^SMALL LETTER 0*"WITH CIRCUMFLEX 




sc_ALPHA 1 sc_LOCASE , 


// 


[OOFB] 


LATIN SMALL LETTER 0 WITH TILDE 




sc_ALPHA i sc„LOCASE , 


// 


[OOFS] 


latin_small„letterIo„wiih.diaeresis 




sc„SYMBOL r 


// 


[00F7] 


DIVISIOH_SIGN 




sc^ALPHA 1 sc„LOCASE ^ 


// 


[OOFS] 


latin„small„letter„o„with„stroke 




sc_ALPHA i sc_LOCASE ^ 


// 


[00F9] 


LATIH_SMALL_L£TTERJJ„WITH_GRAVE 




sc„ALPHA t sc_LOCASE , 


// 


[OOFA] 


LATIN„SMALL„LETTER_U_WITH_ACUTE 




»C„AL,rrlfi. j sc LUL,Ao£. # 




[UUr D J 


L/il i. IM^bHftLL^Lc. lie, K^U^Wi in C i KLUMr L tLA 




sc_ALPHA|sc LOCASE, 


// 


[OOFC] 


LATIN_SMALL_LETTER_U_WITH„DIAERESIS 




sc ALPHA fsc LOCASE. 


// 


[OOFD] 


LATIN.SMALL„LETTER_Y„WIIH„ACUTE 




sc^ALPHA I sc^LOCASE , 


// 


[OOFE] 


LATIN^SMALL^LETTER^raORN^t Icelandic ) 
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sc^ASCI 1 1 sc^ALPHA 1 sc„LOC^E . 
sc.ASCI 1 1 sc„ALPHA \ sc„LOCASE , 
sc_ASCI 1 1 sc^ALPHA ) sc^LOCASE , 
sc„ASCI 1 1 sc^ALPHA | sc^LOCASE , 
sc^SCI 1 1 sc„ALPHA ( sc^LOCASE , 
sc_ASCII i sc.SYMBOL . 
sc_.ASCII|sc„SYMBOL, 
sc„ASCIIlsc SYMBOL, 
sc„ASCIIlsc SYMBOL, 



// [0076] LATIN_SMALL.LETTER„V 

// [0077] LATIH„SMALL LETTER„W 

// [0078] LATIH.SMALL^LETTER^X 

// [0079] LATI!sLSHALL„LETrER.Y 

// [007A] LATm^SMALL^LETTER^Z 

[ 00 7B J LEFT^CURLYJRACKET 

y/ [0G7C] VERTICAL.LINE 

// E007D] RIGHT.CURLYJRACKET 

/y [007E] TILDE 



0, 


// 


0K7f 


127 


0, 


// 


OsSO 


128 


0, 


// 


OkBI 


129 


0, 


// 


0k82 


130 




// 


0k83 


131 


0, 


// 


0^584 


132 


0, 


// 


0x85 


133 


0, 


// 


0x86 


134 


0, 


// 


0x87 


135 


0^ 


// 


0k8S 


136 


0, 


// 


0x89 


137 


0, 


// 


Ox 8a 


138 


0, 


// 


Ox 8b 


139 


Or 


// 


Ox 8c 


140 


Or 


// 


0x8d 


141 


0, 


// 


0K3e 


142 


Or 


// 


0x8f 


143 


0, 


// 


Ok 90 


144 


0, 


// 


0x91 


145 


0, 


// 


0x92 


146 


0, 


// 


0x93 


147 


0, 


// 


0x94 


148 


0. 


// 


0x95 


149 


0, 


// 


0x96 


150 


0, 


// 


0x97 


151 


0. 


// 


0x98 


152 


0, 


// 


0x99 


153 


0. 


// 


Ox 9a 


154 


0, 


// 


Ox 9b 


155 


0. 


// 


Ox 9c 


156 


Or 


// 


0x9d 


157 


Or 


// 


0x9e 


158 


0, 


// 


0K9f 


159 



sc„SPACEr 


// 


[OOAO] 


sc SYMBOL, 


// 


[OOAl] 


sc„SYMBOLr 


// 


[00A2] 


sc„SYMBOLr 


// 


[00A3] 


sc_SYMBOLr 


// 


[00A4] 


sc„SYMBOLr 


// 


{0OA5J 


sc_SYMBOL r 


// 


[00A6] 


sc^SYMBOLr 


// 


{00A7] 


sc.SYMBOLr 


// 


[00A8] 


sc.SYMBOLr 


// 


[00A91 


sc.SYHBOLr 


// 


[OOAA] 


sc^SYMBOLr 


// 


[OOAB] 


sc_SYMBOLr 


// 


[OOAC] 


sc_SYMBOLr 


// 


[OOAD] 


sc^SYMBOLr 


// 


[OOAE] 


sc_SYMBOL r 


// 


[OOAF] 


sc_SYMBOLr 


// 


[OOBO] 


sc SYMBOL r 


// 


[OOBl] 


sc„SYMBOLr 


// 


[00B2] 


sc„SYMBOLr 


// 


[00B3] 


sc„SYMBOLr 


// 


[00B4] 


sc^SYMBOLr 


// 


[QGB5] 


sc^SYMBOLr 


// 


[00B6] 


sc SYMBOL, 


// 


[00B7] 


sc„SYMBOLr 


// 


I00B8] 


sc^SYMBOLr 


// 


I00B9] 


sc_SYMBOL, 


// 


[OOBA] 


sc„SYMBOLr 


// 


[OOBB] 


sc^SYMBOLr 


// 


[ODBC] 



HO-BREAK_SPACE 

IHVERTEB3XCLAMATI0HJCARR 

CEOTLSKBF 

P0UKfD„SI(15 

CURREMCY^SIGN 

BROKEN JAR 

SECTI0NJIC15 

DIAERESIS 

GOPYRKMTJIOH 

FEMINIME^ORDIKfAL^IMDICATOR 

LEFT-POIHrilJTG.DOUBLE^ANGLE^QUOTATIOH^MARK 

HOTJICM 

SOFT^HYPHEN 

REaiST£RED__S I Gl!l 

MACRON 

DEGREE J IGN 

PLUS-MI1:3USJIGH 

SUPERSCRIPT.™) 

SUPERSCRIPTJIHREE 

ACUTE_„ACCEMr 

HICRO^SIGN 

PILCROW„SIGM 

MIDDLEJOT 

CEDILLA 

SUPERSCRIPT„OHE 

MASCUL IME„ORDIHAL„IHD I CATOR 

RIGHT-POim:iNG„DOUBLE„ANGLE„QUOTATION_MARK 

VULGAR.FRACTIOK.OHE^QUARTER 
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sc„ASCIIisc.PlMC, // 

sc„ASCI I j sc„PlMC , // 

sc_ASC 1 1 i sc^SYMBOL , // 

sc„ASCII 1 sc^DIGIT, // 

sc.ASCIIIsc^DIGIT, // 

sc„ASCII j scJ)lG17. // 

sc^ASCIIjscJIGIT, // 

sc_ASCII|sc DIGIT, // 

sc„ASCII(sc DIGIT, // 

SC3SCI I ! sc„DIGIT, // 

sc„ASCII fscJIGIT, // 
sc_ASCII jscJIGIT, 

sc^ASCIIjscJIGIT, // 

sc_ASCII|sc_PUlj?C, // 

sc„ASC 1 1 1 sc^PUHC , // 

sc„ASC 1 1 1 sc„SYMBOL , // 

sc„ASC 1 1 1 sc„SYMBOL , // 

sc^ASC 1 1 1 sc„SYMBOL , // 

sc_ASC 1 1 j sc„PUHC ^ // 

sc„ASCI 1 1 sc„SYMBOL , // 

sc^ASC 1 1 1 sc J^LPHA I sc^UPCASE , 

scJiSCI I i sc„ALPHAl sc^UPCASE , 

sc^ASCI I i sc_ALPHA \ sc JLTPCASE , // 

sc^ASCI 1 1 SC3LPHA | sc^UPCASE , 

sc_ASCI 1 1 sc^ALPHA | sc„UPCASE , 

sc„ASCI I ! sc^ALPHA \ sc JJPC ASE , // 

sc^ASCI 1 1 sc_ALPHA 1 sc^UPCASE , 

sc^ASC 1 1 1 SC3LPHA 1 sc.UPCASE , // 

sc^ASCI 1 1 sc^ALPHA | sc„UPCASE , 

sc^Cl 1 1 sc„ALPHA i BcJJBCASE , 

sc.ASC 1 1 1 sc„ALPHA 1 sc„UPCASE , 

sc„ASC 1 1 1 sc„ALPHA \ sc UPCASE , 

sc„ASC 1 1 i sc^ALPHA | sc JPCASE , // 

sc_ASCIIlsc_ALPHAlsc UPCASE, // 

sc^ASC I I ) sc„ALPHA | sc„UPCASE , // 

sc_ASCII|sc„ALPHAisc UPCASE, 

sc_ASCI 1 1 sc„ALPHA | sc UPCASE , // 

sc„ASCI I { sc^ALPHA | sc.UPCASE , 

sc.ASCI I i sc„ALPHA j sc^UPCASE , 

sc^ASCI 1 1 sc^ALPHA | sc^UPCASE , 

sc^ASCI 1 1 sc^ALPHA t sc.UPCASE , 

sc„ASCI 1 1 sc„ALPHA 1 sc JJPCi^E , /y 

SC.ASCI 1 1 sc^ALPHA | sc JPCASE , // 

sc^ASCI 1 1 sc_ALPHA | sc^UPCASE , 

sc.ASCl 1 1 sc_ALPHA | sc UPCASE , // 

sc.ASCII ( sc.ALPHA ( sc^UPCASE , 

sc„ASC 1 1 1 sc^SYMBOL , 

sc„ASC 1 1 i sc_SYMBOL , // 

sc„ASC 1 1 1 sc„SYMBOL , // 
sc„ASC 1 1 i sc„SYMBOL , 
sc.ASC 1 1 ) sc.SYMBOL , 

sc.ASCII 1 sc_ACCEOT, // 
sc_ASCIIisc_ALPHA|sc LOCASE, 

sc^ASCI I ( sc^PHA I sc_LOCASE , yy 

scJiSCI 1 1 SC3LPHA I sc.LOCASE , // 

sc^ASCI 1 1 sc^ALPHA | sc.LOCASE , yy 

sc„ASCI 1 1 SC.ALPHA I sc^LOCASE , // 

sc^ASCI 1 1 sc.ALPHA 1 sc^LOCASE , // 

sc_ASC 1 1 1 sc„ALPHA j sc^LOCASE , yy 

sc_ASC 1 1 j sc.ALPHA | sc„LOCASE , // 

sc„ASCI 1 1 sc^ALPHA | sc^LOCASE , yy 

sc^SCII lsc„ALPHA|sc_LOCASE, // 
sc„ASCI I ! sc^ALPHA 1 sc„LOCASE , 
sc^ASC 1 1 1 sc„ALPHA [ sc.LOCASE , 

sc„ASC 1 1 1 sc„ALPHA 1 sc^LOCASE , // 

sc.ASCII 1 sc^ALPHA | sc^LOCASE , // 

sc„ASCI 1 1 sc„ALPHA ) sc^LOCASE , // 

sc_ASC 1 1 1 sc^ALPHA t sc^LOCASE , // 

sc^ASCI 1 1 sc.ALPHA | sc^LOCASE . // 

sc^SCI 1 1 sc„ALPHA | sc„LOCASE , yy 

sc.ASC 1 1 1 sc„ALPHA 1 sc^LOCASE , // 

sc„ASC 1 1 1 sc^ALPHA | sc^LOCASE , yy 

sc„ASC 1 1 1 sc_ALPHA t sc_LOC ASE , // 



[002D] HYPHEN-MIOTS 
I002E] FULL„STOP 
[002F] SOLIDUS 
[0030] DIGIT^ZERO 
[0031] DIGIT OHE 
[0032] DIGIT^TOO 
[00331 DIGIT^THEEE 
[0034] DIGIT„FOUR 
[0035] DIGIT FIVE 
[0036] DIGITUS IX 
[0037] DIGIT„SEVEN 
[0038] DIGITJIGHT 
[0039] DIGIT„mNE 
[003A] COLON 
[003B] SEMICOLON 
[003C] LESS-THMT^SIGN 
[003D] EQUALS SIGN 
[003E] GREATER-IHAM^SIGKI 
[003F3 QUESTIOH.MARR 
[0040] COMMERCIAL„AT 
[0041] LATIK„CAPITAL3ETTER_.A 
[0042] LATIN^CAPITAL LETTER B 
[0043] LATIN^CAPITAL^LETTER C 
[0044] LATIN_CAPITAL_LETrER„D 
[0045] LATIM.CAPITAL.LETTER E 
[0046] LATIH„CAPITAL„LETTER_F 
[0047] LATIM^CAPITAL^LETIER.G 
[0048] LATIN^CAPITAL.LETTER H 
[0049] LATIH_CAPITAL_LETrER„I 
[004A] LATIN„CAPITAL_LEITER J 
[004B] LATIN^CAPITALJETTER R 
[004C] LATIH_CAPITAL^LETTER„L 
[ 00 4D ] LATIN^CAP ITAL^LETTER^M 
[004E] LATIH^CAPITAUETTER H 
[004F] LATIN„CAPITAL„LETr£R_0 
[0050] LATIN„CAPITAL_LETrER„P 
[0051] LATIN^CAPITAL^LETIER^Q 
[0052] LATIN^CAPITAL^LETTER.R 
[0053] LATIN„CAPITAL„LETrER„S 
[0054] LATIN„CAPITAL„LETTER„T 
[0055] LATra^CAPITAL.LETTER U 
[0056] LATm„CAPITAL_LETTER_V 
[0057] LATIR„CAPITALJETrER_W 
'0058] LATIN^CAPITAL LETTER X 
[0059] LATIN^CAPITAL.LETTER^Y 
^005A] LATIN„CAPITAL„LEITER Z 
[OOSB] LEFT„SQUARE„BRACKET 
lOOSC] REVERSE„SOLIDUS 
'005D] RIGraiSQUAREJRACKET 
'005E] CIRCUMFLEX^ACCEm: 
^005F] LOW.LINE 
'0060] GRAVE^ACCEOT 
•0061] LATIN^SMALL^LETTER A 
■0062] LATIN_SMALL„LETrER„B 
0063] LATm„SMALL„LETTER_C 
:0064] LATIN_SMALL„LETrER„D 
:0065] LATIN„SMALL„LETrER„E 
0066] LATIK^SMALL^LETIER F 
0067] LATIN_SMALL LETTER^G 
0068] LATIN_SMALL_LETIER„H 
0069] LATIb5_SMALL_LETTER„I 
■006A] LATIN^SMALL.LETTER^J 
:006B] LATIH^SMALL^LETTER^K 
00 6C] LATIN_SMALL„LETrER_L 
006D] LATIN_SMALL„LETrER„M 
006E] LATIi:3„SMALL„LETrER H 
006F] LATIM.SMALL.LETIER 0 
0070] LATIN„SMALL„LETrER„P 
0071] LATIN^SMALL^LETTER Q 
0072] LATIN.SMALL^LETTER^R 
0073] LATIN^SMALL^LETIER S 
0074] LATIN„SMALL_LETTER„T 
0075] LATIN„SMALL„LETrER_U 
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File: 



SCCTYPE.C 



$H8ader; /Projects/ToolboK/ct/^SCCTYPE .CPP 2 5/30/97 8:45at tenis $ 
Contains: Character types • 
Written by; Man is 

Copyright (c) 1989-94 Stonehand Inc, of Camforidge, m. 
hll rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition ToolboK software is the proprietary 
and confidential property of Stonehand Inc. 

#include "scchares .h" 
#include "scctype.h" 



unsigned short sc„CharType[258] 

m 0. 

sc^SC 1 1 1 scSPACE . 
Ill 0. 

sc„ASCIIlsc SPACE. 
. ; scJlSCI 1 1 sc^SPACE , 
^ ^ sc^ASCI 1 1 sc^SPACE , 

f2 sc^SCIIlsc^SPACE, 

::i 0, 

sc_ASCII. 

sc„ASCIIlsc„SPACE, 
C 3 sc„ASC 1 1 i sc^SPACE . 
sc„ASCIIisc_SPAC£. 
sc_ASCII|sc„SPACE. 
scASCIIfsc SPACE, 
sc„ASCIIlsc_SPACE, 
sc„ASCI 1 1 sc„SPACE . 
sc_ASCII, 

sc3SCIIisc„SPACE, 
sc^ASCII jsc„SPACE, 
sc_ASCI 1 1 sc^SPACE , 
sc„ASCIIlsc„SPACE, 
sc„ASCIIfsc„SPACE, 
sc_ASCII|sc_SPACE, 
sc3SCII|sc_PlMC, 
sc^ASCIIisc^PUNC, 
SC3SCI I S sc„SYMBOL , 
sc_ASC 1 1 1 sc„SYMBOL . 
sc_ASCII I sc^SYMBOL . 
sc^ASCI 1 1 sc^SYMBOL , 
sc„ASCIIfsc„PUNC, 
sc J^SCII t sc^SYMBOL , 
sc^ASCII I sc^SYMBOL , 
sc_ASCII I sc^SYMBOL . 
sc^ASC 1 1 1 sc„SYMBOL , 
sc_ASCII|sc„PWC, 



- { 



/* to let us use -1 as an index */ 
/* Ok 00 0 
/* OkOI 1 
/» Ok 02 
/* 0x03 
/* 0x04 
/» 0x05 
/* 0x06 
/» 0x07 



p. It 
» " 

"indent space" */ 
/* 0x08 8 */ 

/* 0x09 9 "\t" (HI) tab key */ 

10 "\n" (LF) line feed */ 

11 "M" (VT) vertical tab */ 

12 " " */ 

13 "\r" (CR) return key*/ 

14 " " 

15 " */ 

16 " " */ 
X7 " " */ 

18 *'paraEnd" */ 

19 "guad center" «/ 

20 "quad left" */ 

21 "quad right" */ 

22 "quad just" */ 



/* OxOa 
/* Ox Ob 
/* OxOc 
/» OxOd 
/* OxOe 
/» OxOf 
/* 0x10 
/* 0x11 
/* 0x12 
/* 0x13 
/* 0x14 
/* 0x15 
/* 0x16 
/* 0x17 
/* 0x18 
/* 0x19 
/* Ox la 
/* Ox lb 
/* Oxlc 
/* Ox Id 
/* Oxle 
/* Ox If 



23 " " fix abs space »/ 

24 " " fix 3rel space */ 

25 " " fill space */ 

26 " " no break hyphen »/ 

27 " " discretionary hyphen */ 

28 " " figure space */ 

29 " " thin space */ 

30 " " en space */ 

31 " " em space */ 



// [0020] SPACE 

// [0021] EXCLAMATIGN_MARK 

// [0022] QUOTATION^MARK 

// [0023] MJMBER„SI(^ 

// [0024] DOLLAR„SIGN 

// [0025] PERCEtrr^SIOH 

// [0026] AMPERSAND 

// [0027] APOSTROPHE 

// [0028] LEFT^PARElsnHESIS 

// [0029] RltHT^PAREimiESIS 

// (002A] ASTERISK 

// [002B] PLUS„SI<^ 

// [002C] COMMA 
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// since the get strip logic uses regions and can only really 
// deal in one dimension we need to convert the coordinate 
/y system of the used variables as we go in and out of the 
// get strip code - refer to the discussion of coordinate 
y"/ systems in the Toolbox Concept doc 
if ( fPData.fComposedLine.IsVerticaiO ) { 
^ fPBata.fComposedLine,fLogicalEKtents.FourthToThird( 0 ); 

fPData.fCoiuposedLine.fOrg.y - fPData.fComposedLine.f Baseline; 

doit « fCol->GetStrip2( fPData.fComposedLine. fPData.fBreakType. *this ), 

f PData . f ComposedLine . f Basel ine « f PData . f ComposedLine . f Org ,y ; 

if ( f PData. f ComposedLine, IsVertical{) ) { 

f PData . f CojnposedLine . f Org .ThirdToFourth ( f Col ->Width { ) ) ; 
f PData. f ComposedLine. fLogicalEKtents.ThirdToFourth( 0 ); 

} 

return doit; 
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).GetSpec() ); 

else 

lineData.fOrg.y lineData.f InitialLead.OetLead () ; 

1 ineDat a. f Pleasure - colWidth - scCachedStyle: :GetParaStyle{) .GetLeftBlocklndent f ) ■ 
return lineData. f Measure > 0; ^ 

case eHorzFlex: 

lineData.fOrg.K - scCachedStyle; :GetParaStyl6f () .GetLeftBlock Indent () ; 

If ( ImeData.fOrg.y FIRST„LINE„POSITION ) 

) GetSpecO )• ^^^^^^^^-^^^-Y * CSFirstLinePosition( GetAPPMame ( ) , scCachedStyle: :GetCurrentCache ( 
else 

lineData.fOrg.y lineData.f InitialLead .GetLead{) ; 

lineData.f Measure HorzFlexMeasure; 

tCurrentCacheO?StSpec^^^ colDepth - CSlastLinePosition( GetAPPMame(), scCachedStyle : :Ge 

case eFlexShape: 

lineData^fOrg.K - s^CachadStyle: :GetParaStyle() .GetLeftBlocklndent () ; 

If ( lineData,fOrg.y FIRST„LINE_POSITION ) 
, ^ , lineData.fOrg.y « CSf irstLinePosition ( Get APPHanie ( ) , scCachedStyle: :GetCurrentCache f 

else 

lineData.fOrg.y lineData .f InitialLead .GetLeadC) ; 
lineData.f Measure - HorzFlexMeasure; 

return true; 

/*NOTREACHED*/ 
y return false; 

m 

'iJ^ allocate geometry using args 

IJ 

bBpol scColumn: :GetStrip( scLIlsFERefDataS lineData, 

int breakXype, 
scCOLRefDataS! colRefData ) 



Bool doit; 

// since the get strip logic uses regions and can only really 

deal in one dimension we need to convert the coordinate 
// system of the used variables as we go in and out of the 

get strip code - refer to the discussion of coordinate 
// systems in the ToolboK Concept doc 
if ( lineData.IsVertlcalO ) 

lineData.fLogicalExtents.FourthToThirdC 0 ); 

lineData.fOrg-y - lineData . f Base line; 

doit » GetStrip2( lineData, breakXi^e. colRefData ); 

lineData.f Baseline « lineData.fOrg.y; 

if ( lineData.IsVertical () ) { 

lineData.fOrg.ThirdToFourthC mdth() ); 

lineData.fLogicalEKtents.ThirdToFourthf 0 ); 
} ^ 

return doit; 



allocate geeomtry using cached values 



Bool scCOLRefData: :AllocG0ometry{ void 
Bool doit; 
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ePos() ) { 



.fInitialLead.QetLeadO ); 

- colRefDdta.fPrevEnd.s; 

" lineData.fOr0,y - f irstLinePosition; 

chedStyl.::6etCurr.nS5:o^GetSpec() )! ''^^^"-'^^^^^'^'-^ ^ CSlastLinaPosition( GetAPPNa^e ( ) , scCa 

else 

tryY - lineData.fOrg.y + lineData.fLo^icalExtents.yi; 

if ( lineData*IsHorizontal() ) { 

if ( colRefData.fPrevEnd.y lineData . fOr^ .y ) 
txyX colRefData.fPrsivEnd.K; 

else 

tryX « LOHG^MIN; 

} 

else { 

if ( ( colDepth - colRefData . fPrevEnd .k ) lineData . fOrq v ) 
tryX « colRefData.fPrevEnd.y; 

else 

tryX « LONG_MIH; 

} 

} 

colRefData.fRBn->Sec:tRect( txyRect, tryY, tryX, lineData.f InitialLead .GetLead() ); 

if ( lineData.f Org. y - FIRST„LINE.POSITION !| lineData.fOr^ ,y - colRefData,GetFirstlin 

// this is here to fiK the smi bug 1538 - given that we are using approKimations 

13 ^^^^ regions this may be an insufficient fiK for other issues that srai 

^ may raise, but since me are uBing approximations i have no way of reliablv 

!f // pridicting these issues ^ 

scXRect rgnXRect( colRefData . fRgn->fOrigBounds ); 
fU scXRect tr^^ectC tryRect }; 

if ( irgnXRect- Contains ( tryXRect ) ) 
iy tryRect. s2 « tryRect. xl; 

H > 

if ( tryRect -Width () 0 ) 
^* return false; 

cl if { firstLine true ) 

/1 lineData.fOrg.y - tryRect .yl 4- f irstLinePosition; 

IU= else 

U lineData.fOr^.y - tryRect .yl - lineData.fLogicalEKtents .yl; 

li if ( lineData.fOrg.y > RGNMaKDepth( colRefData , fRgnH ) ) 

U= return false; 

#if defined (LEFTBLOCKIHDENT) 

if ( tryRect. X < 0 ) 

lineData.fOrg.K « tryRect. k + gfmS .GetLeftBlocklndent f ) ; 

else 

^^^^ lineData. f Org. K - MJ^( tryRect, gfmS .GetLeftB lock Indent ( ) ); 

lineData.f Org. X « tryRect. xl + scCachedStyle: :GetParaStyle () .GetLeftBlockIn 

#endif^ 

if ( lineData.f Org. X !- tryRect. xl ) 

lineData.fMeasure - tryRect .Width () + ( tryRect. xl - lineData.f Org. x ); 

e X se 

lineData.fMeasure « tryRect .Width( ) ; 
return true; 

} 

break; /*HOTREACHED*/ 
case eVertFlex; 

lineData.fOrg.x - scCachedStyle: :GetParaStyle() .GetLeftBlocklndent () ; 

If ( ImeData.fOrg.y FIRST^LINE^POSITION ) xn«exii;U' 

ImeData.fOrg.y - CSf irstLinePosition ( GetAPPName ( ) , scCachedStyle: :GetCurrentCache( 
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Bool firstLine = false; 

int shapsType; 

// the specs have been properly inited so the block 
// indeat values should be correct 
scAssert( this co 1 Re fDatai .Get Active { ) ); 

// we are in an overflow condidtion 
if ( HneData.fOrg.y iONG^MIN ) 

return false; 
if ( breakXype eColumnBreak ) 

return false; 

lineData.fCoIShapeType = GetShapeType () ; 
shapeType GetShapeType ( ) ; 

// We ran into a memory error in COLStartRef ormat ; just use rectangle shape, 
if (fRgnH colRefData .fR^nH HULL ) 
lineData.fCoIShapeType « eNoShape; 

if { lineData.IsVerticalO ) { 
colWidth - Depth (); 
colDepth ^ Width (); 
switch ( GetShapeType ( ) ) { 
case eVertFles: 

shapeType « eHorsFlex; 
break; 
case eHorzFleK: 

shapeType eVertFles; 
™ break; 

; } 
i > 

I \ colRef Data . f PrevEnd * colRef Data . f Saved PrevEnd; 

=a 

■-^ switch ( shapeType ) { 

J default: 

J case eHoShape: 

t lineData.fOrg.K - scCachedStyle: rGetParaStyle () .GetLeftBiocklndent () ; 

lineData .f Measure « colWidth - scCachedStyle : ;GetParaStyle () .GetLeftBiocklndent () ; 

if ( lineData.fOrg.y FIRST^LmE^POSITIOl^S ) 
~l lineData.fOrg.y » CSf irstLinePosition( GetAPPlsfame ( ) . scCachedStyle; :GetCurrentCache( 

|.GetSpec() ); 

else 

.y lineData,fOrjg.y lineData.f InxtialLead.GetLead{) ; 

return lineData, f Org .y <= colDepth - CSlastLinePosition ( GetAPPMame ( ) , scCachedStyle: :Ge 
:^CurrentCache { ) . GetSpec ( ) ) ; 

case eVertShape: 
case eRgnShape: 

tryRect.Set{ 0, 0, MAX( scCachedStyle: :GetParaStyle () .GetMinMeasure() , colRefData . fRgn-> 
fVertlnterval lineData , fLogicalExtents. Depth () ); 

if ( lineData.f Org. y FIRST.LIME^POSITION ) { 
firstLine * true; 

firstLinePosition = CSf irstLmePosition ( GetAPPName ( ) , scCachedStyle : :GetCurrentCa 
che() . GetSpec () ) ; 

lineData.f Org. y » colRefData.fRgn-'>FirstLinePos( firstLinePosition, lineData. fin 
ItialLead.GetLeadO ); 

tryX - colRefData.fP3revEnd.K; 

tryY = lineData.fOrg.y - firstLinePosition; 

tryRect.y2 « firstLinePosition + CSlastLinePosition ( GetAPPName ( ) , scCached 

Style : rGetCurrentCache ( ) . GetSpec { ) ) ; 

colRefData.SetFirstlinePos( lineData . f Org ,y ); 

colRefData.SetFirstSpec( scCachedStyle: :GetCurrentCache ( ) .GetSpec{) ) ; 

} 

else { 

if ( lineData.fOrg.y colRefData.GetFirstlinePos () ) { 
firstLine * true; 

firstLinePosition = CSf irstLinePosition ( GetAPPHame ( ) , colRefData.GetFirstSpec 

O ); 

lineData.fOrg.y - colRefData . fRgn->FirstLinePos ( firstLinePosition, lxnBDe.t^ 
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} 

} 

else { 

if ( fCol->GetShapeType() 8= eHorzFlest ) { 

scMuPoint trans ( extents,Width() - fCol->Width{) . 0 ); 
fCol->TranslateLines( trans )^ 

fCol->SetWidth{ eEteats.WidthO ); 

} 

if ( fCol~>GetShapeType() & eVertFiex ) { 
fCol->SetOepth( extents .y2 ); 
f Col ->Reposi t ionLines ( ) ; 

} 

} 

fCol->VertJustify() ; 
break; 

} 

fSavedLineState .Lin^ListChan^es ( fCol, fLineBamage^ fRedispList ); 

if ( finished ) 

£Col->Unmark{ scIOTALIB 1 scREALK^ ); 

SCDebugTrace ( 2, scStriagC "xtCOLEndRe format: col 0k^08k Zd\n'' fCoi, fCol->GetCount ( ) ); 

> 

add all lines that need to be repainted to the repaint rect 
^=%cXRsct£( scColumn: : Repaint Extent ( scXRect& repaint Extents ) 

a 

Ifi scXRect lineExtents; 
scTeKtline* tKl; 

%2 repaintExtents. Invalidate 0 ; 

Ml for ( txi « GetFirstline(): tsl; tnl = ti£l->GetHeKt () ) { 
r\ if ( tsl->Marked( scREPAIOT ) ) { 

t2l->QueryExtents ( lineExtents, 1 ); 
C3 if { linelKtents .Width () 0 ) 

^ lineEstents.K2 « lineEstents.xl + l; 

2repaintEKtents,Union( lineExtents ); 

txl->Marked( scREPAIOT ); 

H } 

Id } 

il Marked ( scREPAIOT ); 
IJ return repaintExtents; 

o 

set the column's vertical justification attribute 

void scColumn; :SetVJ( eVertJust attr ) 
{ 

if ( GetVertJustO ! attr ) 

Mark( scREALIGN ); 
SetVert Just { attr ) ; 

} 

// this does the actual space allocation within the column 

Bool scColujnn: :GetStrip2( scLINERefData& lineData. 

int breakiype, 
scCOLRefDataS: colRefData ) 

{ 

scXRect txyRect; 
MicroPoint tryX, 
tryYr 

colWidth - Width ( ), 
colDepth « Depth(), 
f X rstL i nePos i t i on ; 
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InsetHRgn { f RgnH, scCachedStyle : :OetCurrentCache ( ) . GetRujiAroundBorder ( ) . scCachedStyie : ; 
GatCurrentCache ( ) . GatRunAroundBorder ( ) , true ) ; 

fRgn - (HRgn*)MEMLockHnd( fRgnH ); 

break ; 

case oRgnShape: 

scCachedStyle: :GetCurrentCac]i6r{) .SetRunArouBdBorder{ CSrunaTOundBo3rder{ fCcil->GetAPPHame 
( ) , scCachedSty 1 e : : GetCurrentCache ( ) . GetSpec ( ) ) ) ; 

try { 

fRgnH = He?^^iRgn( RGi^tSliverSize ( £Col->GetRgn() ) ); 
CopyHRgn( fRgnH, fCol->GetRgn ( ) ); 

InsetHRgn( fRgnH, scCachedStyle: ; GetCurrentCache () .Get Run AroundBorderO . scCachedSty 
le : : GetCurrentCache ( ) . GetRunAroundBorder ( ) , true ) ; 
} 

catch (...){ 

DisposeHRgn{ fHgnH ), fRgnH « 0; 
throw ; 

} 

fRgn « (HRgn *)MEMLockHnd ( fRgnH ); 
foareak; 



£^Data.fInitialLine.f Baseline « FIRST„LIM£_POSITION; 
^ig^Data . f ComposedLine . f Baseline = FIRST„LINE_POSITION; 

Saturn true; 

} ry 

<Opse out the data structures when iiTiiBlcLB^ line breaking in a column 

voi^icCOLRefData: :COLFini ( Bool finished ) 

C fCol ) { 
scXRect extents; 

^"-^ scAssert( fCol->Marked ( scLAYACTIVE ) Sr& fCol GetActivef) ); 
ly fCol->Unmark( scLAYACTIVE ); 

// SCDebugTrace ( 2, scString( "COLEndRe format %d" col->fColumnCount ); 

C3 ggcS.theActiveColH MULL; 



switch ( f Col ->GetShapeType ( ) ) { 
default: 

fCoi->VertJustify( ); 
break ; 



case eVertShape: 
case eRgnShape: 

fCol->VertJustify( ); 
if ( fRgnH ) { 

MEMUnlockHnd( fRgnH ); 
DisposeHRgn( fRgnH fRgnH « HULL; 

} 

break ; 

case eHorzFle^s: 
case eFlesShape: 
case eVertFleK: 

fCol->Quex^a3?gins ( extents ); 
if ( fCol->G©tFlowdir() .IsHorizontalO ) { 
if ( fCol">GetShapeType() & eVertFleK ) 

fCol->SetDepth( extents. y2 ); 
if ( fCol->GetShapeType() & eHorzFleK ) { 
fCol->SetV\?idth( extents. h2 ); 
fCol->RepositionLines() ; 
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#if SCDEBUG > 1 

if ( £Col->GetPrev() ) 

scAssertC ! fCol->GetPrev{)->Marked( scLAYACTIVE ) ); 

scAssertf fCol SS. I fCol->Marked( scLAYACTIVE ) ); 
#endif 

fCol->Mark( scLAYACTIVE ); 
g^cS.theActiveColH « fCol; 
SetActive( fCoi ); 

scCachedStyle: :SetFiawdir( fCol->GetFlov{rdir ( ) ); 
"to d^f'suitrfS 

fSavedPrevEnd.Set( L0HO„MIH. FIRST^LIHE^POSITXO!^ ); 

// now check to see if we are starting refoxtnatting in the 
// middle of the column, if we are we should set the prevbaseline up 
prevPara = p->GetPrev() ; 
if { prevPara ) { 

scTestline* txl « prevPara ->GetLastline( ); 
if ( tsl tsi->GetColumn{) £Col ) { 
scColumn* tCol « fCol; 

scLEABRefData lead; 

MicroPoint baseline « fSavedPrevEnd .y; 

p->LocateFirstLine( «this, p->SpecAtStart () , tCol, baseline, lead, prevParaBata ); 
scAsseartC tCol fCol ); 



Cn /* If this fails, no prablem. COLLmeListChanges */ 
fy /* will siKiply repaint ALL lin^s, */ 
^aveLineList ( ) ; 

ii^etRegionC 0 ); 

fiwitch ( fCol->GetShapeType() ) { 

default: 
^ break; 
£5 case eFle^Shape: 
-.1 case eHorzFlex: 

/I if ( fCol->GetFlowdir() .IsVerticalO ) { 

V4 scTextline* tsl ^ fCol->fetFirstline() ; 

U if ( tsl ) { 

MicroPoint position - tsl->GetOrigin ( ) .k; 

!!! TypeSpec ts = txI->SpecAtStart ( ); 

^^=1 MicroPoint firstlinepos ^ CSf irstLinePosition( fCol->GetAPPHame() , ts ); 

scMuPoint trans( mplnfinity - position - firstlinepos, 0 ); 
fCol->TranslateLines( trans ); 
fCol->SetWidth( mplnfinity ); 

} 

} 

break ; 
case eVertShape: 

scCachedStyle: : GetCurrantCache ( ) .SetRunAroundBorder( CSrunaroundBorder( fCol->GetAPPisfame 
( ) , scCachedStyle : : GetCurrentCache ( ) . GetSpec () ) ) ; 

startV = (scVertes *)MEMLockHnd( fCol->GetVertList () ); 

try { 

fRgnH = KewHRgn( scSliverSi2:e() ); 
PolyHRgn( fRgnH, startV ); 

} 

catch (,..){ 

DisposeHRgn( fRgnH ), fRgnH * 0; 
MEMnlockHndC fCol->GetVertList () ); 
throw; 

} 



MEMUnlockHnd ( fCol->GetVertList () ); 
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{ 

fCol - col; 
if ( col ) 

fPBata.SetFlowDir( col->GetFiowdir( ) ); 

else 

fPDatd.SetFlowDir( scFlowDir( ) ); 

} 

// £ree lines marks as invalid and collect their damaged area 

void scCOLRefData: ;FreeInvalidLxnes( void ) 
{ 

scTestline* txl; 
scTextline* neKtlsl; 

for ( txl = fCol->GetFirstline(); txl; tzl « nextTsl ) { 
uextTsl - tKl-'>GetNeKtC) ; 
if ( t5tl->Marked( scIlsiVALID ) ) 

tKl->Delete( fLineDamage ); 
else if ( tKl-->Marked( scREPAIHI ) ) { 

scXRect damage; 

txl'->QueryExtents( damage^ 1 ); 
fLineDamage .Union ( damage ); 
txl->Unniark{ scREPAIOT" ); 

> 

} 

} 

yy'^^VB the linelist for damage determination in formatting 
vof ^ scCOLRef Data : : SaveLineList ( ) 
;--=^cTeKtline» txl; 

i,lfor ( tsl - fCol->GetFirstline() ; txl; txl « txl->GetNeKt ( ) ) { 

if { txl->Marked( scREPAHsTT ) ) { 
■^^"^ scXRect xrect; 

s txl->QueryExtents ( xrect, 1 ); 

fj fLineDamage.Union ( xrect ); 

?! txl->Marked( scREPAIKT ); 

ir. fSavedLineState. SaveLineList ( fCol ); 

} 

initialize the the data structures to perform linebreaking in a column, 
// this is primarily used for irregular run-arounds 

Bool scCOLRefData: :COLInit( scColumn* col, scContUnit* p ) 

{ 

fCol « col; 

f LineDamage . Inval idate { ) ; 
FreelnvalidLines ( ); 

SCDebugTrace ( 2, scString( " NtCOLStartRe format : col 0k?S08x ^\n" ), fCol, fCol->GetCount ( ) ); 
scVertex* startV; 
scContUnit* prevPara ; 
PrevParaData prevParaData; 



prevParaData, lastLmeH i?ULL; 
prevParaData . 1 ast Spec .clear () ; 

// SCDebugXrace ( 2, scString( "COLStartReformat %d" col->fColumnCount ); 

if ( ! fCol->DamOpen() ) 
return false; 
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File: SCC0LUM3.C 

SHeader: /Projects/ToolboK/ct^ccolumS -cpp 3 5/30/97 8:45a ^^manis $ 

Contains: Contains the code to allocate lines for containers and 
other miscellaneous code. 

Written by: Mams 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

#include "scpubobj .h*' 
#include "sccolumn.h" 
#include "scstcach.h" 
#include "scglobda.h" 
^imlndB "sccallbk.h" 
#int3.ude "scmem.h" 
#i]telude "scparagr.h" 
#iif#ude "scregion.h" 
#iiiciude "sctextli.h" 
#i£^ude "screfdat.h" 

^ a=3:=,K = »3=ss = =:«=:^S = = ^ = =^=« = = « = = = =«== */ 

/» .,.__-5=a^5=;ss=s=s=: = »=:=s=K = «==s=i««» a= 

//.translate the lines 

void scColumn: :TranslateLines( const scMuPoint£= trans ) 
^ J^iscTeKtline* tKl; 

ihoT { tKl « fFirstiine; tKl; txl « t3:l->GetlsreKt ( ) ) { 
//,.rr scAssert( tsl->fOrigin + trans. s >= 0 ); 
ll tKl->Transiate( trans ); 

Uy 

} O 

/* reposition or realign the lines in this column which is probably a 
» fles column 
»/ 

void scColumn: :RepositionLines( ) 

^ scTextl ine *txl; 
Mi croPo i n t measure ; 

if ( GetFlowdir() -IsHorizontalO ) 

measure ^ V^idth( ) ; 
else 

measure ^ Depth ( ) ; 



} 

/» 



for ( txl - fFirstlme; txl; txl * txl->GetNext ( ) ) 
txl->Reposition( measure ); 



// set the column as the active container in the reformatting cache 
void scCOLRefData: :SetActive( scColumn* col ) 
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redispList->AddColumn( col, ImeDamage ) 
col->Unmark( scREPAIKfT ); 

// free the list 
if ( 1 fUsingStoredData ) 
delete [] fData; 

fData ^ NULL; 

fNumltems =0; 
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txlCopy->SetInkExtents( xrect ); 

} 

scAssert( txi NULL ); 

} 

else 

fData - mJLL; 

} 

// compare the list of saved lines with the current column lines and 
// determine the repainting that needs to be done 

void scRedisplayStoredLine: :LineListChanges( scCoIumn* col ^ 

const scXRectSt oldLineDamage, 
scRedispList* redispList ) 

{ 

scTextline* txlOrg: 
scTeKtline* txi; 

scXRect lineDamage( oldLineDamage ); 
ushort lines coi->GetLinecount { ) ; 



scStreamChangelnfo streamChange ; 

streamChange = gStreamChangelnfo; 

if ( fData WLL ) { 

// redraw the entire column 
if ( redispList ) { 
O col->QueryMargins( fOrgEKtents ); 

redispList->AddColumn( col, fOrgEstents ); 

} 

col->UnmarkC scREPAIOT ); 

ru} 

i^ielse { 

txl = col->GetFirstline(); 



// compare old lines and new lines and where they differ 
mark that area to be repainted 

// 

for ( tKlOrg - fData; lines fNumltems; tKl « DsiKieKt( txl txlOrg++ ) { 
lines — ; 
fHumI terns — ; 

if ( ! tKl->Compare( tKlOrg, streamChange ) ) { 

// handle old line position now 
scXRect xrect, 
xrect2; 

txl->QueryEKtents( Krect, 1 ); 
txlOrg->QueryEKtents( Krect2, 1 ); 
lineDamage.Unxon{ street ); 
lineDamage .Union ( Hrect2 
txl->Unmark( scREPAIOT }; 

} 

> 

// fData ran out first, mark the rest of the new lines 
for ( ; lines—; txl - LNisTestC txl ) ) { 
scXRect jsrect; 

tsl">QueiyExtents( Krect, 1 ); 
ImeDamage. Union ( Krect ); 



// current lines ran out first 
for( ; fNumI terns--; tKlOrg++ ) { 
scXRect xrect; 

tslOrg->Query'E5Ctents( xrect, 1 ); 
lineDamage .Union ( xrect ); 



if ( redispList ) 
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scRedisplayStoredLine : I'^scRedisplayStoredLine ( ) 

{ 

delete [] fStoredData, fStoredData = NULL; 
fStoredLines = 0; 

} 

void scRedispiayStoredLine: :LineListInit { int lines ) 
{ 

fUsingStoredData « false; 

fData = 0; 

fNuffll terns =0; 

#ifndef MV^ERKS„NEW„ARRAY_PROBLEM 

fStoredData = SCNEW scTextlinef lines ]; 

#else 

fStoredData new scTeKtline[ lines ]; 

#endif 

fStoredLines « (short) lines; 

} 

void scRedispiayStoredLine : :LineListFini ( ) 
{ 

_u short i; 
C3for ( 1 * 0; i < fStoredLines; i++ ) 
,3 fStoredData [i ] .InitForReuse( 0 ); 

'^;;delete [] fStoredData, fStoredData - MILL; 
fUfStoredLines = 0; 

> \3 

/*"=4ave an image of the lines in a coluinn to determine repainting 
*-flt the completion of reformatting 
*?"" 

voi3 scRedispiayStoredLine: :SaveLineList{ scColumn* col ) 

{ H 

5 .jscTextline* txlCopy; 

J^'f scTextline* txl; 

r-^^ushort lines; 

lines = coi->GetLinecoiint ( ); 

fNumI terns = lines; 

fOrgEstents - coi->GetInkExtents() ; 

if ( lines ) { 

determine if we are using the stored lines ( about 200 ) 

or do we dynamically allocate a list - if more than 200 lines 

// - which should be almost never 

// 

if ( fStoredData ^ lines < fStoredLines ) { 
fUsingStoredData = true; 
fData fStoredData; 

} 

else { 

fData = new scTeKtline[ lines j; 
fUsingStoredData = false; 

} 

// copy current state to the list of lines 
tKl = co2->GetFirstline() ; 

for ( tKlCopy = fData ; lines--; tKl = Ll^lHext( tKl ), tKlCopy-^+ ) { 
*txlCopy = »tKl; 

#if 0 

scXRect srect; 

tsl->QueryEKtents ( xrect^ 1 ); 
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void scColumn :: Vert Justify ( ) 
{ 

eVertJust attributes « GetVert Just ( ) ; 

eColShapeType col Shape « GetShapeType { ) ; 

if { I ( colShape elJoShape | | ( colShape & eFlexShape ) ) ) 

COLFlushTop{ this ); 
else { 

switch ( attributes ) { 
case eVertJustif led : 

if ( IGetMestO ) { 

/* If this is the stream's last column, don't VJ */ 
/* unless force VJ is set. If it isn't the last */ 
/* column, fall through to the next case to VJ. 
COLFlushTop( this ); // remove effects of vj 

break; 

} 

// let this fall thru 

case eVertForceJustify ; 

COLFlushTopBottom( this ); 
break ; 

case eVertBottom: 

COLFlushBottom( this. eVJBottom ); 
break ; 

case eVertCentered : 

COLFlushBottom( this, eVJCenter ); 
break; 

ffl default: 
fW case eVertTop: 

m COLFlushTop( this ); 

break; 

ly } 

^<^s s ss s = s K s K K s s s s IS ;s s s s St 35 s: s B s s s K 3s s; 2s ;s s as =: ±: =s s s: s: s: =1 s: :s r: s := « 

/fyetermine the number of lines in a column */ 

usffeirt scColumn : :GetLinecount ( ) const 

|i, scTextline* txl; 

ushort lineCount; 

C3 for ( lineCount 0, tsl « GetFirstline( ) ; txl; txl = tKl->GetNext ( ) ) 
lineCount++; 
return lineCount; 

} 

The functions that follow are used to keep track of which lines *^ 
/* move during VJ, to minimize repainting. If any of it fails due */ 
/* lack of memory, VJ is not jeopardized, but everything will end */ 
/* up being repainted. */ 

/*====*«=^=«=^===«=«==^===«='«==«««==^======«===«=«===' 

scRedisplayStoredLine: :scRedisplayStoredLine( int lines ) : 

f StoredData ( 0 ) , 
fStoredLines( 0 ), 
fUsingStoredData{ false ), 
fData( 0 ), 
fNumItems( 0 ) 

{ 

LineListlnit ( lines ); 

} 
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col->SetInkExtents( 0, 0, 0, 0 ); 

for ( txl « col->GetFirstline(); tsl; txl = LKMext( tKl ) ) { 
InParaH « tKl->GetPara( ); 

/* Shift each line down the appropriate amount */ 

if { paraH NULL ) 

tsl->SetVJ( 0 ); 
else if ( paraH tKl -> Get Para () ) { 
/* Add line space */ 

adjustment -i-^ LineShift( lineSpace. lineStretchFactor, ImeAdj ) 

txl->SetVJ( adjustment ); 

lineAdj++; 

} 

else if ( paraH i- tLine->GetPara ( ) ) { 
/* Add para space «/ 
adjustment LineShift( paraSpace, paraStretchFactor, paraAdj ) 
txl->SetVJ( adjustment ); 
paraAdj ++; 

} 

paraH ^ InParaH; 
txl->QueryEKtents( lineRect ); 
col->UnionInkExtents( ImeRect ); 

} 

} 

catch (...){ 

MEMFreePtr( lineSpace ); 
I 2 MEMFreePtr{ paraSpace ); 
""Z throw; 

lly 

fiJ MEMFreePtr( lineSpace ); 
1^ 5 MEMFreePtr( paraSpace ); 

/^Hshove the lines to the top »/ 

staic void COLFlushTop( scColumn* col ) 

, 1 f or ( scTextlme* txl - col->GetFirstline () ; txl; tKl « LKNeKt( txl ) ) 
ly tKl->RemoveVJ( ); 

~ - ^ ~ ~ ~ ™ ~ ~ ~ ^ ™ ~ - =^ 

void scColumn: :SetDepthNVJ( MicroPoint dimension, 

scRedispList* redispList ) 

{ 

scXRect lineDamage; 

if ( Marked ( scIWALID ) ) 

LiinitDajtrtacfe( redispList, scReformatTimeSlice ); 

if { fFlowDir.IsHorizontal 0 ) 
SetDepth( dimension ); 

else 

SetWidth( dimension ); 

scRedispiayStoredLine rdl ( GetLinecount ( ) ); 
rdl .SaveLineList( this ); 
Vert Just if y( ); 

rdl .LineListChanges( this, lineDamage, redispList ); 

} 

/* align the text lines in the column, 
* this function just serv^es as a dispatcher 
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If we can do it with para spacing alone, 
/* do it. — REAL / MicroPoint */ 
paraStretchFactor = 1 + ((REM)vDiff) / currParaSpace ; 

else { 

if ( currParaSpace > 0 ) { 

/* Start off by stretching paragraph spacing »/ 
/* to the raaK. »/ 

paraStretchFactor - maxParaStretch ; 

vDiff maxTotalParaStretch; 

} 

if ( maKTotalLineStretch >= vDiff currLineSpace > 0 ) { 
If we can do remaining VJ within 
y* max line spacing^ do it REAL / MicroPoint */ 
^ lineStretchFactor = 1 + ( (REAL)vDif f ) / currLineSpace; 

else { 

if [ currLineSpace > 0 ) { 

/* Stretch line spacing to the max, */ 
and see what's left over */ 
lineStretchFactor - maxLineStretch; 
vDiff -= maxTotalLineStretch; 

} 

if ( exceedMaxValues ) { 

if ( currParaSpace > 0 estraPPspacing ) { 

/* If ©KtraPPspacing were true (it isn't), 
/« we would simply increase para spacing 

to cover the excess, */ 
paraStretchFactor =^ 1 + ( ( (REAL)vDif f ) 

+ maxTotalParaSt retch ) / currParaSpace; 

} /* (REAL + MicroPoint) / MicroPoint */ 

else { 

/* Spread remaining space evenly over all remaining 

* lines, including both inter line and inter para 

* spacing. 
»/ 

y* Some care is requires to do it evenly. */ 
Mi croPo i n t tot a 1 ParaSpace 

- currParaSpace ? currParaSpace+maxTotalParaStretch : 0; 

Ml croPo i n t tot a 1 L i neSpace 

= currLineSpace ? currLineSpace+maxTotalLineStretch:0; 

MicroPoint totalSpace 

= totalParaSpace + total LineSpace; 

MicroPoint paraDi f f 

- scRoundMP( ( (REAL) totalParaSpace) / totalSpace * vDiff ): 

MicroPoint 1 ineDi f f 

- scRoundMP( ( (REAL)totalLineSpace) / totalSpace * vDiff ); 

REAL / MicroPoint / MicroPoint 

if ( currParaSpace ) 

paraStretchFactor - 1 + ( ( (REAL)paraDif f ) 

+ maxTotaiParaStretch } / currParaSpace; 
if ( currLineSpace ) 

lineStretchFactor = 1 + { ( (REAL)lineDif f ) 

+ maxTotalLineStretch ) / currLineSpace; 
/* ( REAL MicroPoint ) / MicroPoint */ 



adjustment - 0; 

iineAdj « paraAdj = 0; 

paraH = NULL; 
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currLineSpace *= 0; 
currParaSpace « 0; 



/* These represent the current total line */" 
/* and para spacing before VJ */ 



for ( ; tsl; txl - LtlK[ext( tsl ) ) { 

MicroPoint ma.xlead ^ tsl->MaxLead ( spec ); 
time » tKl; 

scCachedStyieSi cs - scCachedStyle : :GetCachedStyle ( spec ); 
if ( paraH HULL ) 

else if ( paraH tLine->GetPara ( ) ) { 
lead - cs . GetCcJinputedLead ( ); 

X* Accumulate line space information for each line */ 
InsertSpaceRecord( lineSpace, lead, cs,GetComputedMaxLead () , interLine++ ); 
currLineSpace lead; 

} 

else if ( paraH ! tLine->GetPara ( ) ) { 

lead - scCachedStyle : ;GetParaSpace{ paraH, tLine->GetPara { ) ); 
inaKlead = scCachedStyle ; :GetMaxParaSpace ( paraH, tLine->GetPara ( ) ); 

/* Accumulate para space information for each para 
InsertSpaceRecord ( paraSpace, lead, maKlead, interPara-^+ ); 
currParaSpace +~ lead; 

} 

paraH « tL i ne - > Get Para ( ) ; 

if ( vertical ) 

currDepth = MIW( tLine->GetOrigin () .s, currDepth ); 

else 

currDepth ^ MAXC tLine->GetOri8rin () .y, currDepth ); 
/* This will tell us the */ 
/* depth of the last line */ 

} 

Calculate the difference between where the last line is and 
* where we want it to be 
*/ 

if ( vertical ) 

vDiff ^ "CSlastLinePosition( col->GetAPPName( ) , spec ) + currDepth; 

else 

vDiff = coi->Depth() - CSlastLinePosition ( col->GetAPPName( ) , spec ) - currDepth; 

/* The greatest factors by which we can */ 

/» multiply the space of each line and para 
laasLmeStretch - MaxSpaceStretch( lineSpace, interLine ); 

masParaStretch * MasSpaceStretch ( paraSpace, interPara ); 

/* How much space this */ 
/« will buy us 

maxTotalLineStretch *= TotalSpaceStretch( lineSpace, interLine, 

maKLineStretch ) ; 
masTotalParaSt retch === Total SpaceStretch ( paraSpace, interPara, 

masParaStretch ) ; 

/* How much we are currently stretching the line space 

/* and para space */ 
lineStretchFactor =1; 
paraStretchFactor - 1; 

/» If VJ is impossible or unnecessary «/ 
if ( currParaSpace < 0 



1 currLineSpace < 0 
I ( currParaSpace 0 currLineSpace =- 0 ) 
1 masLineSt retch < 0 
j masParaStretch < 0 
) vDiff <« 0 ) 



{ 



COLFlushTop( col ); 
return; 



} 



if ( masTotalParaStretch vDiff currParaSpace > 0 ) { 
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/* the specified distance 
tKl->SetVJC vDiff ); 
ti3:l->QueryExtents( lineRact ); 
ccil->UnionInkEstents ( lineRect ); 

} 

} 

} 



=s =; as jK K ss « » = » s = ss a K K s = =s =s W 5£ ss s! s: » 5= set ss ss at » stt « 5£ = ss » » =B to s 3» a » 

/* Vertical justification on a column . Includes both feathering and */ 
/* paragraph spacing. */ 

// TOOLBOX BEHAVIOR 

// We will eKceed masjimum values to VJ at all casts 

In such excessive conditions, we won't use extra 
// para spacing to achieve our end; we will use 

// extra line spacing, 

or 

// We will not SKceed max values and thus may not achieve 

// vertical justification 

// 

static const Bool eKceedMaKValues *= false; 

static const Bool estraPPspacing = false; 



static void COLFlushTopBottom( scColumn *col ) 
{ 

VJSpace* lineSpace =0; 
VJSpace* paraSpace =0; 



.1 scTestline* 
fh scTeKt line* 
TypeSpec 
scContUnit* 
scContUnit* 
= ; I short 



MicroPoint 



1 REAL 



scXRect 
Bool 



tKl; 

tLine; 

spec; 
InParaH; 
paraH = MJLL; 

interPara, 

interline, 

lineAdj , 

paraAd j ; 

vDiff, 

currDepth « LONG_MIM, 

currLineSpace, 

currParaSpace , 

maxTotalLineStretcb , 

maxTotalParaStretch , 

adjustment, 

lead; 

maxLlneStretch, 
maxParaStretch , 
lineStretchFactor, 
paraStretchFactor; 
ImeRect; 

vertical »= false; 



COLFlushTop( col ); // remove effects of vj 

if ( col->GetFiowdir() .IsVerticalO ) { 
vertical ^ true; 
currDepth « L0KIG_MAX; 

} 

/* These handles will store arrays of structures to represent */ 
/* the optimum and the maximum spacing for each line in */ 
/* the column, and for each paragraph in the column. 

try { 

lineSpace = (VJSpace* )M£MAllocPtr( si2eof{ VJSpace ) * growUnits ) 
paraSpace « (VJSpace* )MEMAllocPtr( si2aof( VJSpace ) « growUnits ) 



mterPara ^ interLine « 0; 
txl = col->GetFirstline() ; 
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scTsKtline *tL ine; 
TypeSpsc spec ; 
MicroPoint vDiff, 

capHeight, 

maxDepth = LOlsIG^MIN; 
scXRec t line Rec t ; 
RLU capHiteRlu, dl, d2, d3; 

scRLURect rect ; 
Boo] vertical ^ false; 

COLFlushTop( col ); // remove effects of previous vj 

if ( col->GetFlowdir() .IsVerticalO ) { 
vertical = true; 
maKDepth * LOHG„MAX; 

} 

lastLineH - tKl = col->GetFirstlin8() ; 
if ( txl mil ) { 
return ; 

} 

for ( ; txl 1= NULL; tsl - LMeKt( txi ) ) { 
tLine = tKl; 

if ( vertical ) 

maKDepth « MIN( tLine->OetOrigin ( ) .k^ maxDepth ); 
else { 

/« Find the depth of the last line */ 
maKDepth - MAX( tLi]ae->GetOri9in() .y, masDepth ); 

I J lastLineH = txl; 

a > 

l",] /« Calculate the distance between the last possible */ 

fy x» line position and our last actual position */ 

^3 if ( vertical ) 

5 J vDiff * masDepth; 

^'^ else 

"'=4 vDiff ^ col->Depth() - maKDepth; 

I" MicroPoint maslead lastLineH->Ma5rLead ( spec ); 

vDif f CSlastLinePosition( ccsl->GetAPPHame() , spec ); 

M if ( flag eVJCenter ) { 

|,| /* For center justification, cut the distance to move each 

J'^f * line in half Further adjustment must be made for the vertical 

f'^ * space occupied by the first line, 

f!l */ 

if (( txl - col->GetFirstline() ) NULL ) { 

MicroPoint ma^lead = tKl->MaKLead ( spec ); 

scCachedStyle: :SetFlowdir ( col->GetFlowdir ( } ); 
scCachedStyle: :GetCachedStyle( spec ); 

FIgetRLUFontEKtents( scCachedStyle: :GetCurrentCache{) .GetSpec() , capHiteRlu. dl, d2, d3. 

rect ) ; 

capHeight « scRoundMP( (REAL)scCachedStyle : :GetCurrentCache () .GetPtSize() / scBaseRLUsys 
teiR * capHi teRlu ); 

vDiff CSfirstLinePositionC col->GetAPPName ( ) , spec ); 
vDiff capHeight; 

vDiff 2; 

} 

} 

if ( vDiff !- 0 ) { 

coi->SetInkEstents( 0, 0^ 0, 0 ); 

for ( tKl « col->GetFirstlxne() ; txl NULL; tKl = LlsOsFext( txl ) ) { 
/* Shift all the lines down by */ 
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VJSpace* spacePtr space; 
spacePtr numRecords; 

spacePtr->opt = opt; 

spacePtr->max === mas; 

spacePtr->upperBound = (REAL) mas / opt; 

} 

/* fetum the minimum line space multiplier allowed */ 
/* by any line in the column. */ 

static REAL MaKSpaceStretch ( VJlSpace* space, 

si2e_t numRecords ) 

{ 

REAL maKStretch ; 

if { nuiriRecords — ) { 

maKStretch - space ->upperBound; 
space++ ; 

} 

else 

return 0; 

for ( ; numRecords — ; space4-+ ) { 

if ( space -> upper Bo^und < maxStretch ) 
masStretch = space ->upperBound; 

} 



}I3 



return maxStretch; 



Return the total line space expansion if every line's space is */ 
/fiJ multiplied by maKStretch. */ 

S;t4tic MicroPoint TotalSpaceStretch( VJSpace* space, 
I size^t numRecords , 

""^4 REAL maKStretch ) 

REAL totalStretch = 0; 

I J for ( ; numRecords--; 3pace++ ) 

totalStretch space ->opt « ( masSt retch - 1 ) ; 

return scRoundHP( totalStretch ); 

/^"l^eturn the product of the o'g^timvm line space and */ 
/* the stretchFactor to calculate the distance to shift a line down. */ 

static MicroPoint LineShift( VJSpace* space, 

REAL StretchFactor, 
short index ) 

{ 

MicroPoint shift; 

/* MicroPoint * REAL 
shift ^ (MicroPoint) ( space [indes:] .opt » ( stretchFactor - 1 ) ); 

return shift; 



/* If flag center, we do center vertical justification */ 
/» Otherwise, we do flush bottom. */ 

static wid COLFlushBottom( scColumn* col, 

eDoVJ flag ) 

{ 

scTestline *tsl; 
scTestline *lastLineH; 
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/»»»**»»*»»*»**»**»**»»*»*»**«********«*****»*********»*********************** 

File: SCC0LUM2.C 

$Header: /Projects/Toolbox/ct/SCC0LUM2.CPP 2 5/30/97 8:45a Wmanis $ 

Contains: The code to vj columns and to save the line state 

before reformatting and then compare it post reformatting 
to determine redisplay. 

Written by: Man is 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

«**»«»******«»**»»**»»****»**»*•«*»»**»******»************************ 

#include "sccolumn.h" 
#include "scglobda.h" 
#include *'scteKtli .h" 
#infiude "scpubobj.h" 
^inkinde "scmem.h'* 
#in^|ude "scexcept.h" 
#ing^ude "screfdat .h*' 
#in|iude "sccallbk.h" 
#incjude "scstcach.h" 
#ines:Jude "scstream.h" 
#incJude <limits.h> 

/**«^»***»**»»*»»*»«»*«**««**«»»**»*******************************^ 

strji^t VJSpace { 

j^icroPoint opt; 

'ilicroPoint mas; 
; ilEAL upperBound ; 

/* rs^^sK W « ss s= IS ss S! = =; ai = =; » = = a; e =: =1 w ss ss =s =5 » == =! s= = as w = = « — 

Static void COLFlushTop( scColumn* ); 
static void COLFlushTopBottom( scColumn* ); 

enum eDoVJ { 

eVJBottom « 1, 
eVJCenter 

}; 

#define growUnits 30 

#define growSize ( sizeofC VJSpace ) * growUnits ) 



B =! ss as » » SB 3S as s; =^ as ss ss S! ss sc =s =1 IS sK SB K as sa ss ss*/ 



/* Add a space record to the end of the handle. */ 

static void InsertSpaceRecord ( VJSpace*£c space, 

MicroPoint opt, 

MicroPoint max, 

size_t numRecords ) 

si2e„t newSise = ( numRecords + 1 ) * sizeof( VJSpace ); 

if ( MEMGetSizePtr( space ) <- newSize * sizeof( VJSpace ) ) 

space = (VJSpace* )MEMResizePtr( (void**)£espace, newSize * sizeof( VJSpace ) ) 
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Unlock (); 

} 



Status scRedispList; :CL„GetColuittnData{ APPColumn appname. 

scColRedisplay& data ) const 



{ 



status Stat - scSuccess; 

volatile int locked * false; 
volatile int found « false; 

try { 

long limit = GetMumI tems { ) ; 

scColRedisplay* colredisp - (scColRedisplay*)Lock ( ) ; 
locked true; 

for ( ; limit—; colredisp4-4- ) { 

if ( colredisp->£APPName appname ) { 
data ^ *colredisp; 
found = true; 

} 

raise„if( found false. scERRstructure ); 

} 

ICUORE^RERAISE; 
^•::3return stat; 
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Unlock () ; 

MdC8ll( colRef Data. f Col ); 
Lock ( ) ; 

cell - FindCell{ col Re f Data . f Col ); 

} 

colRef Data. f Col ->ComputeInkExtents( ) ; 
c;eli->fWidth « colRef Data . f Col ->Width {) ; 

cell ->f Depth = colRef Data . f Col ->Depth () ; 

cell->fEKRect = colRef Data, f Col ->GetInkEs:tents () , 

cell->fAdditionalText = colRef Data. f Col ->KoreTeKt( ); 

scXR^ct fRepaintRect( cell->fRepaintRect ); 
f RepaintRect .Union ( colRef Data . f LineDamge ) ; 
cell->fRepaintRect - fRepaintRect : 

cell->fHasRepaint - fRepaintRect .Valid( ) ; 

scXRect fDamageRectC cell->fDamageRect ); 
£BamageRect .Union ( colRefData . f LineDamage ) ; 
cell->fDamageRect = fDamageRect; 

cell->fHasDamage - fDamageRect .Valid () ; 



UnlockO; 

} 



s ss =! as ss ST =» =t 2 



voi#^scRedispList: :AddColumnC scColumn* col, scXRectSc srect ) 

{ 

'^JockO; 



JIfcColRedisplay* cell - FindCell( col ); 

af ( icell ) { 
H:3 UnlockO ; 
;:i AddCell( col ); 
""-^ Lock(); 

C3 cell - FindCell( col ); 

a } 

Hol->ComputeInkEs:tents ( ) ; 
'-i:ell->f Width - col->Width () ; 

ht:ell->£Depth = col->Depth(); 

r£:ell->fEKRect ^ col->GatInkExtents ( ) ; 

Jell->fAdditionalTeKt = col->MoreTeKt ( ) ; 

r^^cXRect fRepaintRect ( eel l-> fRepaintRect ); 
"''fRepaintRect .Union ( xrect ); 

eel l-> fRepaintRect - fRepaintRect; 

cell->fHasRepaint - fRepaintRect .Valid () ; 

UnlockO; 

} 

void scRedispList: :SetIinmediateRect( scColumn* col, 

const scImediateRedisp& iimiedredisp ) 

{ 

Lock ( ) ; 

scColRedisplay* cell - FindCell( col ); 

if ( Icell ) { 
UnlockO; 
AddCell{ col ); 
Lock ( ) ; 

cell - FindCell( col ); 

} 

cell->£ImrtiediateRedisplay « true; 
cell->fInimediateArea - immedredisp; 
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File: SCCOLIHF.C 



$Header: /Projects/ToolboK/ct/SCCOLINF .CPP 2 5/30x97 8:45a ^anis $ 
Contains: code to collect column redisplay information 
Written by; Mania 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, Mk. 
Ml rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admssion or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbos Application software is the proprietary 
and confidential property of Stonehand Inc. 

#include "scpubobj .h" 

#include "scglobda.h" 
#include "screfdat.h" 

voi'fi scRedispList : :ReInit ( ) 

} fy 

scdbl Redisplay* scRedispList : :FindCell ( const scColumn* col ) const 

{ 

lAons limit ^ GetNumI terns () ; 

:^ scColRedisplay* colredisp = (scColRedisplay*)Lock () ; 

I'^foT ( ; limit--; colredisp++ ) { 

if ( colredisp->fColu2cnID === col ) { 
I J Unlock 0 ; 

ijL return colredisp; 

l2 } 

'"unlock (); 
return 0; 

} 

void scRedispList ; :AddCell ( scColumn* col ) 
{ 

scAssert( !FindCell( col ) ); 

scCol Redisplay colredisp ( col, col->GetAPPName( ) ); 
AppendData( (Element? tr)SfColredisp ); 

> 

void ScRedispList : :AddColumn ( const scCOLRefData& colRefData ) 
{ 

Lock () ; 

scColRedisplay* cell = FindCell( colRefData . f Col ); 
if ( Icell ) { 
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inline scCharFlags& MkChrFlgsC ushart& flags ) 

{ 

return •(scCharFlags»)&flags; 

} 

#enelif /» JL.SCCHAR */ 
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return f 2„.warichu_; 



Bool 



void 



IsSpecialNihonC void ) const 



void 



void 



unsigned 



'flints 



return f2„.renmoji„ || f2„.rubi„ |1 f2„.warichu„ 



ClrSpecialHihon( void ) 
{ 

ClrRubiO; 
ClrRenMoj i ( ) ; 
ClrWarichu() ; 

} 

SetSpacePosition( unsigned val ) 



f 2_.spacepos„ * val; 



ClrSpac8Position( void ) 
{ 

f 2_.spac:epos_ « 0; 
GetSpacePosition( void ) const 
return f 2„.spacepos_; 

} 

SetField( uintS field ) 

^ fl_.fField = field; 
} 

GetField( ) const 

^ return {uint8)f l„.fField; 
} 



. Bool 



private : 

^""Void 



void 



IsBreakable( void ) const 
{ 



return !{ f2„.renmoji„ M f2„.rubi„ H f2„.warichu_ H fl„.fMoBreak ) 



} 



ClearMinFlagsC void ) 

^ f l^.fBiscHyph - 0; 
f 1_ . f NoBreak 

f l^.fHyphLevel - 0; 

fl„.fAutoKern 0; 

fl^.fDropCap - 0; 

fl„,fLineBreak ^ 0; 

ClearAllFlagsC void ) 
{ 





,dischyph„ 




0; 


£2 


. nobreak_ 




0; 


f2„ 


.hyphlevel„ 




0; 




, autokem. 




0; 


f2„ 


,dropcap_ 




0; 


f2„ 


.linebreak„ 


— 


0; 


f2_ 


, spacepos_„ 




0; 


f2„ 


,warichu„ 




0; 




,.rubi„ 




0; 


f2_ 


.renmoji_ 




0; 



} 



union { 

scCharFiagsl fl_ 

scCharFlags2 f2. 

uint32 f_ 
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} 



fl„.£DiscHyph - 1; 



void 



Bool 



void 



void 



Bool 



Bool 



'i^foid 



--,?v^oid 



?^oid 



ixBool 



ClrDiscHyphen{ void ) 

^ n„.fDiscHyph « 0; 

lsDiscHyphen( void ) const 

^ return £l„.fDiscHyph; 
} 

SetNoBreak( void ) 

^ fl_.£HoBreak « 1; 

ClrWoBi^ak( void ) 

^ fl^.fHoBreak - 0; 

IsHoBr0ak( void ) const 

^ return f 1_„ . f HoBreak ; 
} 

IsHyphPresent ( void ) const 

^ return GetHyphLevel { ) | | IsDiscHyphen ( ) 
} 

ClrAutoBitsC void ) 

^ ClrAutoHyphenO ; 
ClrKernBitsO; 

} 

SetRubi( void ) 
f2„.rubi„ = 1; 

} 

CirRubi( void ) 

^ f2„.rubi„ = 0; 

} 

IsRubi( void ) const 

^ return f2_.rubi_; 
} 



void 



void 



unsigned 



void 



void 



unsigned 



SetRenMoji( unsigned val ) 
f 2_.renitioji„ = val; 

ClrRenMoji( void ) 

f2„.renmojx_ =0; 

} 

GetRenMoji( void ) const 
{ 

return f 2_.renmoji„; 

} 

SetWarichu( unsigned val ) 

f2„.warichu„ = val; 

ClrWarichu( void ) 
{ 

f2„.warichu„ = 0; 

GetWarichu( void ) const 
{ 
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void ClrVarious( void ) 

{ 

f l^.fLmeBreak = 0; 
f l„.fHyphLevel - 0; 

} 



// 
// 
// 
// 
// 



int operator==( const scCharFlagsSt flags ) const 

{ 

return f «- flags.f ; 

} 

scCharFlagsS operator- ( const scCharFlagsS flags ) 



} 



f = flags.f ; 

return »this; 



void SetLineBreak(void) 
{ 

f l_.fLineBreak =1; 

} 

void ClrLineBreak(void) 

{ 

f l_.fLineBreak =0; 

} 

Bool IsLineBreak (void) const 

.'S return f l^.fLmeBreak; 

} 

fU void SetDropCap( void ) 

■1 { 

fl^.fDropCap 1; 

ly } 

SJ void ClrDropCap( void ) 

£l_,fDropCap ^0; 

L } 

LJ Bool IsDropCap( void ) const 

{ 

, \ return f 1_. fDropCap; 

> 

ri void SetKernBits( void ) 

^ { 

f l^.fAutoKern = 1; 

} 

void ClrKernEits( void ) 

{ 

fl_.fMtoRern ^ 0; 

} 

Bool IsKernPresent ( void ) const 

{ 

return fl .fAutoKern; 

} 

void SetAutoHyphen ( unsigned val ) 

{ 

f l^.fHyphLevel * val; 

} 

void ClrAutoHyphen( void ) 

{ 

f l^.fHyphLevel 0; 

} 

unsigned GetHyphLevel ( void ) const 
{ 

return f 1_ . f HyphLeve 1 ; 

} 



void 



SetDiscHyphen( void ) 
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File: SCCmR.H 



$Header: /Projects /Too IboK/ct/SCCHFLAG.H 2 5/30/97 8; 45a V^anis $ 
Contains: Flags for the glyph processing. 
Written by: Manis 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 



Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



#ifndef _H_SCCHAR 
^define „H„SCCHAR 



#define SI2E„0F„MACHIHE 256 



/*^ character definitions 
#Sif ine MIN„CHARACTER 
#define MAX_CHARACTER 



START„STREAM 
(SIZE„OF_MACHllsfE - 1) 



sl^uct scCharFlagsl { 



'^-'i unsigned 


fFausChar 


16; 


// for alignment purposes 


J^j unsigned 


fDiscH^^h 


1; 




unsigned 


fMoBreak 


1; 




'^J unsigned 


fHyphLevel 


3; 




f3 unsigned 


fAutoKern 


1; 




^™ unsigned 


fDropCap 


1; 


// why do i need this 


unsigned 


fLineBreak 


1; 


// why do i need this 


unsigned 


fField 


8; 





nt 



unsigned 


fauKchar„ 


16; 




// for alignment purposes 


unsigned 


dischyph_ 


1; 






unsigned 


nobreak_ 


1; 






unsigned 


hyphlevel„ 


3; 






unsigned 


autokern_ 


1; 






unsigned 


dropcap„ 


1; 


// 


why do i need this 


unsigned 


linebreak_ 


1; 


// 


why do i need this 


unsigned 


spacepos„ 


2; 


// 


position of space leading or trailing 


unsigned 


warichu_ 


2; 


// 


if non--zero represent # lines 


unsigned 


rubi„ 


1; 


// 


annotated character (s) 


unsigned 


renmoj i_ 


3; 


// 


mas target of 7 characters 



class scCharFlags { 

friend class CharRecord; 



public: 



void ClrCJKVarious( void ) 

{ 

ClrVariousO ; 

f 2_.spacepos„ ^ 0; 

} 
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#define scWordSpace 
#defins scRonaanWordSpace 
#define scRanj iWordSpace 

#define scBreakingHyphen 
#define scNoBreakSpace 
#define scEnDash 
#define scEmDash 



0x0020 

scWordSpace // ' 'or 0k20 or 32 
0x8140 



OxOOaO /* part of the mac character set 

OxOOdO 

OxOOdl 



inline Bool IsBreakingCharacter ( UCS2 ch ) 

{ return ch scBreakineHyphen \ \ ch scEnDash \\ ch scEmDash; } 



UCS2 CMinputMap( ushort ); /* from APP to Stonehand 

* on file importing 



UCS2 CMctToAPP( UCS2 ); 
UCS2 CMappToCT( UCS2 ); 
int CMcontent( UCS2 ); 



/* from Stonehand to APP */ 
/* from APP to Stonehand */ 
/» is keystroke a selection change 

* or a real input of content 



void CMmakeKeyRecordTwo ( scKeyRecordS, 

UCS2, 
QlyphSize^ 

O TypeSpec, 

Bool, 

scStreamLocationS: ); 



^eMi£ /« Ji SCCHAREX 
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File: SCCHAREX.H 

$Header: /Projects/Toolbox/ct/SCCHAREX.H 2 5/30/97 8:45a Wmanis $ 
Contains: character exchange from toolbox to outside world 
Written by: Lucas 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbos: software is the proprietary 
and confidential property of Stonehand Inc. 



#define scIndentSpace 



0x0007 deprecated 3/18/95 warn 



»«*»»*»*«»****«*«»*«*«*««»«»*****«»«***«*»*«**«»*****««*««*»»*********/ 



#ifndef „H.SCCHAREX 
#define Ji^SCCHAREX 

#include "sctypes.h" 



#d'#ine 
#<l^ine 
#dpEine 
ine 
#dg^ine 
#iMine 
#4^ine 



scLeftArrow 

scRight Arrow 

scUpArrow 

scDownArrow 

scParaSplit 

scBackSpace 

scForwardDelete 



((UCS2)1) 
((UCS2)2) 
(CUCS2)3) 
((UCS2)4) 
C(UCS2)5) 
((UCS2)6) 
((UCS2)7) 



// delete character backward 
// delete character forward 



//?the following are characters actually stored m the stream and do have 
//%4real character codes 



#d0fine scEndStream 
/f iQxOOOl is taken »/ 
/f "l}x0002 is taken */ 
/*-t)x0003 is taken */ 
/4l|0x0O04 is taken */ 
/*ijOx0005 is taken */ 
/^scOxOOOS is taken •/ 
#4^ine scEmptySpace 
#<|ig^ine scTabSpace 
#define scHardReturn 
#define scVertXab 
#define scField 

/» OxOOOd is not taken 
/» OxOOOe is not taken 
#define scRulePH 
/* OxOQlO is not taken 
#define scParaStart 
cursor position »/ 
#define scParaEnd 
#define scQuadCenter 
#define scQuadLeft 
#define scQuadRight 
#define scQuadJustify 
#define scFixAbsSpace 
#define scFixRel Space 
#define scFillSpace 
#define scHoBreakHyph 
#define scDiscHyphen 
#define scFigureSpace 
#define scThinSpace 
#define scEnSpace 
#define scEmSpace 



0x0000 



*/ 
»/ 



0x0008 
0x0009 
OxOOOa 
OxOOOb 
OxOOOc 



OxOOOf 



0x0012 
0x0013 
0x0014 
0x0015 
0x0016 
0x0017 
0x0018 
0x0019 
OxOOla 
OxOOlb 
OsOOlc 
OxOOld 
OxOOle 
OxOOlf 



/* a horizontal move that is meaningless to the user */ 
/* part of the mac character set »/ 
/* part of the mac character set «/ 

/* field character */ 



0x0011 /* this has no meaning outside of a report to the client of the 



/* para break */ 



/* absolute fixed space */ 

/» relative fixed space stored in rlu's »/ 



File: Work\GrtPrtNStonehnd\Sccal Ibk . h 
virtual void release (j =0; 

virtual void content ( stUnivStringS, APPColumn, TypeSpecS. ) 

}; 

#endif H SCGALLBK •/ 
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// ink extents of all glyphs in 
// font. 



/* ^^^^^^^^^^^^^^^^^ m?mmTi<M sub-system */ 

// ^CALLBACK Initializes the Hyphenation subs-sytem to the indicated langauge. 
// Returns true if language properly inited. 

// 

Bool scIMPL_IMPORT HYFLanguagelnit ( 

APPLanguage lang ); // @parm <t APPLangudge> 

// ©CALLBACK Chars are in word, li3ULL terminated, return hyph values m hyfs, man 
// len of either is 54. if word is hyphenated return true. 

// 

Bool scIMPL„IMPORT HYFWord( 

const UCS2* theWord, // ©para The word. 

short* hyphArray ); // @parm The hyphenation array. 

^^^^^^^^^^^^^^^^^^^ CHAR DRAWING CALLBACKS */ 

/■« sss=s=!3 = =K = = =: = = = = = =sa« = =;=s==:= = = = s=«!K=s — — » = — — — — = */ 

// ©CALLBACK Called before the start of drawing a line. 

vqfii soIMPL.IMPORT APPDrawStartLine ( 

:f" APPDrwCtx drwctK, // @pann <t APPDra??CtK> 

MicroPoint k, @parm X origin of line, 

fy MicroPoint y, @parm Y origin of line. 

const scXRect^ inkeKt ); @parm Mas ink extents of line. 

/i^-feCALLBACK Called n times ( for each style or full buffer ) between a APPDrawStartLine 

/>=-Jind an APPDrawEndLine. 

//f^gKref <f SCCOL_Update> 

vdfd scIMPL^IMPORT APPDrawString ( 

^ APPDrwCtx dc, // @parm Pass thru context. 

C3 const scGlyphArray* ga, // §parm <t scGlyphArray> array. 

r,j short num,// @parm Number of glyphs in array. 

/I MicroPoint // §parm X origin of string. 

^ MicroPoint y, @parm Y origin of string, 

1=^ const scGlyphlnfoSc gi );// @parm <t scGlyphlnfO 

/^SaCALLBACK Called at the end of drawing a line, 
vdik scIMPL^IMPORT APPDrawEndLine ( 

APPDrwCtx dc ); @parm <t APPDrwCtx> drawing context. 



// ©CALLBACK Used to draw hi li ting rectangles, 
void scIMPL„IMPORT APPDrawRect( 

const scXRectSt xorRect, @panti <c scXRect> to xor. 

APPDrwCtx dc, // @parm <t APPDrwCtK> drawing context. 

Bool sliverCursor ); 

void scIMPL_IMPORT APPDrawRula( const scMuPomtSt, 

const scMuPointSs, 
const scGlyphlnfoSc, 
APPDrwCtx ); 



/* ^^^^ 



class clField { 
public ; 

static clFieldSs 

virtual uintS 



createField( scStream*, umtS ). 
id() const = 0; 
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RLU scIMPL„IMPORT 



FlgetRLUEscapement ( 

const scFontRendsrSe fr, 
UCS2 ch ); 



// @parm <t scFontRender> 
// @parm Glyph. 



RLU scIMPL IMPORT 



FIgetRLUEscapement ( const scFontRenderSc, 
UCS2, 

RLU /*sug3estedWidth*/' ) ; 

// iCALLBACK Return the kerning value of the glyphs in design coordinates. 
// 

RLU scIMPL^IMPORT 



FlgetRLUKernC 

const scFontRenderSf fr, 
UCS2 chl, 
VCB2 ch2 ); 



// @pam <t scFont Render > 
// @parm Glyph one. 
@parm Glyph two. 



©CALLBACK Return the glyph ink boz in design coordinates 

// 

scRLURectSc scIMPLJMPORT FIgetRLUExtents ( 

const scFontRenderSc fr, 
UCS2 ch, 
scRLURectSc iskBoK ); 



@panti <t scFontRender> 
// @parm Glyph one. 
// fparm <c scRLURect> 



// ©CALLBACK Return the various font metrics in design coordinates 
void scIMPL„IMPORT FIgetRLUFontEKtents( 

const scFontRenderSc 

RLU£< 

RLUS= 

RLU& 

RLU£< 

13 scRLURect& masInkEKt ); 



font render, iparm <t scFontRender> 
capHite, §parm Cap height. 

KHite, // @parm Lower case H height. 

ascenderHite, @parm Ascender height. 

descenderDepth, // @parm Descender height. 



@parta <c scRLURect> union of 
// ink extents of all glyphs m 
// font. 



DEVICE METRICS 



//f^ALLBACK Return the escapement of the glyph in device coordinates 

//% transformed into toolbox coordinates ) . 

GIgfhSize scIMPL^IMPORT FlgetDEVEscapement ( 

const scFontRenderS: fr, // §parm <t scFontRender> 
UCS2 ch ); // @parm Glyph. 



Gl-yphSise scIMPL„IMPORT FIgetDEVEscapement ( const scFontRenderSc, 

UCS2, 

1^ GlyphSize /*suggestedWidth*/ ); 

/4%CALLBACK Return the kerning value of the glyphs in device coordinates 
//% transformed into toolbox coordinates ) . 

GlyphSize scIMPLJHPORT FIgetDEVKern ( 

const scFontRenderSt fr, // @parm <t scFontRender> 

UCS2 chl, // @parm Glyph one. 
UCS2 ch2 ); @parm Glyph two. 

// ©CALLBACK Return the glyph ink bos in device coordinates 
( transformed into toolbox coordinates ) . 

// 

scXRect& scIMPL„IMPORT F I getDEVEx tent s { 

const scFontRenderS: fr* // ©parm <t scFontRender> 
UCS2 ch^ // @parm Glyph one. 

scXRectS: inkBos );// tparm <c scXRect> 

// ©CALLBACK Return the various font metrics m device coordinates 
// ( transformed into toolbox coordinates ) . 



void scIMPL„IMPORT FIgetDEVFontExtents { 

const scFontRenderSc 

MicroPointSc 

MicroPointSc 

MicroPomtS; 

MicroPointS 

scXRectS* 



fontrender, // ©parm <t scFontRender> 
capHite, ©parm Cap height. 

xHite, // ©paitti Lower case x height. 

ascenderHite, // ©parin Ascender height. 
descenderDepth, ©parm Descender height. 
maxInkExt ); // ©parm <c scXRect> union of 
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status scIMPL„IMPORT TSGetStyle( TypeSpecSc ts, // §parm <t TypeSpeO 

scStyleSt style ) ; // @parm <c scStyle> 

// ©CALLBACK This call foack is used to detentiine positioning of tabs. 
// @ex Default value for tab positionins might be. 1 

// tablnfo.KPos = ( kPos / defaultTabWidth + 1 ) » defaultXabWidth ); 
// 

status scIMPL^IMPORT TSTabInfo( 



TypeSpecS* 


paraspec. 


// 


paragraph spec 


TypeSpecS 


ts. 


// 


@parTu 


<t TypeSpeO 


scTabInfo& 


tablnfo^ 


// 


@parm 


<t scTabInfo> 


MicroPoint 


kPos, 


// 


@parm 


X position in column 


MicroPoint 


yPos, 


// 


@parm 


Depth in column. 


long 


lineHum ); 


// 


§parm 


Line num in para. 



// default wordspace 
status BclWl.jm(m TSfxllCharInfo( TypeSpecS, 

eFCAl ignmentSt, 
MicroPoint^ 
MicroPoint, 
long ); 



// default return false 
Bool scIMPL^IMPORT TSdropCap( TypeSpec^, // para spec 

TypeSpec&> // character spec 

DCPositionSt, // position struct 
UCS2 ) ; // dropcap character 

//lin^ Bool TSdropCapC TypeSpec. DCPositionS ) { return false; } 

/^iS^^ — =s=s — — -wss sBttssss=s = Kss Masses * = WK«sssssMtK«» */ 

//fifOLUMIsl SPECIFICATIOHS - 'CS' 

By sending in the two specs the spec management system may generate 
Vy^/ ^ value intelligently, either a hard coded value or parametrically 
''"rj// derived value using the pointsise of the type 

//"^CALLBACK Position of first line in a column, default should 
//jse point size, this is not for use with dropcaps. Client 
/43nay return any reasonable value and may use none, one or 
/>^;,j3oth of the parameters. 

MicroPoint scIMPLJMPORT CSf irstLinePosition ( 

APPColumn appcol, §parm <t APPColumn> 

M TypeSpec ts ) ; @parm <t TypeSpec> 

/4^CALLBACK Position of last line m a column, 
/>iiefault should be zero since this will allow 
// multiple columns with different pointsizes 
// to bottom align. 

MicroPoint scIMPL„IMPORT CSlastLinePosition ( 

APPColumn appcol, @parm <t APPColumn> 

TypeSpec ts ) ; // @parm <t TypeSpeO 

// ^CALLBACK Border to inset text from shape applied to 
// column default is 0, the spec is the first 

encountered in the column, 
inline MicroPoint CSrunaroundBorder ( 

APPColumn appcol, // @parm <t APPColumn> 

T5^eSpec ts ) @parm <t TypeSpeO 

{ return 0; } 

/* POOT METRIC CALL BACKS =««««^^^==.=.==.«=^«:.««-«.-=.-«««« */ 



/////////// DESIGN METRICS ///////////////////////////// 

DESim COORDINATES ARE THE RELATIVE UNIT SYSTEM DEFINED 
//■ IN scBaseRLUSystem 

§CALLBACK Return the escapement of the glyph m design coordinates, 

// 
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scIndRightBL, 

scHoHyphLastWord , 

scCollsfoBreak;. 

scKeepNsKt, 

scLinesBefare, 

scLinesAfter, 



scIndentExtral, scIndentEKtraZ, 



scWidowOrphanEKtral,scWidowOrphanExtra2, 



scRag, 

scForce Just , 
scRagPattern, 
scRagZone , 
scKesmMairginSir 
scHLeft, 
scHRight^ 
scHLe ft Amount , 
scHRightAmount, 

scHyphenation, 
soHyphChar, 
scHyphLines, 
scHyphEKC^p, 
scHyphMinSizSi. 
scPreHyphs , 
scPostHyphs , 
scHyphPr opens i ty 
scHyphCaps , 
scHyphAcros , 

scDCShow, 
C3 scBCChar, 
^2 scDCptSize, 
IZ. scDCsetSize, 

scDChOffset, 
ry scDCvOffset, 
^1 scDChBorder^ 

scDCvBorder, 

scDCfont, 
"^•J scDCcolor, 

scMaxFillChars, 
^ scFillPcs, 
C3 scFillChar. 

scFiilAlign,. 

scMaKTabSr 
H scTabPos, 
12 scTabAlign, 

scTabChar, 
"""^ scTabFi 11 Align, 

scMinMeasure, 

scRunAroundBorder, 

scFirstLine, 



scRagExtra 1 , scRagEKtra2 , scHPuncExtra 1 , scHPuncExtra2 , 



scHyphEKtra 1 , scHyph£Ktra2 , 



scMaxValType 
} eSpecChange; 



// ©CALLBACK Used to detemine minimal work on a spec change, 

// @rdesc <t eSpecTask> 

eSpecTask SpecTaskCa leu late ( 

eSpecChange specChange ); // §pam <t eSpecChange> 

SPEC SUB-YSTEM CALL BACKS ««^=.«^=^==.«=.«=,==.=.=«:==.= »/ 

class scStyle; 

// ©CALLBACK Gets the scStyle structure. 
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void* scIMPLJMPORT APPDisklDToPointer ( 

APPCtxPtr, 

long diskID, // @pdrm A value returned by <f APPPointerToDiskID> 

// that we want a valid pointer to now. 
stDiskidClass ); class of object 



// 

// called periodically by the Toolbox during actions 

that will take some time. If the call for an event returns 0, 

// the action will be aborted and control will revert to application. 

// The oliBTit can give the TooibOK and hint as to ho?? much more time 
it can process for. The client can return a negative number as 

// an indicator to get out fast. 

// 



// this describes the current process type that the toolbox 

// performing, 
typedef enurti scProcTypes { 

scBrawProc, // toolbox is drawing 

scRefonnatProc // toolbox is reformatting 
} scProcType; 



scTicks scIMPL_ IMPORT APPEventAvail ( scProcType ); 

/yf==genum eSpecChange | When a TypeSpec is changed externally to the 
//ffoolbox, the Toolbox needs to be informed that a change has occurred 
/^4o that refomattmg may occur. In an effort to minimize the work 
//Iflbhe function <f SpecTaskCalculate> can calculate the minimum amount 
//fii>f work that needs to be done. (e.g. changing the color of a spec 

^hould only require repainting and not reformattion, 
/>^^pecTaskCalculate{scColor) would i^eturn eSCRepamt ) With the return 
M^alue of SpecTaskCalculate one can inform the Toolbox about the changed 
//^-spec <f SCEKG_ChangedTS> ( ts. <t eSpecTask>, <c scRedi3pList> ) and 
/4^et information about the minimal area to update. 

tv^edef enum eSpecChanges { 
1 3 scLanguage, 
H, J scFont ^ 
, scColor^ 
V4 scRenderAttribute, 
scCharTransform, 

scPointSize, 
i=J scSetSize, 
scHoblique, 
scVoblique, 
scRotation, 

scKern , 
scMarginKern, 
scTrack , 
scMinLsp, 
scOptLsp, 
scMaxLsp , 

scMinWsp, 
scOptWsp , 
scMaxWsp , 

scLead, 
scBaseline, 
scAboveLead^ 
scBelowLead, 

scIndLines, 
scIndAfflOunt, 
scIndDepth, 
scIndLeftBL, 
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SHeader: /Projects/Toolbox/ct/SCCALLBK.H 2 5/30/97 8:45a Wraanis $ 
Contains: The call backs to the client from the composition toolboK. 
Written by: Manis 

Copyright (c) 1989-1994 Stonehand Inc., of Cambridge, m. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietaary 
and confidential property of Stonehand Inc* 

@doc 

#ifndef H^SCSPECSY 
#define „H-SCSPECSY 

#ifdef SCMACINTOSH 
#pragma once 
#^Sif 

#xtelude '*sctypes.h" 

//She following are call backs that the application must support 
//"^In order for the above selection messages to work properly. 

//iy 



/^^^lICALLBACK Provides the Toolbox with the drawing 
//^context of the column, used for highlighting or drawing, 

status scIMPL„IMPORT APPDrawContext ( 

,1 APPColumn appCol, // @parm <t APPColumn> 

const scColumn* col, // @parm <c scColumn> 

APPDarwCtxSc drwctx ); // @parm <t APPDrwCtx> 



//*=CALL BACK - this informs the composition toolbox whether it should recompose 

// this column or not, the client may prevent recomposition of columns that are not 

// visible, though keep in mind that if a subsequent column is visble we 

// will have to recompose this column at some point in time. 

Bool scIMPL_IMPORT APPRecomposeColumn ( APPColumn ); 

// ©CALLBACK Maps a pointer of a client object to an ID on disk. Typically 
// a TypeSpec. 

enum stDisfcidCiass { 
diskidUnknown , 
diskidColumn, 
d i sk i dTy pespec , 
diskidOther 

long scIMPLJMPORT APPPointerToDiskID ( 

APPCtxPtr, 

void* clientObj, // @parm Pointer to client object, 

stDiskidClass ); // class of object 



// ^CALLBACK Maps a disk ID to a pointer. Typically a TypeSpec. 
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eBreakType BRKJapanLimeBreak ( CharRecordP, 

long, 
long&, 

scLINERefData^, 

#ifdef scUseRubi 

scRubiArray «, 

#end if 

short, 
shortSe, 

scSpecRecord »*, 
scXRectS:, 
Glyphs izeS*, 
DCStateSi ); 

//MicroPoint BRKComposeRenMo j i ( CharRecordP cbRec, TypeSpac ts, scFlowDir& fd, Bool fit ); 
#endif 

Bool BRKJustify{ CharRecordP, long, long, MicroPoint ); 



#endif /* .H„SCBREAK */ 
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File: SCBREAK.H 



$Header: /Projects/ToolboK/ct/SCBREAR.H 2 5/30/97 8:45a Wmanis $ 
Contains: LineBreaker interface 
Written by: Man is 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

#ifndef Ji„SCBREAK 
#define „H_SCBREAR 

#ifdef SCMACIOTOSH 
#pragma once 
#endif 

#ilg:lude "sccolumn.h" 

tyft^def enum eHyphenRanks { 

f i^eDiscHypbRank - 1, 

' 2 eBestHyphRank, 

\J eGoodHyphRank , 

|y eBadHyphRank 
} ^MyphenRank; 



struct Hyphen { 

I ==1 short offset; 
eHyphenRank rank; 

#include "screfdat.h" 

class scSpecRecord ; 
class scRubi Array; 
class scLEADRefData; 
class scLIHERef Data; 



class DCState; 

eBreakType BRKRomanL i neBreak ( CharRecordP , 

long, 
longS;, 

scLINERefDataSs, 

short , 

short 

scSpecRecord **, 
scXRectS<, 
GlyphSizeS: ); 



#ifdef SCJIS4051 
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return *this; 

} 
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else 

xioStartline = false; 

if ( cb. fTheBits.fCharClass ) 
noEndline ^ true; 

else 

noEndiine = false; 



ValidateBits( theCharacter^ cb ); 

if ( gbrS.numTargetChars > 0 ) { /* inhibit breaks in */ 

gbrS.numXarget Chars--; /* target sequence */ 

} 

else { 

/* set a potential break before every character */ 

if ( I ( noStartline If gbrS. fNoS tart line ) ) { 
BRKSetCandBreak ( eCharBreak ); 

if ( BRRExceedVals( adjustableSpace ) ) { 
BRKLineDecision( 0 ); 
return fiRK£KitLoop( ); 

} 

} 

if ( gbrS.firstBoK ) 
BRKSetFirstBoK ( ); 

} 

1 jgbrS.cB.curBox +=» gbrS .cB .theChRec->escapement; 



U^if ( noEndlme || ( IscCachedStyle: :GetCurrentCache() .fmBreakableNumbers cb.fTheBits.f Digit ) 
gbrS. fNoStartline - true; 

;".else 

gbrS.fNoStartline ^ false; 

fjif ( cb,fTheBits,fHangable ) 

gbrS.cB.f Hang able ^ gbrS ,cB .theChRec->escapement ; 

^_else 

Ij gbrS.cB.fHangabie - 0; 

= 1 gbrS , cB . chCount-f + ; 

%M gbrS . cB . streainCount++ ; 

HgbrS . cB . theChRec+-i- ; 

> ca 

#ek4if 

CandBreakS< CandBreak: :operator=( const CandBreakSc cb ) 
{ 



breakCount 




cb. breakCount; 


startCount 




cb .StartCount; 


streamCount 




cb , StreamCount ; 


wsSpaceCount 




cb . wsSpaceCount ; 


spaceCount 




cb . spaceCount ; 


t ra i 1 i ngSpaces 


=: 


cb . tra i 1 i ngSpaces ; 


chCount 




cb.chCount; 


fillSpCount 




cb.fillSpCount; 


lineVal 




cb. lineVal; 


breakVal 




cb .breakVal ; 


minGlue 




cb .luinGlue; 


optGl ue 




cb .OptGl ue; 


maxGlue 




cb .ma^Glue; 


curBoK 




cb.curBoK; 


fHangable 




cb. fHangable; 


theChRec 




cb .theChRec; 


specChan^ed 




cb . specGhanged ; 


spec 




cb .spec; 


specRec 


3£ 


cb . specRec ; 
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Bool BRKJustify( CharRecordP chRec, /* the character array */ 

long start, ^» count into ch array to start the linebreak */ 

long stop^ /* count into ch array of end of line */ 

MicroPoint measure ) measure to justify to */ 

{ 

long spaces, 
count; 

MicroPoint delta; 
Mi croPo i n t boKWi dth ; 
CharRecordP holdChRec; 
Bool changed ~ false; 

chRec += start; 

holdChRec - chRec; 

boxWidth = 0; 

for ( spaces « 0, count = stop - start; count; chRec++, count — ) { 
switch ( chRec->character ) { 
case scWordSpace: 

if ( BRKStillMoreChars( chRec, (long) count ) ) 

spaces-t"*" ; 
break ; 
default: 

bosWidth chRec -> escapement ; 
break; 

... y ^ 

J ^ delta ^ measure - boKWidth; 
'^;'^if ( spaces ) { 

fy delta « scRoundMP( (REAL) delta / spaces); 

for ( chRec =*holdChRec, count « stop -start; count; chRec++, count — ) { 
switch ( chRec character ) { 
"^-J case scWordSpace: 

f3 if ( spaces ) { 

l" spaces — ; 

l_ if ( I changed chRec->escapeffient 1= delta ) 

C3 changed = true; 

chRec -> escapement = (GlyphSize) delta; 

J break ; 

default: 
f 1 break ; 

} 

} 

} 

return changed; 

} 



#if 0 

static void BRKChar Japanese ( ) 
{ 

MicroPoint adjustableSpace; 
UCS2 theCharacter; 
CharBits cb; 
Bool noStarti ine , 

noEndline; 



adjustableSpace =» gbrS .desiredMeasure - gbrS.cB .curBoK; 
theCharacter = gbrS .cB .theChRec-> character; 

cb - TSCharBits( scCachedStyle: :GetCurrentCache() .fmXheSpec, theCharacter ); 

if ( cb.fTheBits.fCharClass ) 
noStartline - true; 
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int i; 



gforS , breakMach 
gbrS.fMaKlineVals 
gbrS -candBreak 



= new BrFunc[ SIZ£„OF_MACHIM ]; 
- new scMaKLineVals[ M^LEADVALS ]; 
= new CaadBreak[ MMBREAKVALS ]; 



biEiBRKHyphen ; 

bmBRKFillSpac©; 

bmBRRR^ile; 



for ( i = 0; i < SIZE_OF„MACHINE; i++ ) { 
switch ( i ) { 

case scTabSpace: 

gbrS.breakMach[i] = bmBRKTab; 

break; 
case scWordSpace: 

gbrS . breakMach [ i ] = bmBRRWordSpace ; 

break ; 
case scEndStream: 

9brS.breakMac1a[i] = bmBRKEndStream; 

break ; 
case scEnDash: 
case scEmDash: 
case scBreakingHyphen: 
case ' = ' : 

gbrS . breakMach [ i ] 

break; 
case scFillSpace: 

gbrS . breakMach [ i ] 

break ; 
case scRuiePH". 

gbrS . bireakMach [ i ] 

break ; 
case scFiKAbsSpace: 
case scFigureSpace; 
case scThinSpace: 
case scEnSpace: 
case scEmSpace: 

gbrS . breakMach [ i } 
i break; 

case scFinReiSpace : 

gbrS . breakMach [ i ] 

break; 
case scVertTab: 

gbrS . breakMach [ i ] 

break ; 
case scQuadCenter : 
case scQuadLeft; 
case scQuadRight: 
case scQuadJustify : 

gbrS . breakMach [ i ] 

break ; 
case scHardReturn : 

gbrS . breakMach [ i ] 

break; 
case scField: 

gbrS.breakMach[i] ^ bmBRKField 

break ; 
default: 

gbrS .breakMach [i ] 

break; 



bmBRKFisSpace; 
bmBRKRel Space; 
bmBHKVertXab; 



bmBRRQuad; 
bmBRKHardReturn ; 



braBRRChar; 



} 



} 



Static Bool BRRStillMoreChars( CharRecordP chRec, 

long count ) 

{ 

for ( ; count — ; chRec+4- ) { 

if ( CTIsVisible( chRec->character ) ) 
return true; 

} 

return false; 

} 
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} 

Static void ERKAdjustWordSpace ( CharRecordP prevChar, 

Glyphs izs ad j ustment , 

long nuHiSpaces, 

long endSpaces ) 

{ 

y* when we come in here prevchar points to the first word of the next line 
* we need to ignore it if it is a words pace 

if ( prevChar-> character scWordSpace ) 
prevChar — ; 

for ( ; endSpaces B<Ec prevChar > gbrS.gStartRec; prevChar-- ) { 
if ( prevChar->character scWbrdSpace ) 
endSpaces — ; 

} 

scAssert( endSpaces -= 0 ); 

for ( ; nuiaSpaces StE^ prevChar >= gbrS.gStartRec; prevChar — ) { 
if ( prevChar->character scWordSpace ) { 
prevChar- > escapement « adjustment; 
numSpaces — ; 

} 

} 

scAssert( numSpaces 0 ); 

} 

stitiic void BRKRepairFinaiSpace( ) 

{ in 

fyscAssert( gforS .cB ,theChRec->character 0 ) ; 

" iBRKRepairLastSpace( gbrS ,cB .theChRec, gforS .cB .trail ingSpaces ); 

BarSakStruct : : BreakStruct ( ) 
{ ^ 

} C3 

BrfeakStruct ; : "'BreakStruct ( ) 



void BreakStruct: :Init() 
{ 

pspec_.clear() ; 
cB.InitO ; 

for ( int i - 0; i < MAXBREAKVALS ; i-i-f ) 
gbrS.candBreak[i] .Init (); 

} 

free the memory associated with the breaking machine 

void BRKFreeMach( ) 
{ 

delete [] gbrS . breakMach , gbrS . breakMach =0; 

delete [] gbrS.fMaxLineVals, gbrS. fMaKLineVais = 0; 

delete [] gbrS .candBreak, gbrS , candBreak « 0; 

} 

X* init the breaking machine */ 
void BRKInitMachC ) 
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if ( gbrS.cB.iineVal + 1 < MAXLEADVALS ) { 
gbrS . cB . specChanged++ ; 
mlvlndex « gbrS .cB . lineVal ; 

gbrS . fMaxLineVals [mlvlndex] . fSpecRec specRecEntry; 

gbrS.fMaKLineVals[mlvIndex] .fMasLead.Set( scCachedStyle : :GetCurrentCache() .GetComputedLead () 
gbrS.fMaxLxneVals[mlvIndeK] .fMaKlnkExtents = scCachedStyle : :GetCurrentCac:h6( ) - GettlnkEKtents ( 

); 

gbrS. fMaKLineVals [ml vlnd^K-J-i-] .f Oblique ^ scCachedStyle : : GetCurrentCache ( ) .GetHorzOblique() ; 
gbrS.cB.lineVal - mlvlnden; 

*( gbrS.fMaKLineVals + gbrS .cB . lineVal ) - gbrS . fZeroMaKLineVals; 
gbrS.cB.specRec - specRecEntry; 

} 

return theSpec; 

} 

/»*****»»*«»******«**»»**»*»»*«****«*»*»«***»»*»*«***«***»»*»*«**»««*****/ 

find the last non -space character on the line, given that what is passed in 
» is the last character on the line 
»/ 

static CharRecordP BRKLastCharOnLine ( CharRecordP tmpGhRec ) 
^ ^.ifor ( ; CTIsSpace( trapChRec-> character ); tmpChRec-- ) 
'^IJreturn tmpChRec; 

/»»«****»*««»*»***»**««*«»«*»*»*»»»***»«*«*****»******************** 

static void BRKRepaxrLastSpace( CharRecordP trapChRec, 
f3 long numberXoHuli ) 

{ 7' 

~::-,switch ( (tiripChRec-l)->character ) { 

' case scQuadCenter : 
""^4 gbrS.effectiveRag « eRagCentered; 

s J tmpChRec -= 2; 

^2 break; 
^{Z case scQuadLeft: 

C3 gbrS.effectiveRag = eRagRight; 

f3 tmpChRec -= 2; 

break ; 
case scQuadRight: 

gbrS.effectiveRag = eRagLeft; 

tmpChRec 2; 

break ; 
case scQuadJustify : 

gbrS.effectiveRag ^ sRagJustif iedi 

tmpChRec 2; 

break ; 
case scHardReturn : 
case scVertTab : 

tmpChRec -= 2; 

break ; 
default: 

tmpChRec — ; 

break ; 

} 

gbrS.totalTrailingSpace =0; 

for ( ; numberXoNuli tmpChRec- >character scWordSpace; tmpChRec—, numberToNull— ) { 
if ( gHiliteSpaces ) 

gbrS.totalTrailingSpace tmpChRec -> escapement; 

} 

scAssert ( ! numberXoNul 1 ) ; 
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gbrS.theBreakColH « ggcS . theActiveColH; 
gbrS.dcLastBaseline - LOHGJilH; 

} 

else 

gbrS.dcSet = false; 
dcLeftOffset ^0; 

i£ ( gbrS.dcInfo.dcLineOrgChange ESc gbrS -dcLastBaseline ^ y ) { 

if ( y > gbrS.dcInfo.dcVMaK |1 ggcS . theActiveColH gbrS .theEreakColH ) 

gbrS.dcInfo.dcLineOrgChange « 0; 
else /* need to compute left indent for drop caps */ 

dcLeftOffset = gforS ,dcInfo .dcLineOrgChange - x; 

} 

// INDEOTION COOTROL 

if ( gbrS.effectiveRag & Cint)eRagRight ^ (long) lineCount < scCachedStyle: :GetParaStyie ( ) -GetLi 
nesToIndent () ) 

gbrS.brkLeftMargin « scCachedStyle : iGetParaStyle () .Get I ndentAmount ( ) + dcLeftOffset; 

else 

gbrS.brkLeftMargin = dcLeftOffset; 



if ( gbrS.dcLastBaseline ! ^ y £cSc k <= gbrS.charlndent ) 
gbrS.brkLeftMargin += ( gbrS.charlndent - s ); 



// HANGING PUNCTUATION CONTROL 
// this computes the actual overhang 
jLf { ( gbrS.effectiveRag ^ (int)eFlushLeft ) 
fj StSc ( gbrS.ef fectiveRag £< (int )eHangPuncLeft ) 

£c& CTIsPunc( chRec-> character ) ) 
gbrS.brkLeftMargin scCachedStyle: : Get ParaStyle{) -GetLeftHangValue{ chRec->character ); 

f\\ 

,,^brS.theBreakColH ^ ggcS . theActaveColH; 
r^gbrS.dcLast Base line « y; 

// compute the desired measure 
fjiMeasure measure - gbrS.brkLeftMargin - gbrS.brkRightMargm; 

^•^ // compute the hyphenation zone 

C^f { scCachedStyle: :GetParaStyle() .GetRagZoneO > dMeasure ) 
\A gbrS .hyphenationZone « dMeasure / 2; 
= '^Ise 

gbrS, hyphenationZone scCachedStyle: :GetParaStyle() .GetRagZoneO ; 

#iga] 

A LITTLE BULLET PROOFING 
* NOTE: it will be so out of whack the user will spot it fast 
*/ 

if ( dMeasure < 0 ) { 
SysBeep(lO) ; 
return 0; 
return one_point; 

} 

#endif 

return dMeasure; 

> 

static TypeSpec ERKUpdateSpec ( scSpecRecord *specRecEntry ) 
{ 

TypeSpec theSpec = specRecEntry->spec () ; 
s i 2e_t ml vl ndex ; 

scCachedStyle: :GetCachedStyle( theSpec ); 

/» this is to take care of the rag setting on a line */ 
if ( gbrS.cB. St art Count ( gbrS . cB . streamCount - 1 ) ) 

gbrS .ef fectiveRag = scCachedStyle : zGetParaStyle () .GetRag ( ) ; 
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} 

} 

we have hit end of stream, check to see if we have exceeded measure, 

* if not longjmp out, otherwise back up to a reasonable break point 

* and get out 



static ©BreakEvent fomBRKEndStream ( ) 
{ 

MicroPoint adjustableSpace 

= gbrS.desiredMeasure - gbrS . cB . curBos ; 

if ( gbrS.cB -maxGlue > adjustableSpace ) { 
BRKSetCandBreak ( ©EndStreamBreak ); 

if { gbrS.cB.minGlue > adjustableSpace ) { 
BRKLineDecision( 0 ); 
return BRKEKitLoop( ); 

} 

} 

if { gbrS-cB.optGiue > adjustableSpace ) { 
BRKSetCandBreak ( eEndStreamBreak ); 
BRKLineDecision( Q ); 
return BRKExitLoop( ); 

} 

BRKSetCandBreak ( eEndStreaitiBreak ) ; 



C BRRLineDecision( 0 ) scEndStream ) 
return end_of„stream__reached; 



} 



^ =T^turn measure„eKceeded ; 



/* f^is sets up the linebreaker by initing the spec, performing indents, 
* rag zone control, etc, returns the desired measure of the line 

static MicroPoint BRKRagControl ( CharRecordP chRec, 
}^ MicroPoint x, 

1^ MicroPoint y, 

MicroPoint measure, 
I Z TypeSpec spec , 

ushort lineCount, 

short linesHyphenated ) 

{ 

MicroPoint dcLeftOf fset; 
MicroPoint dMeasure; 

scCachedStyle; :GetCachedStyle ( spec ); 

gbrS.effectiveRag - scCachedStyle; :GetParaStyIe{) ,GetRag{) ; 
gbrS.brkRightMargin ^ scCachedStyle: :GetParaStyle() .GetRightBlocklndent ( ) ; 
gbrS.theLineOrg = x; 

/y CONSECUTIVE HYPHENATED LIHE CONTROL 
if ( scCachedStyle: ;GetParaStyle() ,GetHyphenate() SeSc linesHyphenated < scCachedStyle : :GetParaSty 
le ( ) . GetMaKConsHyphs { ) ) 

gbrS.allowHyphens true; 

else 

gbrS.allowHyphens « false; 

gbrS . pspec_ = scCachedSty 1 e : : Get ParaSty le ( ) . GetSpec { ) ; 

/y DROP CAP CONTROL 
if ( lineCount 0 ) { 

gbrS . cB . spec = : : BRKUpdateSpec ( gbrS . theSpecRec ) ; 

gbrS . theSpecRec++ ; 

: :BRKDropCapControl ( x, y ); 
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gbrS, f^oStartline « false; 
gbrS . f LastHangabla =0; 

gbrS . cB . streamCount++ ; 
gbrS . cB . f i 1 iSpCount++ ; 
gbrS.cB-theChRec->escapement = 0; 
gbrS , cB , theChRec++ ; 

return in-line; 

} 

/*«»#*«»*«*»«*«**«»**»«**«**«*»»**»»*«««*»»»««#**»«*»***»*«««*«»»******»»/ 

static sBreakEvent bitiBRKHyphen ( ) 

{ 

MicroPoint adjustableSpace; 

if ( gbrS.firstBoK ) { 

adjustableSpace gbrS .desiredMeasure - gbrS-cB .curBos; 

BRKSetCandBreak ( eCharBreak ); 

if ( gbrS.cB.minGlue > adjustableSpace ) { 

BRKLineDecision( 0 ); 

return fiRKEKitLoop( ); 

} 

BRKSetFirstBos(); 
// gbrS.firstGlue « true; 

// gbrS.firstBoK = false; 

„ gbrS.cB.minGlue gbrS.tmpMinGlue; 
gbrS.cB.optGlue gbrS. tmpOptGlue; 

//.I gbrS.cB.masGlue += gbrS .tmpMasGlue; 

gbrS.tmpMinGlue = gbrS .tmp Opt Glue « gbrS . tmpMaxGl ue = 0; 

//)^' gbrS,cB.trailingSpaces - 0; 



^0brS.fNoStartline - false; 
,^%brS.fLastHangable « 0; 

f^brS.cB-curBos gbrS .cB.theChRec -> escapement; 

\ „gbrS , cB . chCount++ ; 
C %brS . cB . streamCoun t++ ; 
JgbrS . cB . theChRec++ ; 

J%RKSetCandBreak( eHardHyphBreak ); 

fireturn in_line; 
} p 

/»»»«««»*»«»«»«»«***«»*««*»»*»*»*»»*«»»«»**«*****»»»**»«****«************/ 

/* Start the stream 

static void BRKDropCapControi ( MicroPoint lineOrg, 

MicroPoint baseline ) 

int visible « CTIsDropCapable ( gbrS .cB.theChRec -> character ) 

&£< scCachedStyle: :GetParaStyle() .GetFlowdir( ) , IsHorizontal () 
int flushleft ^ gbrS.effectiveRag (int)eRagRieht ; 
if ( visible £:& flushleft ScS: ::DCCompute( gbrS.dclnfo, 

gbrS.pspec_^ 

gbrS ,cB .spec, 

lineOrg, 

baseline, 

gbrS,cB.theChRec~>character ) ) { 
gbrS . cB . theChRec - > f 1 ags . SetDropCap ( ) ; 
gbrS.dcSet = true; 
gbrS . cB , str6aiitCount+-f ; 
gbrS . cB . theChRec++ ; 

} 

else { 

gbrS.dcSet - false; 

SCmemset( SgbrS-dcInfo, 0, sizeof( DropCapInfo ) ); 
gbrS . cB . theChRec->f lags .ClrDropCap ( ) ; 
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gbrS. f irstGlue ^ true; 

gbrS.firstBox = true; /* sil to tme on 6/12/92 */ 

gbrS.fNoStartline = false; 
gbrS . f LastHangable - 0; 

gbrS.cB.rainGlue - gbrS.cB .opt Glue - gbrS .cB.masGlue ==0; 
cfbrS.tmpMinGIue - gbrS . tmpOptGlue gbrS, tmpMasGlue = 0; 
gbrS.cB.trailingSpaces * 0; 
gbrS.cB .wsSpaceCount ===0; 
gbrS .cB .spaceCount 0; 

// define noLeftAlignTabbedLines and this 

// will allow tabbed lines to be none left aliqnedr 

// the manager of the spec system had better 

// guarantee that the values are reasonable 
#ifndef noLeftAlignXabbedLines 

gbrS . cB . f 11 1 SpCoun t ++ ; 
#endif 

return in-line; 

} 

/*«#**»»«***»****»»*«»«*»»»«»»»*»*»»»**»*»*»»****«*«*«***«»«»**««»*»*•««»/ 

static eBreakEvent bmBRKRuls( void ) 
{ 

if ( gbrS.cB.curBoK ) { 

BRRSetCandBreak ( eCharBreak ) ; 
C3 BRKLineDecision( 0 ); 

return BRREKXtLoop( ); 

fyCharRecordP chRec = gbrS . cB . theChRec ; 

I^T::hRec->escapement « gbrS .desiaredMeasure; 

I -J 

'%febrS .cB . curBox gbrS . cB . theChRec -> escapement ; 

i ^brS . cB . streamCount++ ; 
'"'gbrS . cB . theChRec++ ; 

C3if ( gbrS.cB. theChRec -> character ) { 
^.J BRKSetCandBreak ( eSpaceBreak ); 
si BRKLineDecxsion( 0 ); 

return BRKExitLoop( ); 

fireturn in-line; 

/ft***********************************************************************/ 

static eBreakEvent bmBRKFillSpace( ) 
{ 

MicroPoint adjustableSpace; 

if ( gbrS.firstBos ) { 

adjustableSpace « gbrS.desiredMeasure - gbrS , cB . curBos ; 

BRKSetCandBreak ( eCharBreak ); 

if ( gbrS.cB.mmGlue > adjustableSpace ) { 

BRKLineDecision( 0 ); 

return BRKExitLoop( ); 

} 

BRKSetFirstBos ( ) ; 
// gbrS , f irstGlue « true; 

// gbrS . f irstBoK false; 

// gbrS.cB.minGlue += gbrS.tmpMinGlue; 

// gbrS.cB. opt Glue +^ gbrS. tmpOptGlue; 

// gbrS .cB.maKGlue gbrS . tmpMaxGlue; 

// gbrS.tmpMinGlue - gbrS .tmpOptGlue « gbrS.tmpMaxGlue = 0; 

// gbrS .cB .trail ingSpaces =0; 
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indent chRec->escape3iient ; 
break ; 
case scFiKRelSpace: 

indent SCRLUCompMP( scCachedStyle : :GetCurrentCache ( ) .GetGlyphWidth ( ) , {RLU)chRec:- 

>escapement } ; 

break ; 

} 

} 

gbrS.faundCharlndent false; 

} 

/*«»*«»«»»•«**»»««»*«»»«*«**»»*«*»*««***»**«»*»»»«*«**»»»»*»*»*»»»*»«****/ 

static eBreakEvent bffiBRKTab( ) 
{ 

scTablnfo tablnfo; 
MicroPoint currentPosition, 

nestTokenWidth ^ Q, 

alignTokenWidth « 0; 
CharRecordP tabChRec gbrS . cB , theChRec ; 

BRKSetCandBreak ( eCharBreak ); 

tabChRec->escapeiiient = 0; 
currentPosition « gbrS.cB.curBoK + 

gbrS.cB.optGlue + gbrS . tmpOptGlue + 

gbrS.brkLeftMargin + gbrS .theLineOrg; 

TSTabInfo( gbrS.pspec„^ 
fj gbrS.cB.spec, 

tablnfo^ 
!f currentPosition, 

[ y gbrS . theL i n ©Count ) ; 

J'^switch ( tablnfo .tabAlign ) { 

1^ default: 

'-^J case eTBLeftAlign : 

f3 break; 

case eTBRightAlign ; 

=^ alignTokenWidth - nextTokenWidth - BRKNextTokenWidth ( gbrS .cB .theChRec+1. '\0 ' ) ; 

13 break; 

'^J case eXBDecimalAlign: 

,1 alignlokenWidth - BRKNeKtTokenWidth ( gbrS . cB . tbeChRec + 1, scCachedStyle : :GetCurrentCach 

e(|¥Get0ecimalChar() ) ; 

12 neKtXokenWidth - BRKHestTokenWidth ( gbrS.cB.theChRec+1, ' \0' ) ; 

~S break; 

case eXBCenterAiign: 

nextXokenWidth - BRKHeKtXokenWidth ( gbrS . cB . theChRec + 1, *\0' ); 

alignXokenWidth ^ scRoundMP( (REAL)nextXokenWidth 2 ) ; 

break ; 

} 

tabChRec->escapement = (GlyphSise) (tablnfo .KPosition - currentPosition - alignXokenWidth) ; 

if ( tabChRec-> escapement < 0 ) { 

alignXokenWidth tabChRec-> escapement; /« warn added 7/22 */ 

tabChRec->escapement - 0; 

} 

if ( gbrS .desiredMeasure < currentPosition -f tabChRec->escapement + neKtXokenWidth ) { 
if ( gbrS.cB.curBox + gbrS.cB. opt Glue + gbrS .tmpOptGlue > 0 ) { 
BRKLineDecision{ 0 ); 
return BRKExitLoop ( ) ; 

} 

} 

gbrS . cB , curBoK = tablnfo ,KPosit ion - ( gbrS .brkLeftMargin + gbrS .theLineOrg ) - alignXokenWid 



gbrS . cB , theChRec++ ; 
gbrS . cB . streamCount++ ; 
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case scHardReturn : 
case scQuadCenter: 
case scQuadLeft: 
case scQuadRight : 
case scQuadJustify : 
return true; 

} 

} 

} 

static MicroPomt BRKKeKtTokenWidth{ CharRecordP chRec, 

UCS2 breakCh ) 

{ 

MicroPoint tokenWidth =0; 
MicroPomt charWidth; 
UCS2 theCh; 

long tStreaniCount = gbrS ,cB .streamCount; 

scSpscRecord * curSpecRec gbrS.theSpecRec; 

for { theCh ^ chRec->character; 

iTabBreakChar(theCh,breakCh) ; 
cliRec+-i-^theCh ^ chRec-> character ) { 

if ( (long)tStreamCount >= gbrS .theSpecRec->of fset () ) { 
gbrS.cB.spec 

- BRRUpdateSpec ( gbrS.theSpecRec ); 
gbrS . theSpecRec++ ; 

switch ( theCh ) { 

11 default: 

charWidth = chRec-> escapement; 
fU break; 

case sdVordSpace: 

j'"^ charWidth ^ scCachedStyle: :GetCurrentCache() .GetOptWord() ; 

break; 

'^J case scFixRel Space: 

char^idth = SCRLUCompGS( scCachedStyle; :GetCurrentCache() .GetSetSize () , (RLU)chRe 

c-5iscapement ) ; 

^ break ; 

C3 } 

n tokenWidth charWidth; 

} 

12 if ( curSpecRec i= gbrS.theSpecRec ) { 
IZ gbrS.theSpecRec = curSpecRec; 

^- gbrS , cB . spec 

« BRRUpdateSpec ( gbrS.theSpecRec ); 

} 

return tokenWidth; 



/*«*«**»«*«««*«»»*«»*»»**«»*««*»«««»*««»»«»«*»#*««*«*«»»«»»»«»*««»««***»*/ 



static void BRKSetCharlndent ( 

CharRecordP chRec- /* the character array »/ 

long startCount, /* count into char array that starts line *^ 
long counts /* count into char array of end of line 

MicroPoint letterSpace ) 

{ 

MicroPoint indent; 

for ( indent = 0, chRec startCount; count--; chRec++ ) { 
switch ( chRac~> character ) { 
default: 

if ( LETTERSPACE ( chRec ) ) 

indent += { chRec ->escapeiiient + letterSpace); 

else 
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gbrS.fNoStartline « false; 
gbrS.fLastHangable - 0; 

gbrS.cB.curBoK +- SCRLUCofflpMP( scCachedStyle : :GetCurrentCache ( ) .GetGlyphWidth ( ) , (RLU) gbrS.cB.t 
heChRec->escapeffierit ); 

gbrS.minRelPosition = MIH( gbrS .cB .curBox, gbrS .mm Rel Position ); 
gbrS , cB . theChRec:++ ; 
gbrS . cB . streaiuCount++ ; 

return in-line; 

} 

/«**»»*«*»»*»*»**********«»*»*»»»»**»«*«**»*«»*«*»»***«»**»*****«** 

static eBreakEvent bitiBRKHardReturn { ) 
{ 

gbrS.cB.theChRec-> escapement = 0; 
gbrS . cB . theChRec++ ; 
gbrS , cB . streamCount++ ; 

BRKSetCandBreak ( eSpaceBreak ) ; 
BRKLineDecision( 0 ); 
return BRKEnitLoopC ); 

} 

/**«»*«»»*****«******»*»**»*«*«»*»***«****************«******************/ 

static eB3reakEvent bmBRKQuad( ) 

IJgbrS.cB.theChRec->escapement « 0; 
agbrS . cB , theChRec+4- ; 
I Z, gbrS . cB . st reamCount++ ; 

'':if ( gbrS.cB.theChRec-> character scEndStream ) 
I BRKSetCandBreak ( eEndStreamBreak ) ; 
jelse 

n BRKSetCandBreak ( eSpaceBreak ); 

""■'iBRKLxneDecision( 0 ); 
fi return BRKExitLoop( ); 

static eBreakEvent bmBRKVertTab ( ) 

{ ?: 

5'3SbrS.cB.theChRec->escapement « 0; 
I J gbrS . cB . t heChRec++ ; 
f ^ gbrS . cB . streamCount-f + ; 

BRKSetCandBreak ( eColumnBreak ); 

BRKLineDecision( 0 ); 
return BRKEKitLoop( ); 

} 

/»»*»**»*»»*«»»*«*«*»***««»»**«**«**«***«»«*»********«*»******»**********/ 

static Bool TabBreakChar( UCS2 theCh. 

UCS2 breakCh ) 

{ 

if ( breakCh theCh ) 

return true; 
else { 

switch ( theCh ) { 
default: 

return false; 
case scEndStream: 

/* case wordSpace:*/ 

case scTabSpace: 
case scFillSpace; 
/* vetical breaks */ 
case scVertTab: 

horizontal breaks »/ 
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gbrS.letterSpciceAdj - glueSpace; 

#ifdef LimitLetterSpace 

should we constrain this to minAa^K letterspace 
gbrS.letterSpaceAdj « MIN( gbrS . letterSpaceAd j , scCachedStyle: :GetCurrentCache() .GetMaxL^P () 



#endif 



gbrS.letterSpaceAdj - MAX( gbrS . letterSpaceAd j , scCachedStyle: :GetCurrentCache{ ) .GetMinLSP () 



/»««**»«*««»»»»»**«*»»»**»« 

static eBreakEvent bmBRKFiKSpace ( ) 
{ 

MicroPoint adjustableSpace; 

if ( gbrS.firstBox ) { 

adjustableSpace = gbrS .desiredMeasure - gbrS . cB , curBos ; 

at the start of every word set a potential break point 
BRKSetCandBreak ( eCharBreak ); 
if ( BRKExceedVals( adjustableSpace ) ) { 

BRKLineDecision( 0 ); 

return BMEsitLoop( ); 

} 

BRRSetFirstBoK{) ; 

/43 gbrS. first Glue ^ true; 

/Ai gbrS.firstBox « false; 

//IZ gbrS.cB.fflinGlue gbrS . tmpMinGlue; 

yA'' gbrS.cB,optGlue gbrS .tmpOptGlue; 

/4il gbrS.cB.maKGlue 4- gbrS.tmpMaxGlue; ^ 

/A2 gbrS.tmpMmGlue = gbrS .tmpOptGlue - gbrS .tmpMaxGlue - 0; 

//j'j gbrS.cB.trailingSpaces =0; 

Ogl^rS.fHoStartline * false; 
'T'gbrS.fLastHangable - 0; 

CSgbrS.cB.curBox gbrS -cB -theChRec- > escapement ; 
^ 4 gbrS . cB . theChRec++ ; 
I . I gbrS . cB . streamCount-H+ ; 

return in_.line; 

/^Mt*********************************************************************/ 

Static eBreakEvent bmBRKRe 1 Space ( ) 
{ 

- .'MicroPoint adjustableSpace; 

if ( gbrS.firstBox ) { 

adjustableSpace - gbrS.desiredMeasure - gbrS . cB . curBox ; 

/*,at the start of every word set a potential break point */ 

BRKSetCa^dBreak { eCharBreak ); 

if ( BRKExceedVals( adjustableSpace ) ) { 

BRKLineDecision( 0 ); 

return BRKEKitLoop( ); 

} 

BRKSetFirstBoxO; 
// gbrS.firstGlue ' ^ true; 

// gbrS.firstBox - false; 

// gbrS.cB.miaGlue gbrS.tmpMinGlue; 

// gbrS.cB.optGlue += gbrS. tmpOptGlue; 

gbrS.cB.maxGlue +=» gbrS . tmpMaxGlue; 

// gbrS.tmpMinGlue = gbrS .tmpOptGlue === gbrS. tmpMaxGlue ^ 0; 

// gbrS.cB.trailingSpaces = 0; 



File: Work\CrtPrt\St onahndNScbreak , cpp 



Pg: 20 



Rec) . 



es ) ) 



if { igforS.lineHyphenated ) 

glueSpace scCachedStyle : :GetCurrent Cache ( ) . GetOptLSP ( ) ; 

if ( gbrS.cB.spaceCount ) { 

gbpS.justSpace = scRoundGS( (REAL)glueSpace / gbrS .cB.spaceCount ); 

if C gbrS.justSpace < 0 ) { « , r. ^ 

IspSpacas - COMP_LETrERSPACES( gbrS .cB.chCount , 0. gbrS.cB .theChRec) ; 

if ( IspSpaces ) 

gbrS , IstterSpaceAd j - scRoundGS( (REAL)giueSpace / ispSpaces ); 

else 

gbrS.letterSpaceAdj - glueSpace; 
gbrS. justSpace ==0; 

else if ( gbrS.justSpace > scCachedStyle: :GetCur3rentCache() -GetMaKWord() ) { 

IspSpaces « COMPEL ETTERSPACESC gbrS.cB .chCount , gbrS .cB .spaceCount , gbrS . cB . theCh 

adjustableSpace = MPtoGS( glueSpace - gbrS .cB .raaxGlue ); 
if ( IspSpaces ) 

gbrS.letterSpaceAdj « scRoundGS( (REAL)ad3UstableSpace / IspSpaces ); 

else 

gbrS.letterSpaceAdj - adjustableSpace; 
if ( gbrS . letterSpaceAdj < scCachedStyle: ;GetCiirrentCache() .GetMmLSP ( ) ) { 
gbrS . letterSpaceAd j = scCachedStyle : : GetCurrentCache ( ) . GetMmLSP ( ) ; 
adjustableSpace - MPtoGS( glueSpace - scRoundMP( ( REAL )gbrS. letterSpaceAd j * IspSpac 



es ) ) 



} 



es ) ); 



gbrS.justSpace - scRoundGS( (REAL) adjustableSpace / gbrS . cB . spaceCount ); 

else if ( gbrS.letterSpaceAdj > scCachedStyle: iGetCurrentCache () -GetMaxLSP ( ) ) { 
gbrS . letterSpaceAdj « scCachedStyle : : GetCurrentCache ( ) . GetMa^LSP ( ) ; 
adjustableSpace - MPtoGS( glueSpace - scRoundMP( (REAL )gbrS .letterSpaceAdj * IspSpac 

gbrS.justSpace « scRoundGS( (REAL) adjustableSpace / gbrS .cB .spaceCount ); 

} , 

gbrS . j ust Space « scCachedSty 1 e : : GetCurrentCache ( ) . GetMasWord ( ) ; 

else if ( gbrS. just Space < scCachedStyle :: GetCurrentCache () .GetMinWord ( ) ) { ^ ^ „ ^ 

IspSpaces - COMP^LETTERSPACES ( gbrS.cB.chCount, gbrS .cB .spaceCount , gbrS .cB . theChR 

adjustableSpace - MPtoGS( glueSpace - gbrS -cB.minGlue ); 

if ( IspSpaces ) . ^ \ 

gbrS.letterSpaceAdj - scRoundGS( (REAL)adjustableSpace / IspSpaces ); 

else 

gbrS.letterSpaceAdj adjustableSpace; 

. if C gbrS.letterSpaceAdj < scCachedStyle :: GetCurrentCache () .GetMinLSP () ) { 
gbrS . letterSpaceAdj = scCachedStyle : : GetCurrentCache ( ) .GetMinLSP ( ) ; 
adjustableSpace « MPtoGS( glueSpace - scRoundMP( (REAL ) gbrS . letterSpaceAdj * IspSpac 

gbrS.justSpace - scRoundGS( (REAL) adjustableSpace / gbrS.cB. spaceCount ); 

else if ( gbrS.letterSpaceAdj > scCachedStyle : :GetCurrentCache( ) .GetMaxLSP( ) ) { 
gbrS . letterSpaceAdj - scCachedStyle : : GetCurrentCache ( ) .GetMaxLSP ( ) ; 
adjustableSpace = MPtoGS( glueSpace - scRoundMP( ( REAL ) gbrS . letterSpaceAdj / IspSpac 



gbrS.justSpace = scRoundGS( (REAL) adjustableSpace / gbrS . cB . spaceCaunt ); 
} 

e 1 se 

gbrS . justSpace - scCachedStyle : GetCurrentCache ( ) .GetMinWord ( ) ; 

BRKAd j us tWordSpace ( gbrS . cB , theChRec , 

gbrS.justSpace, gbrS .cB. spaceCount , 
gbrS.cB.trailingSpaces ); 

} 

IspSpaces « COMP^LETIERSPACES ( gbrS .cB .chCount , 0, gbrS. cB. theChRec ) ; 

if ( IspSpaces ) 

gbrS.letterSpaceAdj = scRoundGS( (REAL) glueSpace / IspSpaces ); 

else 
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case eRagLeft: 

if ( gbrS.effectiveRag ^ (int)eHanePuncRieht ) 

gbrS.desiredMeasure -f— BRKHangPuncRightAdjust { ); 
translation - gbrS .desiredMeasure - actualMeasure + gbrS .brkLeftMargm; 

if ( igbrS.lineHyphenated ) { 

this accounts for any track kerning - no need to worry about with 

* hyphenation because, we want trackkerning between the hyphen 

* and the last character - and the hyphen escapement does not 
» include any track kerning 

«/ 

translation scCachedStyle : :GetCurrentCache ( ) -GetOptLSP ( ) ; 

} 

break ; 
case eRagCentered ; 

if ( gbrS.lineHyphenated ) . i 

translation « scRoundb^P( (REAL)( gbrS .desiredMeasure - actualMeasure) / 2 ) + gbrS.b 

rkLeftMargin; 



'translation - scRoundMP( (REAL)( gbrS, desiredMeasure - actualMeasure + scCachedStyle 
: :GetCurrentCache() .GetOptLSPO) / 2 ) + gbrS .brkLef tMargm; 
break; 

} 

if ( fd.IsHorizontai 0 ) 

lineOrigin. Translate { translation. 0 J; 

else 

lineOrigin. Translate ( 0, translation ); 
£|f ( gHiliteSpaces ) 

,,1 actualMeasure gbrS .totalTrailingSpace; 

^ineasu3re « actualMeasure; 

} iU 

/» handle adjustment for hanging punctuation on the right */ ^ 
sta.tle MicroPoint BRKHangPuncRightAdjust ( ) 

{ -T' 

^gharRecordP lastCharOnLine; 

"'d£ f gbrS.lineHyphenated ) « , ^ ^ ^« 

H .1 return scCachedStyle : :GetCurrentCache { ) . GetRightHangValue ( scCachedStyle : : Get Current Cache ( ) . 

Get|=i^phChar() ); 

f lastCharOnLine = BRKLastCharOnLine [ gbrS .cB .theChRec - 1 ); 
rlf ( CTIsPunc( lastCharOnLine->character ) ) 

return scCachedStyle: :GetCurrentCache() .GetRightHangValue ( lastCharOnLine">character ]; 

else 

return OL; 

} 

#define COMP^LETTERSPACES ( charCount, spaceCount, chRec ) \ 

((long)( charCount-spaceCount-1 + ( (chRec-1) -> flags ,IsHyphPresent() ? 1:0) )) 

static void BRKJustifyLine ( } 
{ 

GlyphSlse glueSpace, 

ad j ust ab 1 eSpace ; 
long IspSpaces; 

if ( gbrS.effectiveRag & (int )eHangPuncRight ) 

gbrS. desiredMeasure BRFHangPuncRightAdjust ( ); 

glueSpace = (GlyphSize) (gbrS .desiredMeasure - gbrS .cB .curBox) ; 

if ( glueSpace < 0 ) { 

gbrS. desiredMeasure gbrS.cB.fHangable; 

glueSpace = (GlyphSize) (gbrS, desiredMeasure - gbrS , cB . curBox ) ; 

} 
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/*»«»»»*»«*»»»#***»»**»»*»»»«»*««»»«»»**»*»»**«»***«*»***»»»*************/ 

static CandBreak *BRKLineDecisionJiist ( ) 

{ / 
CandBreak *theBredk r 
»choice; 

long bCount = gbrS .cB .breakCount; 

MicroPoint 1 ineSpace , 
diff, 

bestDiff- - LONG.MAX; 

choice ^ theBreak = gbrS . candBreak + bCount - 1; 

for ( ; bCouiit— > 0; theBreak— ) { 

lineSpace * tbeBrsak">c:urBox + tbfeBreak->minGlue; 

/* this reflects space changed by h3^henation spelling changes */ 

diff = lineSpace - gbrS .desiredHeasure; 

if ( diff < theBreak-> FHangable ABS( diff ) < bestDiff ) { 

choice - theBreak; 

bestDiff - ABS( diff ); 

} 

if ( diff > bestDiff ) 
break ; 

} 

return choice; 

} 

/* i| break on a hyphenation point and the character is kerned with 
» ifee next character we have an incorrect line length, because of the 
* ^rn built into the characters escapement, here we get that correction 

«/i y 

static MicroPoint BRKKernCorrection ( CharRecordP aChRec ) 

''Return ( scCachedStyle: :GetCurrentCache () -GetEscapement ( aChRec->character ) - aChRec->escapeKien 

t )|J ' ' ' 

} . 

/» ipjir non-justified lines this places the line */ 

staullc void BRKPlaceLine ( scMuPointS: lineOrigin, 

MicroPoint& measure, 
Cj const scFlowDirSt fd ) 

"liicroPoint actualMeasure, 
translation; 

actualMeasure = gbrS.-dB .curBoK + gbrS .cB .optQlue; 
if ( gbrS^cB.fillSpCount ) { 

MicroPoint fill; 

long count; 

CharRecordP tmpChRec; 

fill = gbrS.desiredMeasure - actualMeasure; 

fill = scRoundMP( (REAL)fill / gbrS .cB . f iliSpCount ); 

actualMeasure = gbrS.desiredMeasure; 

for ( tmpChRec = gbrS . cB . theChRec , count = gbrS ,cB . f illSpCount; 

tmpChRec >^ gbrS .gStartRec count; tmpChRec-- ) -{ 
if ( tmpChRec -> character " scFillSpace ) 
tmpChRec->escapement = (GlyphSize)f ill ; 

} 

} 

switch ( gbrS.effectiveRag St eRagFlag ) { 
default: 
case eRagRight; 

translation - gbrS .brkLeftMargin; 

break ; 
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return choice; 
theBreak = startWord = endWord; 

bCount - endCount; restore its last value »/ 

for ( ; bCount-- > 0; theBreak— ) { 

if ( HotHyphBreak ( theBreak ->breakVal ) i ui 

&a theBreak ->curBoK + theBreak->optGlue < gbrS .desiredMeasure + theBreak->fHanHabl 

^ ) { 

StartWord theBreak; 
break ; 

} 

} 

BRRAddHyphens ( startWord, endWord ); 
return BRKLmeDecisionJust ( ); 

} 

Static CandBreak *BRKLineDecisionRag ( ) 

{ 

CandBreak *theBreak , 

*choice = MILL; 

long bCount =^ gbrS . cB , breakCount ; 

Mi croPo i n t 1 i neSpace ; 

X* there is a ver^ strange bug here xn that the char plus hyphen may be 
* chosen instead of the entire word because the hyphen may be wider than 
the trailing letter (s) 

\1* Note: We only get here if hyphenationZone is off or we failed to find 
fn* a good non -hyphen break. 

( scCachedStyle: :GetCurrentCache() .CetDiffRagZoneO ) { 
theBreak - gbrS . candBreak + gbrS .cB.breakCount - 1; 

C3 for ( ; bCount— > 0; theBreak— ) { 

L lineSpace =^ theBreak- >curBos + theBreak->optGlue; 

'"ri /» this reflects space changed by hyphenation spelling changes 

l2 if ( gbrS.desiredMeasure lineSpace ABS( gbrS . lastLineLen - lineSpace ) > scCached 
Sty|J::GetCurrentCache().GetBiffRag2one() ) { 

i'Z choice - theBreak; 

I J break; 

} 

} 

/« resort to worst case if necessary 

/* if IGetDiffRagZoneO I hyphenationZone, we will fall through to here 

if ( choice MJLL } { 

bCount - gbrS.cB.breakCount; 

choice - theBreak - gbrS . candBreak + gbi^ -cB .breakCount - 1; 

for ( ; bCount— > 0; theBreak— ) { 

lineSpace theBreak ->curBoK + theBreak->optGlue; 

y* this reflects space changed by hyphenation spelling changes 

if ( gbrS.desiredMeasur© + theBreak ->fHangable lineSpace ) { 
choice = theBreak; 

break ; 

} 

} 

} 

return choice; 
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if ( choice ) 

return choice; 

/* First, get closest word break greater than desired measure */ 
bCount = gbrS.cB.breakCount; 

endWord = theBreak - gbrS . candBreak + gbrS . cB . breakCount - 1; 
for ( ; bCount— > 0; theBreak— ) { 

diff - theBreak->curBox + theBreak ->opt Glue - gbrS .desiredMeasure; 
if ( diff 0 ) 
break; 

if C NotHyphBreak ( theBreak ->breakVal ) diff < bestDiff ) { 
bestDiff = diff; 
endWord * theBreak; 

} 

} 

/« Nest, get closest ??ord break less than desired measure 
startWord « endWord; 

bCount-5"f ; /* reset it to what it should be */ 

for ( ; bCount— > 0; theBreak— ) { 

if ( NotHyphBreak ( theBreak~>breakVal ) ) { 

StartWord ^ theBreak; 

break ; 

} 

A 

^:iRKAddHyphens( startWord, endWord ); 
^ieturn BRKLineDecisionRag( ); 

^ ru 

static CandBreak *BRKHyphenate Just ( ) 

^ ffandBreak * theBreak; 

" CandBreak *choice = HULL, 

Z,^ *startWord « NULL, 

I' J »endWord; 

^^4ong bCount ^ gbrS.cB .breakCount; 

Hjiong endCount; 

: Bi croPo i n t ad j ustabl eSpace , 

H diff, 

p bestDiff « L0N{OIAX; 

""endWord * theBreak * gbrS .candBreak + bCount - 1; 
for ( ; bCount— > 0; theBreak— ) { 

/» amount of space we have to play with */ 

adjustableSpace - gbrS .desiredMeasure + theBreak->fHangable - theBreak ->curBox; 

diff = adjustableSpace - theBreak->optaiue; 

if ( diff <- 0 ScSc NotHyphBreak ( theBreak ->breakVal ) ) { 

endWord theBreak; 

endCount « bCount 1; 

} 

diff - ABS( diff ); 

if { NotHyphBreak ( theBreak ->breakVal ) diff < bestDiff ) { . r 

if { adjustableSpace <- theBreak ->maxaiue adjustableSpace >= theBreak-->minGlue ) { 
choice ^ theBreak; 

bestDiff - diff; 

} 

} 

if { diff > bestDiff ) 
break ; 

} 

if ( choice ) 
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(gb3rS.cB.theChRec-l)->flags.SetAutoHyphen( hyphens [ i ]. rank ); 

if ( ( gbrS.effectiveRag ^ eRagFlag ) eRagJustif led ) { 

if ( gbrS.cB.curBoK + gbrS -cB.mnGlue > gbrS .desiredMeasure ) 
break ; 

} 

else { 

if ( gbrS.cB.curBo:? + gbrS.cB .optaiue > gbrS.desi redMeasure ) 
break ; 

} 

} 

#ifdef scForceBreakFirstWord 

/* if the iirst hyphen exceeded the measure, we may */ 
/* want to force a break. *^ 
if ( i 0 Sc& startBreak S=gbrS . candBreak [ 0 ] 

startBreak->streamCount startBreak->startCount ) { 
BRKForceHyphens ( startBreak^ endBreak ); 
return ; 

} 

#endif 

savedEndBreak . breakCount - gbrS . cB . breakCoun t ; 
gbrS.candBreak[gbrS.cB.breakCount] « savedEndBreak; 

if ( gbrS.cB.breakCount >- (MAXBREAKVIi^LS-1) ) 
ShuffleBreakCandidatesO ; 

else 

gbrS . cB . breakCoun t-i-+ ; 

} 

static CandBreak *BRKHyphenateRag ( ) 

^ ^'^andBreak *theBreak. 

*choice = IsIULL; 

CandBreak *startWord ^ HULL. 
13 »endWord; 

^long bCount ^ gbrS -cB. breakCoun t; 

-MicroPoint diff, 

IJ bestDiff - LONG„MAX^ 

"^J lineSpace; . 

i^ool lineDiff - true; irrelevant unless other?nse set */ 

If there is a hyphenation zone, first try to find a non -hyphen break. 

0» If that fails, find the start and end of the word straddling the 

fl* line break, call hyphenation routine, and call line decision to 

find the best break. 

*/ 

if ( gbrS.hyphenationZone ) { 

theBreak - gbrS .candBreak + gbrS.cB.breakCount - 1; 

for { ; bCount— > 0; theBreak— ) { 

lineSpace ^ theBreak ->curBo3i: 4- theBreak->optGlue; 

if ( scCachedStyle: :GetCurrentCache() .GetDiffRagZoneO ) , . ^ u f 

lineDiff - ABS( gbrS. lastLineLen - ImeSpace ) > scCachedStyle: :GetCurrentCache ( 
) .GetDiffRagZoneO; 

look for a non-hyphen break and a line with a sufficient diff zone */ 
if ( HotHyphEreak ( theBreak ->breakVal ) 

aSt gbrS.desi redMeasure lineSpace 

ScS= gbrS.desiredMeasure <= lineSpace + gbrS.hyphenationZone 
S£c lineDiff ) 



choice « theBreak; 

break ; 
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} 

#endif /* forceBreakFiretWord »/ 

/*****»*«*»*«»*»»*»****»***«*»»»»»»«**»»***»******«******»^ 

#define HotHyphBreak ( c ) ( ( (c) I =eHyphBreak) ( (c) 1 -eHardHyphBreak ) ) 

#define useBadHyphens false 

static void BRKAddHyphens ( CandBreak *startBreak, 

CandBreak »endBreak ) 

^ CandBreak savedEndBreak; 
CharRecordP startChRec; 
CharRecordP stopChRec; 
Hyphen hyphens [64] ; 

short i r 

offset, 

prevOffset 0, 
numHyphens ; 

if ( startBreak endBreak || endBreak ->curBoK + endBreak->optGiue gbrS .desiredMeasure ) 
return; 

if ( I gbrS.allo??Hyphens 1| i scCachedStyle: :GetCurrent Cache () .GetHyphenate() ) { 

#ifdef -^°-|?-g^S^!f^gj,,S.,,,dB,,,,[03 startBr.ak->str.amCount == startBreak->startCount ) 

BRRForceHyphens ( startBreak, endBreak ); 

#enllf 

.IZ return; 

fit 

lavedEndBreak = *endBreak; 
s" StartChRec = startBreak->theChRec; 

JitopChRec = endBreak -'>theChRec; 

fiurtiHyphens - BRKPerfontiHyphenation ( startChRec, stopChRec, hyphens ); 
Tif ( nuiRHyphens 0 ) { 

#i£j^f ^f/^YllTAll^^^ ^ startBreak->streamCount startBreak->startCount ) 

BRRForceHyphens ( startBreak, endBreak ); 

#enl&f 

1 3 return; 

If 

/* We are resetting the break machine to the start of the word. */ 
/* The values from this point on in the machine will be over- *^ 
/« written. The end of word break, since it is past the measure,*/ 
will never be restored, and the final break will now be the */ 
/* last hyphen break. *^ 
/* Use endBreak to return the last hyphen breakpoint we find. */ 

gbrS.tmpMinGlue - (startBreak+l) ->minGlue - startBreak->minGlue; 

gbrS.tmpOptGlue - (startBreak+l)->optGlue - startBreak->optGiue; 

gbrS.tmpMaKGlue « (startBreak+l) ->mas:Glue - startBreak->maxGlue; 

gbrS.cB = «startBreak; 

gbrS.firstBoK - true; signal start of word */ 

for ( i = 0; i < numHyphens; i++ ) { 

if ( 1 useBadHyphens Sc& hyphens [i] .rank — eBadHyphRank ) 
continue; 

offset = hyphens [i] -offset; 
for ( ; prevOffset < offset; prevOffset++ ) 
BRKLoopBody( ) ; 

BRKSetCandBreak ( eHyphBreak ); 

if ( ! (gbrS.cB. theChRec-l)-> flags. IsDiscHyphenO ) 
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hyphens [numBreaks J .rank « eGoodHyphRank; 
break; 
default : 

hyphens [numBreaks] .rank = eBadHyphRank ; 
break; 

} 

hyphens [numBreaks] .offset = charCount; 
numBreaks4-+; 

} 

} 

} 

return numBreaks; 

} 

This is called only in the case where even the first word (or the 
first legal portion of it before a hyphen) will not fit on the line. */ 
/* Therefore^ we add a hyphen after every character to force a break. */ 

#ifdef scForceBreakFirstWord 

static void BRKForceHyphens ( CandBreak *startBreak, 

CandBreak *endBreak ) 

{ 

CandBreak savedEndBreak ; 

savedEndBreak = *endBreak; 

/* v^e are resetting the break machine to the start of the word. */ 
in /* The values from this point on in the machine will be over- */ 
fy /* written. */ 

'^^^ gbrS.tmpMinGlue - (startBreak+1) ->minGlue - startBreak->minGlue; 
ly gbrS.tmpOptOlue - (startBreak+1) ->optGlue - startBreak->optGlue; 

gbrS.tmpMaxGlue - (startBreak+l)*>maxGlue - startBreak->maKGlue; 
..I gbrS.cB ^ *startBreak; 

'-•^^ gbrS.firstBos ^ true; /* signal start of word */ 

p while ( gbrS.theSpecRec->offset() > gbrS.cB.streamCount ) // reset the spec to the start of the 
TOrd 

gbrS . theSpecRec — ; 

while ( true ) { 

it BRKLoopBody( ); 

if C gbrS.cB.chCount " savedEndBreak .chCount ) 
break ; 

BRKSetCandBreak ( ©HyphBreak ); 

if ( scCachedStyle;:GetCurrentCache{).GetHyphLanguage(^ I- Jq.^q.ubbb ) 
(gbrS.cB.theChRec - 1) -> flags .SetAutoHyphen ( eGoodHyphRank ); 

if ( ( gbrS.effectiveRag £c eRagFlag ) eRagJustif led ) { 

if ( gbrS.cB.curBoK + gbrS .cB .minGlue > gbrS .desiredMeasure ) 
break ; 

} 

else { 

if ( gbrS.cB.curBoK + gbrS.cB .optGlue > gbrS. desiredMeasure ) 
break; 

} 

} 

savedEndBreak . breakCount = gbrS . cB , breakCount ; 
gbrS . CandBreak [gbrS . cB . breakCount ] savedEndBreak ; 

if ( gbrS.cB. breakCount >- (MAXBREAKVALS-1) ) 
Shuf f leBreakCandidates ( ) ; 

else 

gbrS . cB . breakCount4-+ ; 
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numBreaks — ; 
return numBreaks; 



static short BRKPerf ormHyphenation ( CharR^cordP firstChRec, 

CharRecordP lastChRec, 
Hyphen* hyphens ) 

{ 

CharRecordP theChar; 

int J ; 

UCS2 ch; 

UCS2 hyphWord[64]; 

short hyphArray [64]; 

short hLen =0; 

Bool hitLowerCase « false; 

Bool hitUpperCase = false; 

short numBreaks « 0; 

short charCount » 1; 

SCmeinset( hyphArray, 0, si2eof( short ) * 64 ); 
SCKiemset( hyphWord. 0, si2eof{ UCS2 ) * 64 ); 

for ( theChar - firstChRec; theChar <« lastChRec; theChar++ ) { 
ch = theChar~>character; 
if ( ch < 256 &Sc CTIsAlpha( ch ) ) 
break ; 

;f for ( ; theChar lastChRec; theChar+-i-^ charCount++ ) { 

fy ch = theChar~>character; 

if ( ch scBreakingHyphen ) { 
return 0; 

} 

else if ( theChar->fla9S.IsDiscHyphen() ) { 
"^"^ return ERKPerf ormDiscHyphen ( firstChRec, lastChRec, hyphens ); 

. } 

O else if C ch < 256 CTIsAlpha( ch ) ) { 

if ( hLen < 63 ) { 
,"1 if ( CTIsLoTOrCase( ch ) ) 

hitLowerCase = true; 
H else if ( CTIsUpperCase( ch ) ) 

hitUpperCase = true; 
IZ hyphWord[ hLen++ ] = CTToLowerC ch ); 

U } 

} 

else if ( ch scFixRelSpace ch !- scFixAbsSpace ) { /* hit delimiter «/ 
break ; 

} 

> 

if ( hLen < scCachedStyle: :GetCurrentCache() .GetMaKWordHyph() 

(1 { I scCachedStyle: :8etCurrentCache() .GetAcronymHyphsO ^& I hitLowerCase ) 
I! ( I scCachedStyle: :GetCurrentCachen -GetCaseHyphsO Sc£c hitUpperCase ) ) 
return 0; 

if ( mFWordC hyphWord, hyphArray ) ) { 
theChar « firstChRec; 

for ( j - 0, charCount = 1; j < hLen; charCount+-^-. theChar++ ) { 
ch « CTIoLowerC theChar- > character ); 
if ( ch — hyphWord[j] ) { 

if ( hyphArray[j] j >- ( scCachedStyie: :GetCurrentCache() .GetPreHyph() - 1 ) j 
< ( hLen - scCachedStyle: :GetCurrentCache() .GetPostHyph() ) ) { 
switch ( hyphArray [j] St OnSf ) { 
case 1 : 
case 2: 

hyphens [numBreaks] .rank ^ eBestHyphRank ; 
break; 
case 3; 
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static eBreakEvent BRKTheLciop( ) 
{ 

eBreakEvent bt; 

while ( ( bt = BRKLoopBodyO ) in-line ) 
return bt; 

} 

handle breaking of characters that we cannot vector to with thw 
* 'breakMach' array of sub-routines 
*/ 

#if 0 

static void BRKSpecial( ushort theCharacter ) 
{ 

switch ( theCharacter ) { 
case scFillSpace: 

bKiBRKFi 11 Space ( ); 

break ; 
default: 

fomBRRCharO; 

break ; 

} 

} 

#endif 

ptatic short BRKPerformDiscHyphen( CharRecordP theChar, 
i CharRecordP 1 ast ChRec , 



Hyphen «hyphens ) 

UCS2 ch; 

I'i. short charCount * 1, 

numBreaks « 0; 
%U int j ; 

'^J Bool hitLowerCase « false; 

Bool hitUpperCase = false; 

s for ( ; theChar <« lastChRec; theChar++, charCount++ ) { 

ch ^ theChar->character; 

^ if ( ch scBreakingHyphen ) 

%^ return 0; 

Vi if ( theChar->flags.IsDiscHyphen() ) { 

'-^ if ( charCount >- scCachedStyle: :GetCurrentCacha( ) -GetPreHyph {) ) { 

hyphens [numBreaks] .offset ^ charCount; 
hyphens [numBreaks] .rank ^ eDiscHyphRank; 
nuraBreaks++; 

} 

} 

if ( ch < 256 CTIsAlpha( ch ) ) { 
if ( CTIsLowerCase{ ch J ) 

hitLowerCase = true; 
else if { CTIsUpperCase( ch ) ) 

hitUpperCase - true; 

} 

else if ( CTIsSpace( ch ) ) 

if ( ch scFiKRelSpace ch !- scFisAbsSpace ) 
break ; 

} 

if ( ( ! scCachedStyle: :GetCurrentCache() .GetAcronymHyphsO ! hitLowerCase ) || { I scCachedS 
tyle; :GetCurrentCache() .GetCaseHyphsO hitUpperCase ) ) 
return 0; 

CharCount = (short) (charCount - scCachedStyle: : Get Current Cache () .GetPostHyph ()) ; 
for ( j = numBreaks - 1; j >= 0 £<& numBreaks > 0; j— ) 
if ( hyphens[j] .offset charCount ) 
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if ( BRKExceedVals( adjustableSpace ) ) { 
BRKLineDecision( 0 ); 
return BRKExitLoop( ); 

} 

BRRSetFirstBox( ); 

} 

if ( ustr.len ) 

gbrS,cB.theChRec->escapOTent = UnivStringWidth ( ustr, 0^ spec ); 

gbrS.cB.curBos: += gbrS .cB.theChRec ->esc:apement; 

gbrS . cB , chCount++ ; 
gbrS ,cB .streainCount++ ; 
gbrS . cB . theChRec++ ; 

return in-line; 

} 

Static inline eBreakEvent BRKLoopBody( } 
{ 

register ushort theCharacter - gbrS*cB . theCfaRec->character; 
register eBreakEvent breaktype = in-line; 

increinent the spec counter if necessary, 

* NOTE - this increments the spec too soon* i \ 
12 * If the next character is the break char then 

* the spec will be inaccurate, there is a fi^ 
]J * for this in the line ending decision logic, 

» it is commented as such, the cleaner fix 
fij * would slow the code down too much 
[ k * (sorry for any confusion WM) 
?1 «/ 

|y if [ gbrS.cB.streamCount gbrS .theSpecRec->of fset ( ) ) { 
"J if ( theCharacter \^ scEndStream ) { 

do not advance spec unless we have characters */ 
gbrS.cB.spec * BRRUpdateSpec ( gbrS . theSpecRec ); 
^ gbrS . theSpecRec++ ; 

O } 
H > 

/» dispatch the character to the appropriate routine 
n gbrS.cB.theChRec->flags.ClrVarious() ; 



if ( 1 ( theCharacter & OkFFCO ) ) { 
if ( theCharacter scWordSpace ) 

breaktype ^ bmBRKWordSpace ( ) ; 
else if ( theCharacter & 0x0030 ) { 
switch ( theCharacter ) { 
case scBreakingHyphen : 

breaktype = bmBRKHyphen ( ) ; 
break ; 
default: 

breaktype = bwBRKCharl) ; 
break ; 

} 

} 

else 

breaktype - («gbrS .breakMach [theCharacter] ) ( ) ; 

} 

else 

breaktype - bmBRRChar{); 
return breaktype; 

} 
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Mi cr oP o i n t ad j ust afo 1 sSpace ; 

if ( gbrS.cB.theChRec-> character 256 ) { 

adjustafoleSpace = gbrS.desiredMeasure - ^brS .cB.curBox; 
BRKSetCandBreak ( eCharBreak ); 

if { BRRExceedVals( adjustableSpace ) ) { 
BRKLineBecision( 0 ); 
return BRKExitLoop ( ); 

} 

gbrS^cB.curBoK gbrS .cB .theChRec -> escapement ; 

gbrS . cB . chCount-s-f ; 
gbrS ,cB , streamCount++ ; 
gbrS . cB , theChRec-i-+ ; 

return in-line; 

} 

if ( gbrS.firstBoK ) { 

adjustableSpace gbrS.desiredMeasure - gbrS . cB . curBox ; 

/* at the start of every word set a potential break point 
BRKSetCandBreak ( eCharBreak ); 
if ( BRKExceedVals( adjustableSpace ) ) { 

BRKLineDecision( Q ); 

return BRKE^itLoopC ); 

} 

BRKSetFirstBox ( ) ; 

^; > 

fll gbrS . cB . curBos gbrS .cB -theChRec ">escapement; 

gbrS ,cB*chCount4-+; 
I y gbrS , cB . s t reamCount ; 
4 gbrS . cB , theChRec++ ; 

return in-line; 

h 

ifetic void getfield( stUnivStringS: ustr, 

1=^ APPColumn col, 

scStream* stream, 

!; uintS id, 

'^'^^ TypeSpecSc spec ) 

{ 

clFieldS; field = clField : rcreateField ( stream, id ); 
field. content ( ustr, col, spec )i 
f ield.release() ; 

} 

static inline eBreakEvent bmBRKField() 
{ 

stUnivString ustr; 

TypeSpec spec « gbrS . cB . spec ; 

getfield( ustr, 

gbrS . theBreakColH->GetAPPName { ) , 
gbrS . theBreakCo IH- > GetStream ( ) , 
gbrS -cB . theChRec-> flags . GetFiald ( ) , 
spec ) ; 

if { gbrS.firstBos: ) { 

MicroPoint adjustableSpace « gbrS.desiredMeasure - gbrS.cB .curBo^; 

/* at the start of every word set a potential break point */ 
BRKSetCandBreak C eCharBreak ); 
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gbrS.lineHyphenated = false; 

BRKRepairLastSpace( gbrS .cB.theChRec, gbrS .cB .trail ingSpaces ); 

} 

return gbrS .cB .theChRec"> character; 

} 



/»»«*»»»**»***»***»««*«******»*»«************«***«******«****»*»***** 

/» we have tripped on a word space, if it is the first mrd space we 

* must do some housekeeping, the first word space test perfoms two 

* operations: 1. it tests to see if we have exceeded the measure and 

* 2. it counts actual interword spaces areas, we need to know that 

* for microjustification 
*/ 

static inline eBreakEvent bmBRKWordSpace ( ) 

^ BOOL bFirstGlue « gbrS . f irstGlue; 

if ( gbrS.f irstGlue ) { 
gbrS.firstBox = true; 
gbrS.fi3rstGlue false; 
gbrS . cB . wsSpaceCount-f + ; 

} 

gbrS.fNoS tart line - false; 
gbrS.flastHangable « 0; 

13 gbrS . tmpOptGlue scCachedStyle : :GetCurrentCache ( ) .GetOptWord ( ) ; 
i> 3 gbrS , tmpMinGlue scCachedStyle : : Get Current Cache ( ) . GetMinWord { ) ; 
fS gbrS.tmpMasGlue += scCachedStyle :: Get CurrentCache () .GetMaKWord() ; 

gbrS.cB.theChRec->escapement « scCachedStyle: ;GetCurrentCache() .GetOptWord{) 

I ; ; gbrS . cB . tra i 1 i ngSpaces-i-+ ; 

1 1 £r^2rS . cB . spaceCoun t++ ; 

"''■^ gbrS . cB . streamCount-f + ; 

C 3 gbrS , cB . t heChRec++ ; 

if (IbFirstGlue) 

"J ^ MicroPoint adjustableSpace ^ gbrS.desiredMeasure - gbrS .cB,curBoK; 
h\ BRKSetCandBreak { eCharBreak ); 

if (BRKEKceedVals (adjustableSpace)) 



BRRLineDecision (0); 
return BRKEKitLoop( ); 



} 

return in_line; 

} 

does much the same as the word space break, except these are characters, 
* it also checks for hyphens 
*/ 

static inline void BRKSetFirstBoK ( ) 

{ 

gbrS.f irstGlue « true; 

gbrS.firstBoK - false; 

gbrS.cE.minGlue +^ gbrS .tmpMinGlue; 

gbrS.cB.optGlue gbrS. tmpOptGlue; 

gbrS.cB.masGlue gbrS . tmpMasGlue; 

gbrS. tmpMinGlue = gbrS. tmpOptGlue « gbrS .tmpMasGlue « 0; 

gbrS.cB-trailingSpaces = 0; 

} 

static inline eBreakEvent bmBRKCharC ) 
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} 

else { 

lineData.flnkEKtents.yl gbrS .minRelPosition; 

lineData.fInkExtents.y2 += ( lineData.fComputedLen - lastChWidth ); 

} 



#if SCDEEUG > 1 

SCDebugTrace( 4, scString( "BRKMaxLineVals: (Zd Zd Zd Zd)\n" ), 

muPoints( lineData.f InkExtents.Kl ), muPoints( lineData . f InkEstents .yl ), 
muPoints( lineData.fInkExtents.K2 ), muPoints( lineData . f InkExtents .y2 ) ) 

#endif 

if ( cfbrS.dcSet ) { 

/* now union the drop cap extents and the 'line* extents */ 
lineData.flnkExtents. Union ( dcReot ); 

} 

} 

Static inline Bool BRKExceedVais ( MicroPoint adjustableSpace ) 

^ return gbrS.cB.minGlue -i- gbrS.tmpMinGlue > adjustableSpace; 
} 

z*****************************************************************^ 

/* this is the routine that effectively does the quality line breaking 

up to this point we have simply been looking for a condition to 
f^J have been exceeded, now we may search to find a good break point 

^ktic UCS2 BRKLineDecision( MicroPoint ) 

0 

:u2 CandBreak *choice; 

if ( ( gbrS.effectiveRag & eRagFlag ) == eRagJustif xed } 
'"4 choice ^ BRKHyphenate Just ( ); 
13 else 

I choice * BRKHyphenateRag ( ); 

^■^ ■ if ( choice'->breakCount 0 
^-J gbrS.cB.breakCount > 1 

choice->streamCount choice->startCount ) 
choice++; 

O choice->spaceCount = (ushort) (choice-) spaceCount - choice->trailingSpaces) ; 

choice->wsSpaceCount = (ushort) (choice ->wsSpaceCount - choice->trailingSpaces) ; 
'""^ gbrS.cB = *choice; 

/* this is a fix for a bug in the character loop, 
» in the loop the spec is incremenented before the character is 

* called, if the character forces a line break, the spec at the 

» end of the line ( stored in choice->spec ) is invalid, the following 

* fixes this 
*/ 

while ( gbrS.cB.theChRec->character 
gbrS.cB.lineVal 

gbrS.cB.specRec->offset () (long)gbrS .cB .streamCount ) { 
gbrS . cB . specRec — ; 

gbrS.cB.spec - gbrS .cB ,specRec->spec ( ) ; 
gbrS.cB.lineVal — ; 

} 

scCachedStyle: :GetCachedStyle( gbrS.cB.spec ); 

if ( gbrS.cB.breakVal === eHyphBreak ) { 
gbrS .lineHyphenated = true; 

if ( gbrS,cB.theChRec->flags.IsRernPresent{) ) 

gbrS.cB.curBox BRKKernCorrection ( gbrS . cB . theChRec ); 

} 

else { 
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increment the line hyphenation count, used to prevent to many 
* consecutive lines hyphenated 
*/ 

if ( gbrS.iineHyphenated ) 
linesHyphenated +=1; 

else 

linesHyphenated - 0; 
/* set these - the leading may force the line to be replaced & rebroken */ 

Bi?KMaxLine¥als( lineData. initialLead, mitialBaseline, (gbrS.cB.theChRec-l)->chdracter>-scWordS 
pace? (gbrS . cB . theChRec- 1 ) ->escapement : 0 ) ; 

for ( ; (long)gbrS.cB.streamCount > (*specRec+l) ->of fset () ; (*specRec)++ ) 



if ( gbrS.foundCharlndent ) 

BRKSetCharIndent( chRec, startCount, count. gbrS.ietterSpaceAdj ); 

(gbrS .cB .theChRec-1) -> flags .SetLineBreak ( ) ; 
scAssert{ count >= 0 ) ; 



#if JEBUG 

eBreakType ret = gbrS.cB.breakVal; 

gbrS.Init(); 

return ret; 
#else 

return gbrS . cB , breakVal ; 
#endif 

>Ii 

/^*»»**»*««***«»»«*«««*»*»»«*«**»»*»*«**»»*«**»*»«**»«»««»**«***»*»«**«**/ 

sggitic void BRKMaKLineVals( scLINERefData& ImeData, 

MicroPoint initialLead, 
eFntBaseline baseline, 
MicroPoint lastChWidth ) 

m 

scAngle masAngle = lineData . fStartAngie; 
L i; 
U scXRect dcRect; 

|1 if ( gbrS.dcSet ) { 

set the max extents of the drop char before we bash linedata, 
* since the dc has to have the Imedata that was in effect at 
fi * the beginning of the line 

;i */ 

gbrS.dcInfo.dcMinY ^ Ul¥i( gbrS .dcInfo.dcMinY, lineData. fOrg .y + lineData .f InkExtents .yl ); 
gbrS.dcInfo.dcMaxY = gbrS.dcInfo.dcMaxY - ( gbrS.dcInfo.dcMinY + lineData.f Base line Jump ); 
gbrS.dcInfo.dcMaxX gbrS .dclnfo .dcMinX; 

dcRect.Set( gbrS . dclnfo. dcMinX, gbrS.dcInfo.dcMinY, gbrS.dcInfo.dcMaxX, gbrS .dclnfo, dcMaxY ) 

} 

for ( i = gbrS.cB.lineVal; i — ; ) { 

if ( initialLead < gbrS.fMaxLineVals[i] .fMaxLead. Get Lead {) ) { 

if ( lineData. fEndLead.GetLeadO < gbrS. fMaxLineVa Is [i] .fMaxLead. Get Lead () ) { 
lineData. fEndLead « gbrS. fMaxLineVa Is [i ]. fMaxLead; 

lineData.SetMaxLeadSpec( gbrS . fMaxLineVals [i ] . fSpecRec->spec( ) ) ; 

} 

} 

scXRect inkExtents( gbrS. fMaxLineVals [i] .fMaxInkExtents ); 
i nkEx ten ts , Trans 1 ate ( 1 i neDat a . f Org ) ; 
lineData.f InkExtents .Union ( inkExtents ); 

} 



if C ImeData.IsHorizontal () ) { 

lineData.f InkExtents. xl gbrS.minRelPosition; 

lineData.f InkExtents, x2 ( lineData. fComputedLen - lastChWidth ); 
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} 



if ( gbrS.cB.theChRec->character == scEndStream ) { 

if ( startCount^^O |i (gbrS.cB.theChRsc-l)->characterf ^scHardReturn ) { 

BRKPlaceLine( lineData . fOrg, lineData . fComputedLen^ scCachedStyle: :GetCurrentCache() .Get 

FlowdirO ); 

count ^ gbrS.cB.streamCount - startCount; 

BRKMaKLiiieVais( lineData, initialLead, initialBaselins^ 0 ); 

#if _DEBUQ 

gbrS.Init {) ; 
#endif 

return eEndStreamBreak ; 

} 

} 

switch ( BRKTheLoopO ) { 
case start_of„line: 
break; 

case end_of.stream_reached: 

/* the end of paragraph has been detected */ 
/* force justify the line, 

* NOTE; we should probably justify the line 

* if it IS close to the desired measure 

* I IHIHK WE DO 
*/ 

BRKRepa i rF i na 1 Space ( ) ; 

lineData.fRagSetting = gbrS . effect iveRag; 
O if ( gbrS.colShapeRag !- (eTSJust)-l ) 

.J gbrS. effect iveRag = eRagRight; 

if ( (gbrS. effect iveRag S: eRagFlag) eRagJustif ied ScSc !gfarS,cB. f illSpCount ) { 
fy if ( i (gbrS.effectiveRag & (int)eLastLineJust) ) 

■^2 lineData.fComputedLen = gbrS .cB.curBox -f gbrS .cB .optGlue; 

iTi else { 

if ( gbrS.allowJustif ication ) 
'Hi BRKJustifyLine( ); 

=fi lineData.fComputedLen « gbrS .desiredMeasure; 

} 

:„ lineData.fOrg.K gbrS .brkLeftMargin; 

p if ( gHiliteSpaces ) 

^.J lineData.fComputedLen ^brS .totalTrailingSpace; 

N > 

else 

1=^ BRKPlaceLine( lineData . fOrg, lineData.fComputedLen, scCachedStyle : rGetCurrentCache ( ) 

.^tFlowdirO ); 

count - gbrS.cB.streamCount - startCount; 

"^"^ letterSpace = gbrS . letterSpaceAdj ; 

break ; 
default: 

case measure_exceeded : 

// the line measure has been exceeded, there are still more 

// characters in the paragraph 
lineData.fRagSetting ^ gbrS . effect iveRag; 
if ( gbrS.colShapeRag !» (eTSJust)-l ) 

gbrS.effectiveRag eRagRight; 

if ( (gbrS.effectiveRag & eRagFlag) eRagJustif ied igbrS.cB. fillSpCount ) { 
if ( gbrS.allowJustif ication ) 

BRKJustifyLine( ); 
lineData.fOrg.K gbrS. brkLeftMargin; 
lineData.fComputedLen - gbrS .desiredMeasure; 
if { gHiliteSpaces ) 

lineData.fComputedLen gbrS . totalTrailingSpace; 

} 

else 

BRKPlaceLine( lineBata.fOrg, lineData.fComputedLen, scCachedStyie: :GetCurrentCache() 

■ GetFlowdirO ); 

count = gbrS.cB.streamCount - startCount; 

letterSpace = gbrS. letterSpaceAdj ; 
break ; 
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/* zero out the char indent at the start of every paragraph */ 
if ( startCount 0 ) 

gbrS. char Indent = LOHG^MIH; 
gbrS . f oundCharlndent = false; 



gbrS . cB , startCount 
gforS . theSpecRec 
^brS .cB.spec 
gbrS . originalMeasure 



= gbrS.cB.streamCount = (long) startCount; 

- *specRec; 

= gbrS.theSpecRec->spec() ; 

« lineData .fComputedLen ~ lineData . f Measure; 



/* this test IS somewhat arbitrary, but we are reaching the 

* outer limits of our unit system, and what to probably 

* have encountered is a horizontally flexible column, 

* which should not be justified!! 
»/ 

gforS.allowJustif ication { gforS. originalMeasure < (LONG„MAX-one_pica) )j 

/* a little bullet proofing «/ 
if ( gbrS. originalMeasure < 0 ) 

gbrS. originalMeasure = one_pica 



2; 



if ( ImeData.IsHorizontal () ) 
gbrS .colShapeRag 

else 

gbrS . colShapeRag 



(eTSJust)( lineData. fColShapeType & eHorzFleK ? eRagLeft : -1 ); 
(eTSJust)( lineData. fColShapeType Sc eVertFlex ? eRagLeft : -1 ); 



gbrS . lastLineLen 

gbrS . theLineCount 
£j gbrS.cB.breakVal 

gbrS.cB.lmeVal 
It gbrS.cB.breakCount 
I [ I gbrS . cB . spaceCount 
fy gbrS.cB.trailingSpaces 
. gbrS . cB . wsSpaceCount 

gbrS.cB.fillSpCount 

gbrS.cB.chCount 

{3 gbrS.letterSpaceAdj 
gbrS .mi nRel Posit ion 
^ gbrS . cB . curBox 



1 ineOata . f LastLineLen ; 

lineCount; 

eCharBreak ; 

0; 

0; 

0; 

0; 

0; 

0; 

0; 

0; 
0; 
0; 



initialLead 
initialBaseline 

gbrS.cB.optGlue 
gbrS .tmpMmGlue 



1 ineData . f InitialLead . GetLead ( ) ; 

scCachedStyle; :GetCurrentCache() .GetBaselineType ( ) : 



gbrS.cB.minGiue ^ gbrS .cB .masGlue = QL; 
gbrS.tittpOptGiue ^ gbrS.tmpMaKGlue = OL; 



gbrS .cB . specChanged 
gbrS.f irstBoK 
gbrS . fNoS tart line 
gbrS . f LastHangable 
gbrS . numTargetChars 
gbrS . tota ITra i 1 i ngSpace 



false; 

gbrS.f irstGlue 

false; 

0; 

0; 

0; 



true; 



gbrS.desiredMeasure = : ;BRKRagControl ( gbrS .cB.theChRec, lineData , f Org lineData , f Org .y, 

lineData , f Measure, gbarS . cB . spec , lineCount, linesHyphenat 

ed ); 

if { gbrS.desiredMeasure <« 0 ) { 
if ( fgbrS.dcSet ) 

count 0; 
else { 

BRKPlaceLine( lineData . f Org, ImeData . fComputedLen, scCachedStyle : :GetCurrentCache () .Get 

FlowdirO ); 

count * gbrS.cB.streamCount - startCount; 

BRKMaxLineVals ( lineData, initialLead, initialBaseline, 0 ); 

} 

#i£ „DEBUG 

gbrS.Init () ; 
#endif 

return eCharBreak; 
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static void Shuf f leBreakCandidates ( ) 

^ gbrS.cdndBreak[0] .Init(); force the clearing of a spec 

// shuffle the array down into the spot we just cleared 
SCrEiemmove( gbrS.candBreak, gbrS .candBreak+1, sizeof (CandBreak) * (MAXBREARVALS-IL) ); 

// zero out the last entry which is now doubled because we copied it into 
// the nest to last entry 
SCinemset( gbrS.candBreak + ( MAXBREAKVALS - 1 ), 0, sizeof (CandBreak) ); 

// initialize the last entry 
gbrS . candBreak [MAXBREAKVALS- 1 ] . Ini t () ; 

} 

put the current break values into the candidate br^ak array */ 
static void BRKSetCandBreak ( eBreakType breakType ) 

^ CandBreak *theBreak gbrS .candBreak + gbrS .cB .breakCount ; 

»theBreak = gbrS.cB; 

theBreak->breakVal « breakType; 

if ( breakType eHyphBreak ) 

theBreak->curBoK scCachedStyle : :GetCurrentCache( ) .Get Escapement ( ' - ' ) ; 

,^.„if ( gbrS.cB.breakCount >- (MAXBREAKVALS- 1) ) 

Vl Shuf f leBreakCandidatesO ; 

t^ielse 

~ Z gbrS . cB . breakCount+4- ; 

static eBreakEvent BRKExitLoopC ) 
{ 

f i return measure_esceeded ; 

> 7 

/^'--fe are passed in some characters £c line attributes^ break the line. 
»5 .performing justification, hyphenation, indents, etc. 

eBSakType 

BRpiomanLineBreak( CharRecordP chRec, // the character array 

long startCount, # into char array to start the linebreak 

longSc count. // count into char array of end of line 

scL INERe f Dat a £e 1 i neDa t a , 

short IzneCount. 

short & 1 i nesHyphenated , 

scSpecRecord** specRec , 

scXRectSc. 

GiyphSize& letterSpace ) 

/* not a good idea to use register or auto variables that are used 
« across a call to setjmp/longjmp. they alter them when the previous 
» stack is restored 
*/ 

MicroPoint initialLead; 
eFntBasei ine init ialBasel me ; 

gbrS.InitO ; 

/* set up state variables */ 

gbrS.gStartRec = gbrS . cB . theChRec = chRec + startCount; 
gbrS.fMa3£LineVals[0] ^ gbrS , fZeroMaxLineVals; 
lineData.flnkEKtents. Translate ( lineData . fOrg ); 



{ 
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static 
static 
static 
static 
static 



static 
static 
static 

static 
static 



void 
void 
void 
void 

MicroPoint 



CandBreak* 
CandBreak* 
void 

CandBreak* 
CandBreak* 



BRKDropCapControl ( MicroPoint, MicroPoint ); 
BRKPlaceLine( scMuPomtSc, KicroPointSc, const scFlowDirS^ ); 
BRRJustifyLxne( void ); 
BRKSpecial{ ushort ); 
BRKRagControl ( CharRecordP , 

MicroPoint, MicroPoint, 

MicroPoint, TypeSpec, ushort, short ); 

BRRLineDecisionJust{ void ); 
BRKLineDecisionRa9( void ); 

BRRSetCharIndent{ CharfecordP, long, long, MicroPoint ); 

BRKHyphenateRag C void ); 
BRKHyphenate Just ( void 



void 
scFo 
void 

short 

static void 



static 
#ifdef 
static 
#endif 
static 



BRKAddHyphens ( CandBreak*, CandBreak* ); 
scF orceBr eakF i r stWor d 

BRKForceHyphens ( CandBreak*, CandBreak* ). 



BRKPerfonnDiscHyphen( CharRecordP, CharRecordP, Hyphen* ); 
BRKAdjustWordSpace{ CharRecordP, GlyphSize, long, long ); 



static void BRKRepairLastSpace ( CharRecordP, long ); 

static void BRKRepairFinalSpace( void ); 

static CharRecordP BRKLastCharOnLine{ CharRecordP ); 

static MicroPoint BRKHangPuncRightAdjust ( void ); 



static 
stftiic 
stli^ic 



TypeSpec 

MicroPoint 

void 



BRRUpdateSpec ( scSpecRecord* ); 
BRKKernCorrection( CharRecordP ); 

BRKManLineValsC scLINERefDataSc, MicroPoint, eFntBaseline, MicroPoint ). 

/*E@§@@@§§@ */ 

/•SJ*******************************************************************^ 

f ^ 

CandBreak: : CandBreak ( ) 

{ u 

i=Init(); 

} H 

w******************************************************^ 



voll CandBreak : : Init ( ) 
{ 



breakCount 




0; 


startCount 




0; 


streamCount 




0; 


wsSpaceCount 




0; 


spaceCount 




0; 


trail ingSpaces 




0; 


chCount 




0; 


f illSpCount 




0; 


lineVal 




0; 


breakVal 




eUnde f i nedBreak ; 


ininGlue 




0; 


optGlue 




0; 


KiaKGlue 




0; 


curBo2? 




0; 


fHangable 




0; 


theChRec 




0; 


specChanged 




0; 


spec -clear ( ) ; 






specRec 




0; 



} 

/«*****»****«»**»»»***«*****»**»»****»***********************************/ 

//if the break candidates fill we remove the first entry and shuffle the 
// candidates down since the first candidate is no longer a real candidate 
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File: SCBREAK.C 

$Header: /^Projects^oolboK/ct/Scbreak .cpp 6 5/30/97 8:45a Wmanis $ 
Contains: line breaker 
Written by: Man is 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition ToolboK software is the proprietary 
and confidential property of Stonehand Inc. 



****»*»«**«■»*»»»»***«***»**»***»«*****/ 



#include "scbreak.h" 
^include "sccolumn.h" 
#include "scglobda.h" 
#include "scstcach.h" 
#ini;^ude "scctype,h" 
#ii%lude "scmem.h" 
#ia(31ude "screfdat.h" 
#if#ude "sccallbk.h" 

//^"ftiOLBOX BEHAVIOR - force first word on line to break if it does not fit 
#defiine scForceBreakFirstWord 

#d^^ine MAXLEADVALS 50 
#d4iine MAXBREARVALS 100 

#i|adef LETTERSPACE 

Mkhne LETTERSPACEC ch ) { (ch) ->charact0r ! -scWordSpaceX 

-^.^ && ((ch)4-l)->characteri ^scWordSpace ) 

#e|^if 

/«*«»*»«»«*«*«««*«»«*««*««»«»««««*****«*«*«*********«»«*«*«*****/ 

/*iint -esym(534,BRKLineDecision) */ 

static MicroPoint BRK^eKtTokenWidth ( CharRecordP, UCS2 ); 
static Bool TabBreakCharC UCS2 theCh, UCS2 breakCh ); 

static eBreakEvent BRKLoopBody( void ); 

static eBreakEvent BRKTheLoap( void ); 

static Bool BRKStillMoreChars( CharRecoirdP , long ); 

static void BRKChar Japanese ( void ); 

static eBreakEvent bmBRRWordSpace ( void ); 

static eBreakEvent bmBRKFixSpace( void ); 

static eBreakEvent bmBRKRe 1 Space ( void 

static eBreakEvent bmBRKEndStream( void ); 

static eBreakEvent bmBRKChar( void ); 

static eBreakEvent bmBRKHardReturn ( void ); 

static eBreakEvent bmBRKQuad{ void ); 

static eBreakEvent bmBRRFieldC void ); 

static eBreakEvent bmBRKVertXab ( void ); 

static eBreakEvent bmBRKTab( void ); 

static eBreakEvent bmBRKFillSpace ( void ); 

static eBreakEvent bmBRKRule( void ); 

static eBreakEvent bmBRKHyphen( void ); 
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#endif 
#endif 

#if defined ( SubDiv25& ) 
Meiine scBezBlendSize {SufoDiv256 + 
#elif defined( SubDivl28 ) 
#define scBezBlendSize 
#elif defined( SubDiv64 ) 
#define scBezBlendSize 
#elif defined { SubDiv32 ) 
#define scBezBlendSize 
#elif defined ( SubDivl6 ) 
#define scBezBiendSize 
#elif defined ( SubDivB ) 
#define scBezBlendSize 
#elif defined C SubDiv4 ) 
#define scBezBlendSize 
#elif defined ( SubDiv2 ) 
#define scBezBlendSize 
#elif ! defined ( scBezBlendSize ) 
#def ine scBezBiendSize 0 
#endif 



1) 

(SubDivl28 + 1) 
(SubDiv64 + 1) 
(SubDiv32 + i) 
(SubDivlS + 1) 
(SubDivB + 1) 
(SufoDiv4 + 1) 
(SubDiv2 + 1) 



#endif /* „H„SCBEZIER */ 
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/*»»**«#»*««***«»»*«****»**«»**»*«*»**«*»*******************************^ 

File: SCBEZIER.H 

$Headar: /Projects/Toolbox/ct/SCBEZIER-H 2 5/30/97 8:44a Wmanis $ 
Contains: size of besier sub-division factors 
Written by: Mams 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge. MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc, 

******************************************************************** 

#ifndef .H^SCBEZIER 
#def ine .H„SCBEZIER 

#include "sc types. h" 

void BE2Vectori2ePoly( scVertes const scVertess * 

/*^'fcist one of these defined determines the number of vectors 
»::t5tiat will be created by sub-dividing the bezier curver 

#d@fline SubDxv2 2 

#dffdne SubDiv4 (BubDiv2 * 2) 

#d|gine SubDivS (SubDiv4 * 2) 

#d^Pine SubDivie (SubDivB * 2) 

#i£"o 

#de£ine SubDiv32 (SubDivlS * 2) 

#d4#ine SubDiv64 (SubDiv32 * 2) 

#d6|ine SubDivl28 (SubDiv64 * 2) 

m^Bine SubDiv256 (SubDivl28 * 2) 
#e||if 

f ^ 

//iiefine scBezFixed 
#def ine scBezREAL 

#ifdef scBezFixed 

#define scBezF actor ( k, y ) k 
struct scBezBlendValue { 

ushort ca; 

ushort cb ; 

ushort cc; 

ushort cd ; 

}; 

#ifdef scBezREAL 

#error "can't define both" 
#endif 
#endif 

#ifdef scBezREAL 

#define scBezFactorC y ) y 
struct scBezBlendValue { 

REAL ca ; 

REAL cb; 

REAL cc ; 

REAL cd ; 

#ifdef scBezFised 

#error "can't define both" 
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#endif 

#ifdef scBezREAL 

static void BezCompute( scVertex* dstV, 

const scVertex* srcV ) 

{ 

xnt i; 

dstV[0] - srcV[0]; 

dstV[scBezBlendSise-l] * srcV(3]; 



for ( i - 1; i < scBezBXendSize - 1; i++ ) { 

dstV[i].K = scRoundMPC srcV[01.x * bezblend[i] .ca + 

srcV[l].2 « be2blend[i] .cb + 
srcV[2].K * bezblendfi] .cc + 
srcV[3].x * bezblend[i] .cd ); 

dstV[i],y - scRoundMP( srcV[0].y * bezblerid[i] .ca + 

srcV[l],y * bezblend[i] .cb + 
srcV[2].y * bezblend [i ] .cc + 
srcV[3].y * bezblendfi ] .cd ); 

dstV[i] .fPointXype ^ eCornerPoint; 

} 

} 

#erjd4f 
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SCBezVertex *SCBe2CompDrawList ( SCBezVertex* theVerts, 

SCBesVertex* drawList ) 

{ 

SCBezVertSK* pDraw; 
scBezBlendValue* pBlend; 
short i ; 

drawList [0] = theVerts [ 0 ] ; 

drawList [scBezBlendSiz^-l 3 = theVerts [3]; 

pBiend = besblend + I; 
pDraw ^ drawList + 1; 

for (i * 0; i < scBezBlendSise-Z; i++) { 

pDraw->:s =(short) (( (iong) theVerts [0] * (ulone)pBlend->ca 
+ (long)theVerts[l] .X « (ulonH)pBlend->cb 
+ (long ) theVerts [2] ,x * (ulcing)pBlend->cc 
+ {long ) theVerts [ 3] .K * (ulong)pBlend->cd) >> 16); 

pDraw->y = (short) (( (long)theVerts[0] .y * (ulong)pBlend->ca 
+ (long)theVerts[l] -y » (ulong)pBlend'->cb 
+ (long)t^^V^^'ts[2] .y * (ulong)pBlend->c:c 
+ (long)theVerts[3] .y * (ulong)pBleiid->cd) >> 16); 

pBlend++; 

pDraw++ ; 

} 

^^return drawList; 

} ^3 

stl-tfic void BezCompute( SCVerteK* dstV^ 
k.1 const SCVertex* srcV ) 

{ Q 

: '^^CBezVertsK v [ 4 ] ; 

^%CBezVertes: drawList [scBezBlendSize] ; 
Cjr^gistar int i; 

scPointType fPointXype; 
I::.short minX; 
;^>=%hort lainY; 

IJpointType = srcV->fPointType; 

^l"/* put source into a 16 bit quantity so that 
13 * we can perform fixed point multiplies on it, 
fj « and force bezier into positive coordinate space 

* so that the fixed point multiplies with blending 

* values will work 
»/ 

minX = minY - SHRT.MAX; 
for ( i =^ 0; i < 4; i++ ) { 

v[i].x = (short) ( srcV->K >> 16 ); 

minX ^ MIH( minX, v[i].x ); 

v[i].y - (short) (srcV->y >> 16); 

minY = MIH( minY. v[i].y ); 

srcV++ ; 

} 

minX * ( minX < 0 ? -minX : 0 ); 
minY « ( minY < 0 ? -minY : 0 ); 
if ( minX ! 1 mmY ) { 

for ( i = 0; i < 4; i++ ) { 

v[i] ,s minX; 

^[^] *Y ^' minY; 

} 

} 

SCBezCompDrawList ( v^ drawList ) ; 

RenderBezier( dstV, pointXype, drawList, minX, mmY ); 
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void BEZVectorizePoly ( scVerteK*^ 



dstV, 



{ 



const scVertes* srcV ) 

scVertsK* vList; 

int i ; 

Bool process; 

long numPoints; 

1 ong numCurves ; 

scVerteK bezVectors[ scBezBiendSize + 2 ]; 



numPoints ^ CountVerts ( srcV ); 
numCurves - CountBezCurves ( srcV ); 



if ( numCuxves =- 0 ) 
return ; 



long segments = numPoints + scBezBlendSize * numCurves; 

dstV = vList = (scVerte2e*)MEMAllocPtr( segments » sizeof( scVertes ) ); 

for ( process = true; process; ) { , 

switch ( srcV->fPointType ) { 

case eFinalPoint: 

process = false; 
default: 

»vList++ = *srcV++; 

break ; 

case eBezControlPoint : 

// insure we have two points - if not process normally 
V= if ( (s3rcV+l)->fPointType eBezControlPoint ) { 

FU BezCompute( bezVectors, srcV - 1 ); 

for ( i « 1; i < scBezBlendSize - 1; i++ ) 
^'l^: »vList++ = bezVectors [ i ] ; 

^"^ srcV +* 2; 

} 

f3 else 

*vList++ « *srcV++; 
" break; 

C3 } 
} H 

#i$%f scBezFixed 

/* it is assumed that the list has enough space before entering 
* this routine 



static void RenderBezier ( SCVertes* dstV^ 

scPo i n tXype type , 

SCBezVertex* draw, 

short minX, 

short minY ) 



{ 



size_t i; 

for ( i =^ 0; i < scBezBlendSize; i++, draw++ ) { 
if ( i ^'^^ 0 ) 

dstV->fPointType - type; 

else 

dstV->fPointType = eCornerPoint; 

dstV->s: ^ (long)( draw->x - minX ) << 16; 
dstV->y ^ (longH draw->y - minY ) << 18; 
dstV+H-; 



File : Work\CrtPrt\Stonehnd\Scbe2:ier .cpp 



Pg: 1 



File: SCBEZIER.C 



$Hsader: /Projects/ToolboK/ct/SCBEZIER.CPP 2 5/^30/97 8:45a V^anis $ 
Contains: vectorizes beziers 

Written by: Man is 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

»»»»*»«*»»»*»**»*«»**«*»»»»**«»»**«*»****»*«»«*«**»***»*************^ 

#include "scbezier.h" 
#include "scmem-h" 
#include <limits.h> 

struct SCBezVerteK { 
^ short x; 
llhort y; 

extern scBezBlendValue bezblend[]; 

staVic void BezCompute( scVertex* dstV, 
'^'A const scVertex* srcV ); 



/* ^unt the number of vertices in the vertex list */ 
inlsiie long CountVerts( const scVertex* verts ) 

{ 

^iong numVerts; 

S J 

f^or ( numVerts - 1; verts->fPointType I - eFinalPoint; verts++, numVerts+-i- ) 
return numVerts; 

} 

oouTLt the number of bezier curves in a vertex list */ 

inline long CountBezCurves ( const scVertex* verts ) 
{ 

long numCurves; 

for ( numCurves = 0; verts- >fPointType ! =^ eFinalPoint; ) { 

if ( verts- >fPo in tType eBezControlPoint Sc^ (verts+l)->fPointType eBezControlPoint ) { 
numCurves++ ; 
verts 2; 

} 

else 

verts++ ; 

} 

return numCurves; 

} 

process the list vectorising the beziers into straight lines »/ 
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#endif 



#ifdef SubDiv256 
{ 



OkOOOO, 


0. 


.0000016 


)' 


/» 


(253 


0) 




OKOOla, 


0. 


,0004072 


). 


/* 


(253 


I) 


«/ 


OKOSca, 


0. 


.0343371 


)^ 




(253 


2) 


»/ 


0Kf71a, 


0. 


.9652541 


) 




(253 


3) 





#ifdef SubDivl28 
{ 



#endif 



OsOOOO. 


0. 


,0000005 




/» 


(254 


0) 


*y 


OKOOOb, 


0. 


,0001817 




/* 


(254 


1) 


»/ 


OxOSeS, 


0. 


.0230727 




/« 


(254 


2) 


»/ 


OKfaOfo, 


0. 


,9767451 


) 


/» 


(254 


3) 


*/ 



#ifdef SubDiv256 
{ 



0x0000, 


0, 


0000001 




/» 


(255 


0) 


«/ 


0x0002, 


0. 


0000456 


)^ 


/» 


(255 


1) 


«/ 


0K02fa, 


0. 


0116274 


). 


/* 


(255 


2) 


*/ 


0Kfd02, 


0, 


9883270 


) 


y* 


(255 


3) 


*/ 



#endlf 



/* tiis one is needed fay all sub divisions */ 

{ Q 



OkOOOO, 


0 


.0000000 




/* 


(256 


0) 


«/ 


0x0000, 


0 


.0000000 


)^ 


/* 


(256 


1) 


«/ 


0x0000, 


0 


.0000000 






(256 


2) 


*/ 


OkOOOO, 


1 


.0000000 


) 


/* 


(256 


3) 


*/ 
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scBezFactor( OxleSS, 
scBezF actor ( 0xe065, 

}^ 

#endif 



0.1180564 
0.8765534 ) 



/» (245 2) */ 
/* (245 3) */ 



#ifdef SubDivl28 
{ 

scBezFactor( OkOOOS, 

scBe2Factor( 0k0120. 

scBezFactor( OxlbbS, 

scBezFactor( 0se328, 

#endif 



0.0000596 ), 
0.0043988 ), 
0.1082110 ), 
0.8873305 ) 



/* 



(246 0) */ 

(246 1) */ 

(246 2) */ 

(246 3) »/ 



#ifdef SubDiv256 
{ 

scBezFac:tor( 0k0002, 
scBezFactor( OxOOea, 
scBezFactor( 0x1922, 
scBezF&ctorl OxeSfO, 

}^ 

#endif 



0.0000435 
0.0035775 ), 
0.0981833 
0.8981957 ) 



(247 0) */ 

(247 1) »/ 

(247 2) *y 

(247 3) */ 



#ifdef SufoDiv32 
{ 

„Sc:BezFactor( 0x0002, 
IScBezFactor( OnOOba, 
•^fcBezFactorC Ok 1686, 
^scBezFactor( OKeSbe, 

#endif 



0.0000305 ), 

0.0028381 ), 

0.0879822 ), 

0.9091492 ) 



(248 0) */ 

(248 1) */ 

(248 2) */ 

(248 3) *y 



#ifai£ SubDiv256 

t|cBe2Factor( OkOOOI, 

^scBezFactorf OnOOSe, 

^^cBezFactor ( 0Kl3de, 

McBezFactor( 0Hab91, 

}. H 

#end J £ 



0.0000204 ), 
0.0021817 ), 
0.0776065 ), 
0.9201913 ) 



/» 



(249 0) 

(249 1) *y 

(249 2) */ 

(249 3) */ 



#if|i|f SubDivl28 

^ '"scBezFactor( OkOOOO, 0.0000129 ). 
scBezFactor( 0x0069, 0.0016093 ). 
scBe2Factor( 0xll2a, 0.0670552 ). 
scBezFactor( 0xee6b, 0.9313226 ) 

}^ 

#endif 



(250 0) »/ 

(250 1) */ 

(250 2) »/ 

(250 3) 



#ifdef SubDiv256 

{ 

scBezFactor( 0x0000, 

scBezFactor( 0x0049, 

scBe2Factor( 0x0e6b, 

scBezFactor( Ox f 14a, 

#endif 



0.0000075 ), 

0.0011221 ), 

0.0563273 ), 

0.9425432 ) 



/* 
/» 



(251 0) */ 

(251 1) */ 

(251 2) 

(251 3) »/ 



#ifdef SubDiv64 
{ 

scBe2Factor( 0x0000, 

scBezFactor( 0x002f, 

scBezFactor( OxObaO, 

scBezFactor( 0xf42f, 



0.0000038 ), 
0.0007210 ), 
0.0454216 ), 
0.9538536 ) 



(252 0) */ 

(252 i) */ 

(252 2) */ 

(252 3) 



File : Work\CrtPrt\Stonehnd\Scfoezble .cpp 
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scBezFactor ( 
scBezFactorC 
scBezFactor( 
scBezFactor( 

#endif 



0x0016, 0,0003476 

0K0387, 0.0137887 

0K2eac, 0.1823173 

OscdbS, 0.8035464 



), /« (238 0) */ 

/* (238 1) */ 

), (238 2) */ 

) /* (238 3) */ 



#ifdef SubDiv256 
{ 

scBe2Factor( 
scBezFactor( 
scBezFactor( 
scBezFactor( 

#endif 



0x0013, 0.0002928 

0x0329, 0.0123509 

0x2c73, 0.1736385 

0xd04f, 0.8137178 



/* (239 0) *y 

), /» (239 1) */ 

), /* (239 2) */ 

) (239 3) */ 



#ifdef SubDivl6 

^ scBezFactor( OsOOlO, 
scBezFactor( 0K02d0, 
scBezFactor( 0x2a30, 
scBezFactor( 0xd2f0, 

}^ 

#endif 



0.0002441 
0.0109863 ), 
0.1647949 )r 
0.8239746 ) 



/* 
/* 



(240 0) */ 

(240 1) */ 

(240 2) */ 

(240 3) *y 



#iflSf SubDiv256 

^ i5cfiezFac:tor( OnOOOd, 

^acBezFactorC 0K027b, 

fycBezFactor ( 0x2 7el, 

i-icBezFactor( 0xd595, 

}^ hi 



0.0002012 ), 

0.0096962 ), 

0.1557854 ), 

0.8343173 ) 



(241 0) */ 

(241 1) */ 

(241 2) */ 

(241 3) 



#ifdef SubDivl28 



{ 



McBezFactor( OxOOOa^ 

'^dcBezFactor( 0x022b, 

|gcBe2Factor( 0x2588, 

?|cBazFactor( 0KdS41, 



0.0001636 ), 
0.0084815 ), 
0.1466088 ), 
0.8447461 ) 



(242 0) */ 

(242 1) */ 

(242 2) */ 

(242 3) *y 



#ifdef SubDiv255 
{ 

scBezFactor( 0x0008, 
scBezFactor( 0x0 lei, 
scBezFactor( 0x2323, 
scBezFactor( 0Kdaf2, 

#endif 



0.0001310 ), 
0.0073434 ), 
0.1372642 ), 
0.8552615 ) 



/* (243 0) */ 

(243 1) */ 

/* (243 2) »/ 

/* (243 3) */ 



#ifdef SubDiv64 
{ 

scBezFactor( 0x0006, 
scBezFactor( 0x0 i9b, 
scBezFac;tor( 0x20b4, 
scBezFacrtor( 0xdda9, 

}^ 

#endif 



0.0001030 ), 
0.0062828 ), 
0.1277504 ), 
0.8658638 ) 



/* (244 0) */ 

/* (244 1) */ 

/* (244 2) */ 

/* (244 3) */ 



#ifdef SubDiv256 

^ scBezFactor{ 0x0005, 0.0000793 ), /* (245 0) 

scBezFactor( 0x015b, 0.0053009 ), /* (245 1) */ 
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#ifdef SubDiv256 



scBezFactor ( 


0x003d, 


0 


0009313 






(231 


0) 




scBezFactctr( 


0K069b, 


0, 


0258163 






(231 


1) 




scBezFactor ( 


0s3dll, 


0 


2385423 






(231 


2) 


«/ 


scBezFactor ( 


OxbclS, 


0 


7347102 


) 


/* 


(231 


3) 





#endif 



#ifdef SubDiv32 



scBesFactor( 


0x0036. 


0. 


0008240 




/* 


(232 


0) 


*/ 


scBezFactor ( 


0x06 le. 


0. 


0238953 




/« 


(232 


1} 




scBezFactor ( 


0x3b22, 


0. 


2309875 




/* 


(232 


2) 




scBezFactor { 


OxbeBar 


0. 


7442932 


) 


/» 


(232 


3) 





fendif 



#ifdef SubDiv256 
{ 



scBezFactor ( 


Ox002f, 


0. 


0007252 


)^ 




(233 


0) 


*/ 


scBezFactor ( 


Ox05a4, 


0. 


0220401 


). 


/* 


(233 


1) 


«/ 


scBezFactor ( 


0x3928, 


0. 


2232755 


)^ 


/« 


(233 


2) 


*/ 


scBezFactor ( 


0xcl03, 


0. 


7539592 


) 


/* 


{233 


3) 


»/ 



#iffer SubDivl2B 

{ fy 

,spBezFactor( 0x0029, 
:#pBezFactor( 0x052f, 
'4fcBezFactor( 0x3724, 
^bBezFactorC 0xc382, 

o 

#endif 





/* 


(234 


0) 


*/- 




/* 


(234 


1) 


*/ 


). 


/* 


(234 


2) 


«/ 


) 


/* 


(234 


3) 


*/ 



#if<ter SubDiv256 



}. 

#endif 



0x0024, 


0. 


0005520 


)^ 


/» 


(235 


0) 


«/ 


0K04be, 


0. 


0185314 


)^ 


/* 


(235 


1) 


*/ 


0x3516, 


0. 


2073750 


)^ 


/* 


(235 


2) 


*/ 


OxcSOS, 


0, 


7735416 


) 


/* 


(235 


3) 





#ifdef SubDiv64 

{ 



scBezFactor ( 


OxOOlf, 


0. 


0004768 






(236 


0) 




scBezFactor { 


0x0452, 


0. 


0168800 


). 




(236 


1) 


*/ 


scBezFactor ( 


0K32fd, 


0. 


1991844 






(236 


2) 


»/ 


scBezFactor ( 


0xc890, 


0. 


7834587 


) 


/* 


(236 


3) 





#endif 



#ifdef SubDiv256 



scBezFactor ( 


OxOOla, 


0. 


0004088 




/» 


(237 


0) 


*/ 


scBezFactor ( 


0x03ea, 


0. 


0152988 


)^ 


/* 


(237 


1) 




scBezFactor ( 


0x30da, 


0. 


1908322 




/* 


(237 


2) 


*/ 


scBezFactor ( 


Oxcb20, 


0. 


7934602 


) 




{237 


3) 





#endif 



#ifdef SubDivl28 
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scBe2Factor( 0s:a936r 
#endif 



0.5609897 ) 



/« (223 3) */ 



#ifdef SubDivS 

^ scBezFactorC 0x0080, 0.0019531 ). 

scBezFactor( OxOaSO. 0.0410156 ). 

scBezFactorC 0k4980. 0.2871094 ). 

scBf&2Factor( OxabSO, 0.6699219 ) 

#endif 



/» 



(224 0) */ 

(224 1) 

(224 2) */ 

(224 3) 



#ifdef SubDiv256 
{ 

scB6!zFactor( 0x0074, 0.0017757 ). 

scBezFactor( 0K09e5, 0.0386640 ). 
scBezFactor( 0x47d7, 0.2806261 ). 
scBezFactor( Oxadce, 0.6789342 ) 

}. 

#endif 



/* 
/* 



(225 0) »/ 

(225 1) */ 

(225 2) */ 

(225 3) */ 



#ifdef SubDivl28 
{ 

scBezFactor( 0x0069, 
..spBe2Factor( 0K094f, 
CsfcBezFactorj 0x4624, 
\fcBe2Factor( 0xb022, 

}• , ff\ 



0,0016093 ), 

0.0363708 ), 

0,2739930 ), 

0.6880269 ) 



/* 
/* 



(226 0) */ 

(226 1) »/ 

(226 2) 

(226 3) */ 



#ifqfef SubDiv256 

{ :1 

'sfcBezFactor( OxOOSf, 

lf::BezFactor( OxOSbd, 

IscBezFactCjr( 0x4467, 

!:^cBezFactor( 0xb27b, 

}' H 

#endilf 



0.0014537 ), 
0.0341368 ), 
0.2672090 ), 
0.6972005 ) 



(227 0) 

(227 1) 

(227 2) */ 

(227 3) */ 



#if4|f SubDiv64 

#3cBezFactor( 0x0055, 

■'s"cBe2Factor( 0x082e, 

scBezFactor( 0x42al, 

scBezFactor( 0xb4da, 

#end if 



0,0013084 ), 
0.0319633 ), 
0.2602730 ), 
0.7064552 ) 



/* 



(228 0) */ 

(228 1) 

(228 2) */ 

(228 3) 



#ifdef SufaDiv256 
{ 

scBezFactor{ Ok004c, 
scBezFactor( 0x07a4, 
scBezFactor( 0x40d0, 
scBezFactor( 0xb73e, 

#endif 



0.0011732 ), 
0.0298514 ), 
0.2531839 ), 
0.7157915 ) 



(229 0) »/ 

(229 1) */ 

(229 2) */ 

(229 3) 



#ifdef SubDivl28 
{ 

scBezFactor( 0x0044, 

scBezFactor( 0x07 le, 

scBezFactor( Gx3ef5, 

scBezFactor( 0xb9a7, 

#endif 



0.0010476 ), 
0.0278020 ), 
0.2459407 ), 
0.7252097 ) 



(230 0) */ 

(230 1) */ 

(230 2) */ 

(230 3) */ 
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n 




} " 


/* 


\ &. xo 




* / 


scBezFactor( 


0KOfd2, 


0. 


.0617981 


)• 


/« 


(216 


1) 




scBezFactor ( 


0K556e, 


0. 


.3337097 




/* 


(216 


2) 




scBezFactorC 


0k99c6, 


0, 


.6006775 


) 


/« 


(216 


3) 





#endif 



#ifdef SubDiv256 
{ 



scEezFactor( 


0K00e7, 


0, 


.0035357 


)^ 


/* 


(217 


0) 




scBesFactorC 


OKOflb, 


0, 


.0590188 


). 


/* 


(217 


1) 




scBesFactor ( 


0-^5411, 


0, 


.3283866 


). 


/* 


(217 


2) 




scrBezFactcrr{ 


02j9beb, 


0. 


.6090589 


} 


/* 


(217 


3) 





#ifdef SubDivl28 
{ 



#endif 



scBe2Factor( 


OxOOdS, 


0, 


0032706 




/* 


(218 


0) 


«/ 


scBezFactor ( 


0K0e68. 


0. 


0562892 




/» 


(218 


1) 


»/ 


scBezFactor( 


0:s52ab, 


0. 


3229222 




/* 


(218 


2) 


*/ 


scBezFactor ( 


0K9el5, 


0. 


6175179 


) 


/* 


(218 


3) 





#ifdef SubDiv256 

{ 13 

,^BezFactor( 0k00c5, 
^=&BezFactor( 0K0db9, 
J^BezFactor( OxSlSb, 
f^BezFdctor( 0s:a045, 





/* 


(219 


0) 






/* 


(219 


1) 


«/ 






(219 


2) 


*/ 


) 




(219 


3) 


»/ 



#ifdif SubDiv64 

{ r 

!^cBezFactor{ 0K00b6, 

l3=BezFactor{ OxOdOd, 

'^ic:BezFactor( 0x4fc2, 

r:^BezFactor( 0Ka279, 
}, :^ 





/* 


(220 


0) 


*/ 


)^ 




(220 


1) 


*/ 


)^ 


/* 


(220 


2) 


*/ 






(220 


3) 





#ifijgf SubDiv256 
{ 



#endif 



scBezFactor ( 


0x00a7, 


0. 


0025555 


)^ 


/» 


(221 


0) 


*/ 


scBezFactor ( 


0s0c64, 


0. 


0484094 




/* 


(221 


1) 


»/ 


scBezFactor ( 


0x4e40, 


0. 


3056708 




/* 


(221 


2) 


»/ 


scBezFactor ( 


0xa4b3, 


0. 


6433643 




/* 


(221 


3) 


*/ 



#ifdef SubDivl28 



#endif 



scBezFactor ( 


0x0099. 


0, 


0023427 


)^ 


/« 


(222 


0) 


»/ 


scBezFactor ( 


OxObbf, 


0. 


0458894 


). 


/* 


(222 


1) 


*/ 


scBezFactor ( 


0x4cb4, 


0. 


2996306 


). 


/* 


(222 


2) 


*/ 


scBezFactor ( 


0xa6f2, 


0. 


6521373 


) 


/-* 


(222 


3) 


*/ 



#ifdef SubDiv256 
{ 



scBezFactor ( 


0x008c, 


0. 


.0021420 






(223 


0) 


*/ 


scBezFactor ( 


OxObld, 


0. 


.0434244 






(223 


1) 


*/ 


scBezFactor ( 


0x4blf, 


0. 


.2934439 




/» 


(223 


2) 


»/ 
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#ifdef SubDiv256 
{ 

scBezFactor( 0x0195. 
scBezFactor( 0x1522, 
scBezFactor ( OKSdfa, 
scBezF actor ( 0xSfa4d. 

}^ 

#endi£ 



)^ 


/« 


(209 


0) 


*/ 


). 


/* 


(209 


1) 


*/ 


). 


/* 


(209 


2) 


*/ 


) 


/» 


(209 


3) 


»/ 



#ifdef SubDivl28 

{ 



scBe2Factor( 


0x017c:, 


0.0058017 


). 


/» 


(210 


0) 


*/ 


scBezFactCir( 


0x1457, 


0.0794578 


)^ 




(210 


1) 


*/ 


scBezFactor( 


OxScdc, 


0.3627419 


)^ 




(210 


2) 


*/ 


scBezFactor( 


0x8d4f, 


0.5519986 


) 




(210 


3) 





#endif 



#ifdef SubDiv256 

{ 



scBezFactor{ 


0x0153, 


0.0054315 




/» 


(211 


0) 


*/ 


scBe2Factor( 


0Kl38f, 


0.0764027 




/* 


(211 


1) 


*/ 


scBezFactor( 


0x5bb5, 


0.3582439 




/» 


(211 


2) 


«/ 


scBezFactor ( 


0x8f57, 


0.5599219 


) 




(211 


3) 





#endif 



#ifyf SubDiv64 

f BcBezFactor ( 
. scBezFactor ( 
,"lcBezFactar( 
^ ScBezFactor ( 



#ifaif SubDiv256 

, ,scEezFactor( 
■^ScBezFactor ( 
f4cBezFactor( 
s'§cBezFactor( 

#end^lf 



0x014c, 0.0050774 

Gxl2c9, 0.0733910 

0x5a86, 0.3536110 

0x9163, 0.5679207 





/* 


(212 


0) 


*/ 




/* 


(212 


1) 


*/ 




/» 


(212 


2) 


*/ 


) 


/» 


(212 


3) 


*/ 



0x0136, 0.0047390 

0x1207, 0.0704235 

0x594d, 0.3488422 

0x9374, 0.5759953 



)^ 


/« 


(213 


0) 


«/ 


)^ 


/» 


(213 


1) 


*/ 


). 


/* 


(213 


2) 


»/ 




/» 


(213 


3) 


»/ 



#ifdef SubDivl28 

{ 



scBezFactor ( 


0x0121, 


0, 


.0044160 


)^ 


/« 


(214 


0) 


»/ 


scBezFactor ( 


0x1147, 


0. 


.0675015 


). 


/* 


(214 


1) 


*/ 


scBezFactor { 


0x580c, 


0, 


.3439364 


). 


/» 


(214 


2) 


*/ 


scBezFactor ( 


0x95Sa, 


0. 


.5841460 


) 




(214 


3) 


»/ 



#eiidif 



#ifdef SubDiv256 

{ 



scBezFactor ( 


OxOlOd, 


0.0041080 






(215 


0) 


»/ 


scBezFactor ( 


Ox 108b, 


0.0646260 


)^ 




(215 


1) 


*/ 


scBezFactor ( 


Ox56cl, 


0.3388926 


). 


/» 


(215 


2) 


»/ 


scBezFactor ( 


0x97a5, 


0.5923733 


) 


/* 


(215 


3) 


*/ 



#endif 



#ifdef SubDiv32 

{ 
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#endif 



#ifdef SubDivl28 



scBe2Factor( 


0:k0267, 


0, 


.0093856 


)^ 


/* 


(202 


0) 


*/ 


scBezFactorC 


OxlafS, 


0. 


,1053271 






(202 


1) 


*y 


scrBezFactor( 


0s:64dd. 


0. 


,3940015 


). 


/* 


(202 


2) 


»/ 


scBezFactor ( 




0. 


.4912858 


) 




(202 


3) 





}. 

#endif 



#ifdef SubDiv256 

{ 



scBe2Factor( 


0k0245, 


O. 


008B738 


)^ 


/* 


(203 


0) 


«/ 


scBezFactor ( 


Ok la la. 


0. 


1019645 


)^ 


/* 


(203 


1) 




scBezFactor ( 


0x63fa, 


O. 


3905434 




/* 


(203 


2) 




scBezFactor ( 


0x7fa5, 


0. 


4986183 


) 


/» 


(203 


3} 





#endif 



#ifdef SubDiv&4 
{ 

scBezFactor( 0k0225, 
scBezFactor ( Ok 1940, 
scBezFactor ( 0s630f, 
CicBezFactor ( 0x8 18a, 

}' 

#ifdSf SubDiv256 

{ ;^ 

^^'scBezFactor ( 0k0206, 

ScBezFactor ( 0x1868, 

f§cBezFactor( 0x62 Ic, 

"scBezFactor( 0x8374, 



#if|yf SubDivl28 

||cBezFactor{ OxOleS, 

^|cBezFactor( 0x1793, 

^-icBezFactor( 0x6120, 

scBezFactor( 0x8563, 

#endif 



0. 


.0083809 




/* 


(204 


0) 


*/ 


0, 


.0986366 


)^ 


/* 


(204 


1) 


«/ 


0. 


.3869591 




/» 


(204 


2) 


»/ 


0. 


.5060234 


) 


/» 


(204 


3) 


*/ 



0- 


.0079066 




/* 


(205 


0) 


«/ 


0. 


,0953445 




/» 


(205 


1) 


*/ 


0, 


.3832474 




/* 


(205 


2) 


*/ 


0. 


.5135015 


) 


/* 


(205 


3) 


*/ 



0 


.0074506 


)^ 




(206 


0) 


»/ 


0 


.0920892 




/» 


(206 


1) 


«/ 


0 


.3794074 




/» 


(206 


2) 


*/ 


0 


.5210528 


) 


/» 


(206 


3) 


»/ 



#ifdef SufaDiv256 

{ 



scBezFactor { 


0x0 Icb, 


0, 


.0070124 


)^ 


/» 


(207 


0) 


*/ 


scBezFactor ( 


0xl6c0, 


0. 


.0888718 


). 


/» 


(207 


1) 


*/ 


scBezFactor ( 


0x601c, 


0. 


.3754379 


). 


y* 


(207 


2) 


*/ 


scBezFactor ( 


0x8757, 


0. 


.5286779 


) 


/» 


(207 


3) 





#endif 



#ifdef SubDivie 
{ 



scBezFactor ( 


OxOlbO, 


0, 


.0065918 






(208 


0) 


«/ 


scBezFactor ( 


Oxl5fO, 


0. 


.0856934 


)^ 




(208 


1) 


»/ 


scBezFactor ( 


0x5f 10, 


0, 


.3713379 


). 




(208 


2) 


*/ 


scBezFactor ( 


0x8950, 


0. 


.5363770 


) 


/* 


(208 


3) 


*/ 



#endif 
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scBesFactorC 0k2223, 

scBezFactor( Ox6adO, 

scB8zFactor( 0K6f69, 

#endif 



#ifdef SubDiv256 
{ 

scBesFactor ( 
scBezFactor( 
scBszFactor ( 
scBazFactor( 

#endif 



#ifdef SubDiv256 
{ 

f §cBe2Factor{ 
ricBe2Factor( 
licBezFactar ( 
licBesFactor( 

}' fy 

#end4;f 

ly 

#ifd^f SubDivl28 

{ fi 

;icBezFactar ( 
^scBezFactar ( 
iicBezFactor ( 
v,^cBezFactor( 
si 



#if|if SubDiv256 
{ 

scBezFactor ( 
scBezFactor( 
scBezFactor ( 
scBezFactor ( 

#endif 



#i£def SubDiv32 

scBezFactor ( 
scBezFactor ( 
scBezFactor ( 
scBezFactor { 

}^ 

#endif 



#ifdef SubDiv256 
{ 

scBezFactor { 
scBezFactor ( 
scBezFactor ( 
scBezFactor ( 



0x0376, 
0x2137, 
0K6a2d, 
0k7124, 



0k0322, 
0Klf64, 
0x68d0, 
0K74a8, 



0K02fa, 
0Kle7d, 
0k6816, 
Ok7671, 



0K02d3, 
0sld98, 
0k6754, 
0K783f , 



0s:02ae, 
OxlcbS, 
0K668a, 
0s7al2, 



0k0289, 
OzlbdS, 
0x65fa7, 
0x7be9. 



0.1333480 ), 
0.4172502 ), 
0.4351964 ) 



0.0135291 

0.1297465 ), 

0.4147634 )r 

0.4419610 ) 



0.0128746 ), 

0.1261711 ), 
0.4121590 

0.4487953 ) 



0.0122415 ), 
0,1226229 ), 
0.4094358 ), 
0.4556997 ) 



0.0116296 ), 
0.1191030 ), 
0.4065928 ), 
0.4626746 ) 



0.0110384 
0.1156123 ), 
0.4036290 ), 
0.4697203 ) 



0,0104675 
0.1121521 
0.4005432 ), 
0.4768372 ) 



0.0099167 ), 
0.1087233 ), 
0.3973344 
0.4840255 ) 



/* 


(194 


1) 


»/ 




(194 


2) 


*/ 


/» 


(194 


3) 


*/ 





(195 


0) 


»/ 


y* 


(195 


1) 






(195 


2) 


*/ 




(195 


3) 


*/ 



/* 


(196 


0) 


*/ 


/» 


(196 


1) 


*/ 


/» 


(196 


2) 


*/ 


y* 


(196 


3) 


»/ 



/» 


(197 


0) 


*/ 


/* 


{197 


1) 


»/ 


/» 


(197 


2) 


»/ 


/» 


(197 


3) 





/* 


(198 


0) 


»/ 


/* 


(198 


1) 


*/ 


/* 


(198 


2) 


*/ 


/* 


(198 


3) 





/» 


(199 


0) 


*y 


/* 


(199 


1) 


«/ 


/« 


(199 


2) 


*/ 


/» 


(199 


3) 


»/ 



/» 


(200 


0) 




/* 


(200 


1) 




/* 


(200 


2) 




/» 


(200 


3) 





/* 


(201 


0) 


*y 


/» 


(201 


1) 


*/ 


/» 


(201 


2) 


*/ 


/* 


(201 


3) 


»/ 



#ifdef SubDiv64 
{ 

scBezFactor ( 0s034b, 

scBezFactor ( 0x204c, 

scBezFactor ( 0x6983, 

scBe2Factor{ 0x72e4, 

#endif 
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#ifdef SubDiv256 
{ 

scBezFdctor( 0k0503, 
scBezFactor( 0x28cl, 
scBezFdctorf 0K6e73, 
scBezFactor( 0k63c:7, 

}. 

#endif 



0,0195807 ). 
0.1591993 
0.4314532 ), 
0,3897669 ) 



(187 0) 

(187 1) */ 

/* (187 2) »/ 

/* (187 3) */ 



#ifdef SubDiv64 
{ 

scBezFactor( 0x04cc, 0.0187416 ), /* (188 0) */ 
scBe2Factor( 0s:27cb. 0,1554451 ), /* (188 1) */ 
scBezFactor( 0s:6e04, 0.4297600 ), /* (188 2) */ 
scBe2Factor( 0x6563, 0.3960533 ) (188 3) */ 

}' 

#endif 



#ifdef SubDiv256 
{ 

scBezFactor( 0x0496, 
scBezFactorC 0x26d6, 
scBe2Factor( 0x6d8e, 
scBezFactor( 0x6704, 

}^ 

#endif 



0.0179269 ), 
0.1517095 ), 
0.4279566 ), 
0,4024070 ) 



(189 0) */- 
(189 1) */ 
(189 2) 
(189 3) 



#ifcyF SubDivl28 

^WpfiezFactor( 0x0463, 
5ScBezFactor( 0x25^2, 
^#Be2Factor( 0x6dll, 
'mfeBezFactorC Ox 68a 8, 

}' iJ 



0.0171361 ), 
0.1479936 ), 
0.4260421 ), 
0.4088283 ) 



{190 0) */ 

(190 1) */ 

(190 2) */ 

(190 3) »/ 



#ifd^f SufoDiv256 

{ n 

:g%:BezFactor( 0x0430, 
MBezFactor( 0x24f0, 
p#BezFactor( Ox 5c 8c, 
scBezFactor{ 0x6a52, 

}' '^^ 
#erndl.^ 



0.0163689 ), 
0.1442984 ), 
0.4240152 ), 
0.4153175 ) 



(191 0) */ 

(191 1) */ 

(191 2) */ 

(191 3) */ 



#ifdef SubDiv4 
{ 

scBezFaotor( 0x0400, 

scBezFactor( 0x2400, 

scBezFactor( 0x6c00, 

scBezFactor( 0x6c00, 

#endif 



0.0156250 ), 
0.1406250 ), 
0.4218750 ), 
0,4218750 ) 



(192 0) */ 

(192 1) */ 

(192 2) */ 

(192 3) 



#ifdef SubDiv256 
{ 

scBezFactor( 0x03d0, 
scBezFactor( 0x2310, 
scBezFactor( 0x6b6c, 
scBezFactor( 0x6db2, 

}^ 

#endif 



0.0149040 ), 
0.1369745 ), 
0.4196203 ), 
0.4285012 ) 



(193 0) */ 

(193 1) */ 

(193 2) »/ 

(193 3) */ 



#ifdef SubDivl28 
{ 

scBezFactor( 0x03a2, 



0.0142055 ), /* (194 0) */ 
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#endif 



#ifdef SubDiv64 
{ 

scBezFactor( Ox06b2, 
scBezFactor( 0K2f97^ 
scBezFactor( 0x70b8^ 
scBezFactor( 0x58fd, 

}. 

#endif 



0.0261650 
0.1859093 ), 
0.4403114 
0.3476143 ) 



^* (180 0) */ 
/* (180 1) */ 
{180 2) */ 
(ISO 3) */ 



#ifdef SubDiv256 
{ 

scBezFactor( 0sO66f, 
scBezFactorf 0s2s9b^ 
scBezFdctor( 0x7079, 
scBezFactor( Ok 5a 7b, 

}. 

#endif 



0.0251457 ), 
0.1820549 
0.4393592 ), 
0.3534401 ) 



/» (181 0) */ 
(181 1) */ 
(181 2) */ 

^» (181 3) */ 



#ifdef SubDxvl28 
{ 

scBezFactor( 0K062e, 0.0241532 ). 

scBezFactor( 02£2d9f, 0.1782117 ), 

scBezFactor( 0k7034, 0.4383044 ), 

scB«zFactor( OxSbfd, 0.3593307 ) 

}' n 

#endff 



(182 0) «/ 

/* (182 1) */ 

/* (182 2) 

/* (182 3) »/ 



#ifde£ SubDiv256 
{ 

;;3bBezFactor( 0x0 5ef, 
lsbBezFactor( 0K2ca4, 
vapBezFactor( 0K6fe8, 
^BezFactor( OjrSdBS, 
}, U 



0.0231872 ). 
0.1743806 ), 
0.4371459 ), 
0.3652863 ) 



(183 0) */ 

/* (183 1) */ 

(183 2) */- 

^* (183 3) */ 



#ifd^f SubDiv32 

^BezFactor( 0x05b2, 
BcBezFactor( 0x2baa, 
y::BezFactcr( 0K6f96, 
ii;Be2Factor( OnSfOe, 

#endif 



0.0222473 ), 
0.1705627 
0.4358826 
0.3713074 ) 



(184 0) 

(184 1) */ 

(184 2) 

(184 3) »/ 



#ifdef SubDiv256 
{ 

scBezFactor( 0x0576, 
scBezFactor( 0x2ab0, 
scBezFactor( 0x6f3c, 
scBezFac:tor{ 0x609c, 

}. 

#endif 



0,0213332 ), 
0.1667592 ), 
0.4345134 ), 
0.3773943 ) 



/* (185 0) */ 

/* (185 1) */ 

/* (185 2) »/ 

/* (185 3) */ 



#ifdef SubDivl28 

{ 

scBezFactor( 
scBezFactor( 
scBezFactor ( 
scBezFactor( 

}. 

#endi£ 



0x053b, 0.0204444 

Dx29b8, 0.1629710 

0x6edb, 0.4330373 

0x6230, 0.3035473 



/* (186 0) */ 

). /* (186 1) */ 

). /* (186 2) */ 

) y* (106 3) »/ 
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scBezFactor{ Ox?lcl, 0.4443626 ). 

scBezFactor( 0K4da4, 0.3032951 ) 

'h 

#endif 



/* (172 2) */ 
/* (172 3) */ 



#ifdef SubDiv256 

{ 

scBezFactor( GsOSbg, 
scBe2Factor( Ox368e, 
scBe2:Factar( 0K71b6, 
scBezFactor( 0x4f01, 

}^ 

#endif 





/* 


(173 


0) 


«/ 




/* 


(173 


1) 


*/ 






(173 


2) 


*/ 






(173 


3) 


*/ 



#ifdef SubDivlze 
{ 



#endif 



scBeF2Factor{ 


0k0869, 


0 


.0328641 




/« 


(174 


0) 


*/ 


scBezFactor( 


0K358e, 


0 


.2092080 


/* 


(174 


1) 


»/ 


scBezFactor ( 


0K71a5, 


0 


.4439292 




/« 


(174 


2) 


»/ 


scBazFactor( 


0x5062. 


0 


.3139987 


) 


y» 


(174 


3) 


*/ 



#ifdef SubDiv256 
{ 



0x081b. 


0. 


0316764 






(175 


0) 


*/ 


0x348f , 


0. 


2053097 






(175 


1) 
2) 


»/ 


0x7 18d. 


0. 


4435703 






(175 


*/ 


0x51c7, 


0. 


3194436 


) 


/» 


(175 


3) 


»/ 



#ifWf SubDivl6 
{ 

^scBezFactor( 0x07d0, 

"^icBe2Factor( 0x3390. 

?2scBesFactor( 0x7170. 

r|cBezFactor( 0x5330. 





/* 


(176 


0) 


»/ 




/* 


(176 


1) 


*/ 




/* 


(176 


2) 


»/ 


) 


/» 


(176 


3) 


*/ 



#if^5f SubDiv256 
{ 



#endif 



McBezFactor( 


0x0785, 


0. 


.0293874 


). 


/» 


(177 


0) 


»/ 


scBezFactor ( 


0x3291. 


0, 


,1975281 






(177 


1) 


*/ 


scBezFactor ( 


0x714b. 


0. 


.4425629 




/* 


(177 


2) 


*/ 


scBezFactor{ 


0x549d. 


0. 


.3305216 


) 




(177 


3) 


»/ 



#ifdef SiibDivl28 
{ 

sc:BezFactor{ Ox073d. 
scBezFactor( 0x3192. 
scBezFactor( 0x7121. 
scBezFactor( 0x560e. 

}^ 

#endif 





/» 


(178 


0) 


»/ 






(178 


1) 


»/ 




/» 


(178 


2) 


»/ 


) 




(178 


3) 


*/ 



#ifdef SubDiv256 
{ 

scBezFactor( 0x06f7. 

scBezFactor( 0x3095, 

scBe2Factor( 0x70ef. 

scBezFactorC 0x5783. 



0.1897736 





/» 


(179 


0) 


*/ 






(179 


1) 


»/ 




/» 


(179 


2) 


*/ 


) 




(179 


3) 
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{ 

scBszFactor( Ox0b7f. 

scBezFac:tor( 0x3e8c, 

scBezFactor( 0x7168, 

scBezFactor( 0x448b> 



0.0449163 ), 
0.2443251 ), 
0,4430071 
0.2677515 ) 



/* 



(165 0) */ 

(165 1) */ 

(165 2) */ 

(165 3) */ 



#ifdef SubDivl28 
{ 

scBe2Factor{ OxOblf, 
scBezFactor( 0x3d8d, 
scBezFactor{ 0x7186, 
scBezFactor( 0x45cc, 

}^ 

#endif 



0.0434518 ). 

0.2404332 ), 

0.4434657 ), 

0.2726493 ) 



/» 



(166 0) */ 

(166 1) */ 

(166 2} */ 

(166 3) */ 



#ifdef SubDiv256 
{ 

scBezFactor( OxOacl, 

scBezFactor( 0x3c8d, 

scBezFactor( 0x7 19f, 

scBezFactor( 0x4711, 

#endif 



0.0420194 ), 

0.2365363 ), 

0,4430378 ), 

0,2776064 ) 



/* 
/» 



(167 0) 
(167 1) 
(167 2) */ 
(167 3) */- 



#if^f SubDiv32 

3^cBazFactor ( 0x0a66, 

|}icBezFactor( 0x3fo8e, 

f^cBe2Factor( 0x7 lb2, 

' 5oBezFac;tor{ 0x485a, 



0.0406189 ), 
0.2326355 ), 
0.4441223 ), 
0,2826233 ) 



(168 0) */ 

(168 1) 

(168 2) */ 

(168 3) */ 



#ird^f SiibDiv256 

{ ^ 

ricBezFactor( OxOaOc, 
cBezFactor ( 0x3a8e, 
. scBezFact or ( Ox 7 lbs , 
i^cBezFactor( 0x49a6, 

}. M 

#eni4f 



0,0392498 ), 

0.2287318 ), 

0.4443181 ), 

0,2877002 ) 



(169 0) */ 

(169 1) */ 

(169 2) */ 

(169 3) */ 



#ifdef SubDivl28 
{ 



#endif 



scBezFdCtor( 0x09b4, 
scBezFactor( 0x398e, 
scBezFactor( 0x7 lc5, 
scBezFac t or ( 0x4af7, 



0.0379119 ), 

0.2248263 ), 

0.4444242 ), 

0.2928376 ) 



/* 



(170 0) */ 

(170 1) »/ 

(170 2} 

(170 3) */ 



#ifdef SubDiv256 
{ 

sc:BezFactor( 0x095e, 
scBezFactor( 0x388e, 
scBezFactor( 0x7 lc6, 
scBezFactor( 0s4c4c, 

}^ 

#endif 



0.0366047 ), 
0.2209201 ), 
0.4444394 ), 
0.2980358 ) 



(171 0) »/ 

(171 1) »/ 

(171 2) */ 

{171 3) *y 



#ifdef SubDiv64 
{ 

scBezFactor ( 0x090b, 
scBezFactor( 0x378e, 



0.0353279 ), 
0,2170143 ), 



(172 0) 
/* (172 1) *y 
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#ifdef SubDivl28 

{ 

scBazFact or ( Ox OeSc , 
scBezFactorC 0k4576, 
scBezFactor( 0s6ffd, 
sc;BezFactor( 0K3c2f, 

#endif 



0.0560994 
0.2713380 ), 
0.4374533 
0.2350993 ) 



(158 0) »/ 

(158 1) 

(158 2) */ 

(158 3) 



#ifdef SubDiv256 
{ 

scBe2Factor( OxOded, 

scBezFactorC 0K447b, 

scBezFactor( Ok7041, 

scBe2Factor( Ok 3d 55, 

#endxf 



0.0543995 ), 
0.2675112 ), 
0.4304977 ), 
0.2395915 ) 



(159 0) »/ 

(159 1) 

(159 2) 

(159 3) */ 



#ifdef SubDivS 
{ 

sc:BezFactor( 0x0d80^ 

scBezFactor( 0x4380, 

scBe2Factor( 0x7080, 

scBezFactor( 0K3e80, 



0.0527344 
0.2636719 
0.4394531 ), 
0.2441406 ) 



/« 



(160 0) */ 

(160 1) 

(160 2) */ 

(160 3) 



#illbf SubDiv25& 

{ rij 

; .^cBezFac:tor( 0x0dl5, 

'^%cBe2Factor( 0x4283, 

l^=fecBezFactor( 0x70b9, 

^.:„fecBezFactor( 0x3fad, 



0.0511035 ), 
0.2598211 

0.4403284 ), 

0.2487469 ) 



/* 



(161 0) »/ 

(161 1) */ 

(161 2) 

(161 3) 



#if4^f SubDivl28 

{ .1 

^'4cBezFactor{ OxOcac, 0.0495067 ). 

|nScBe2Factor( 0x4186, 0.2559600 ), 

f^cB©zFactDr( 0x70ed, 0.4411225 ). 

;r^cBezFactor( Ox40df, 0.2534108 ) 

} ' '""^ 
#end if 



(162 0) */- 

(162 1) */ 

(162 2) */ 

(162 3) 



#ifdef SubDiv256 
{ 

scBezFactor( 0x0c46, 
scB6fzFactar( 0x4088, 
scBezFactor( 0x7 11c, 
scBerzFactor( 0x4214, 

}. 

#endif 



0.0479434 ), 
0.2520896 ), 
0.4418344 ), 
0.2581326 ) 



(163 0) */ 

(163 1) 

(163 2) */ 

(163 3) */ 



#ifdef SubDiv64 
{ 

scBe2Factor{ OxObel, 

scBezFactor( 0x3f8a, 

scBezFactor( 0x7145, 

scBezFactor( Ox434e, 

#endif 



0.0464134 ), 
0.2482109 ), 
0.4424629 ), 
0.2629128 ) 



(164 0) */ 

(164 1) */ 

(164 2) */ 

(164 3) */ 



#ifdef SubDiv256 



File: Work\CrtFrt\Stonehnd\Scbezble . cpp 



scBezFactor( 0s337f, 
#endif 



0.2011657 



/* (150 3) */ 



#ifdef SubDiv256 

{ 

scBezFactor { 0Klia9, 
scBezFactor( 0x4c35^ 
scBe2Factor( 0x6d97, 
scBezFactor{ 0x3489, 

#endif 





/* 


(151 


0) 




)^ 


/» 


(151 


1) 


»/ 


)^ 


/» 


(151 


2) 




) 




(151 


3) 





#ifdef SubDiv32 
{ 

scBezFact or { Ox 1 1 2a , 

scBezFactor( 0K4fo42, 

scBezFactor( 0x6dfe, 

scBe2Factor( 0x3596, 

#end if 







(152 


0) 


*/ 


)^ 




(152 


1) 


«/ 




/» 


(152 


2) 


*/ 


) 


/* 


(152 


3) 


*/ 



#ifdef SubDiv256 
{ 

scBezFactor( OxlOac, 
scBezFactor( 0x4a4d, 
r J scBezFactor( 0x6e5f, 
"I scBezFactor{ 0x36a6, 

#dhliif 



#iMef SubDivl28 

{ w 

'=^J scBezFactor{ 0x1031. 

^.^scBezFactor( 0x4957, 

- ^ scBezFactor ( 0x6ebc , 

a scBezFactor ( 0x37ba, 



)^ 




(153 


0) 


*/ 


). 


/» 


(153 


1) 


*/ 


)^ 


/» 


(153 


2) 


»/ 


} 




(153 


3) 







/* 


(154 


0) 


»y 






(154 


1) 


*/ 






(154 


2) 


»/ 


) 




(154 


3) 


»/ 



#ii£def SufaDiv256 



GxOfbB, 


0. 


0614107 




/» 


(155 


0) 


*/ 


0x4861, 


0, 


2827325 






(155 


1) 


*/ 


0x6fl3, 


0. 


4338965 






(155 


2) 


«/ 


0x38d2, 


0. 


2219602 


) 




(155 


3) 


»/ 



#endif 



#ifdef SubDiv64 
{ 

scBezFactor ( 0x0f42, 

scBezFactor( 0x4769, 

scBezFactor ( 0x6f65, 

scBezFactor ( 0x39ed, 

#endif 





/« 


(156 


0) 


*y 




/* 


(156 


1) 






/» 


(156 


2) 


»/ 


) 


/» 


(156 


3) 


*/ 



#ifdef SufoDiv256 
{ 

scBezFactor ( OxOece, 
scBezFactor ( 0x4670, 
scBezFactor ( 0x6fb4, 
scBezFactor ( 0x3b0c, 

}. 

#endif 





/« 


(157 


0) 




)^ 




(157 


1) 








(157 


2) 


*/ 


) 


/» 


(157 


3) 


*/ 
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scBezFactor( 
scBezFactor( 
scBezFactor{ 
scBezFactor ( 



#ifdef SubDiv256 
{ 

scBezFactor ( 
scBezFactor ( 
scBezFactor ( 
scBezFactor ( 

#endif 



#ifdef SubDivl28 

{ tl 

f SI scBezFactor ( 
if scBezFactor ( 
in scBezFactor ( 
fU scBezFactor ( 

#eMif 



#iiaef SubDiv64 
{ 

scBezFactor ( 
scBezFactor ( 
scBezFactor ( 
scBezFactor ( 

#endif 



#ifdef SubDiv255 
{ 

scBezFactor ( 
scBezFactor ( 
ScBezFactor ( 
scBezFactor ( 

#endif 



#ifdef SubDivl28 
{ 

scBezFactor ( 
scBezFactor ( 
scBezFactor ( 



0K1604, 
0x5396, 
0k69c6, 
0x2c9e, 



0Kl4de, 
0x51c8, 
0K6ad4, 
0s2e84, 



0xl44f, 
OsSOde, 
0x6b55, 
0s2f7c, 



0x1338, 
0x4f05, 
0x6c4a, 
0x3177, 



0Kl2bl, 
0x4el7, 
0x6cbd, 
0x3279, 



0xl22c, 
0x4d26, 
0x6d2d, 



0.0860034 ), 
0.3265083 ), 
0.4131920 ), 
0.1742963 ) 



0,0837402 ), 
0.3229980 ), 
0.4152032 ), 
0.1779785 ) 



0.0815172 ), 

0.3194591 ), 

0.4173115 ), 

0,1817122 ) 



0.0793338 ), 

0.3158927 ), 

0.4192758 ), 

0.1854978 ) 



0.0771897 ), 
0.3122998 ), 
0.4211749 ), 
0.1893355 ) 



0.0750847 ), 
0.3086815 ), 
0.4230080 ), 
0.1932259 ) 



0.0730183 ), 
0.3050389 ), 
0.4247738 ), 
0.1971691 ) 



0.0709901 ), 
0.3013730 ), 
0.4264712 ), 





/ 1 >1 o 

( 14 J 




*/ 


/« 


(143 


1) 


«/ 


/* 


(143 


2) 


*/ 


/* 


(143 


3) 


*/ 





(144 


0) 


«/ 


/» 


(144 


1) 


»/ 


/» 


(144 


2) 


»/ 




(144 


3) 


*/ 



/* 


(145 


0) 


*/ 


/* 


(145 


1) 


*/ 


/* 


(145 


2) 


•/ 


/* 


(145 


3) 


*/ 



/* 


(146 


0) 


*/ 


/* 


(146 


1) 


*/ 


/* 


(146 


2) 


*/ 


/» 


(146 


3) 


*/ 





(147 


0) 


»/ 


/» 


(147 


1) 


*/ 


/« 


(147 


2) 


*/ 


/* 


(147 


3) 





/* 


(148 


0) 




/» 


(148 


1) 


*/ 


/» 


(148 


2) 


*/ 


/* 


(148 


3) 





/* 


(149 


0) 




/» 


(149 


1) 


*/ 


/» 


(149 


2) 


»/ 


/* 


(149 


3) 







(150 


0) 


«/ 




(150 


1) 




/* 


(150 


2) 





#ifdef SubDivie 
{ 

scBezFactor ( 0x1570, 
scBezFactor ( Ox52b0, 
scBezFactor ( 0x6a50, 
scBezFactor ( 0s2d9Q, 

}. 

#endif 



#ifSef SubDiv256 
{ 

« scBezFactor ( 0xl3c2, 
fi scBezFactor ( 0x4ff2, 
; I scBezFactor ( 0x6bd2, 
. 1 scBezFactor { 0x3078, 

}M 

#eMif 
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#ifdef SubDiv32 
{ 

scBesFactor{ OnlaSe, 
scBezFactor( 0z59a6, 
scBe2Fdctor( 0K659a, 
scBe2Factor( Ok 2 6 62, 

}. 

#endif 



0.1029968 ), 
0.3501892 
0.39688U 
0.1499329 ) 



(136 0) */ 

(138 1) */ 

(136 2) */ 

(136 3) 



#ifdef SubDiv255 
{ 

scBezFactor( 0sl9b6, 
scBezFactor( 0K58cf, 
scBe2Factor( 0K663d, 
scBe2:Factor( 0x273c, 

#endif 



0.1004433 
0.3469092 
0.3993829 ), 
0,1532646 ) 



/* 



(137 0) */ 

(137 1) */ 

(137 2) */ 

(137 3) */ 



#ifdef SubDivl28 
{ 

scBezFactor{ 0k1912^ 
scBezFactor( 0K57f5^ 
scBezFactor( 0K66de, 
scBe2Factor( 0x2819, 

}^ 

#endif 



0.0979323 
0.3435931 ), 
0.4018292 ), 
0.1566453 ) 



(138 0) */ 

(138 1) */ 

(138 2} */ 

(138 3) 



#iflef SubDiv256 

{ [fl 

■^:BScBezFactor( Ok1870, 

^ jscBezFactor( 0x571a, 

QscBezFactor( 0K677a, 

[ = iscBe2Factor( 0s28fa, 

#enaif 



0.0954636 
0.3402420 
0.4042191 ), 
0.1600754 ) 



(139 0) *^ 

(139 1) */ 

(139 2) */ 

(139 3) */ 



#if4ef SubDiv64 

■"-^scBezFactor( 0xl7dl, 
lyscBezFactor( 0k563c, 
i^scBezFactctr( 0k6813, 
lIscBezFactorC 0s29de, 



0.0930367 
0.3388568 
0.4065514 ), 
0.1635551 ) 



/* 



(140 0) */ 

(140 1) */ 

(140 2) */ 

(140 3) 



#ifdef SubDiv256 
{ 

scBe2Factor( 0k1734, 
scBesFactor( 0x555c. 
scBezFactor( 0K68a8, 
scBe2Factor( 0K2ac6, 

}. 

#endif 



0.0906512 
0.3334388 ), 
0.4088250 
0.1670850 ) 



/* 
/* 
/» 



(141 0) */ 

(141 1) */ 

(141 2) */ 

(141 3) */ 



#ifdef SubDivl28 
{ 

scBezFactor( 0Kl69b. 0.0883069 ). 

scBezFactor( 0K547a, 0.3299890 ). 

scBezFactor( 0^6939, 0.4110389 ). 

scBezFactor( 0s2bb0, 0.1706653 ) 

#endif 



/» 



(142 0) */ 

(142 1) */ 

(142 2) */ 

(142 3) */ 



#ifdef StibDiv256 
{ 
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#6ndif 



#ifdef SubDiv256 
{ 

scBe2Factor{ 0Hlf41, 
scBezFactorC Ox5f3e, 
scBe2Factor( 0x60be^ 
scBezFactor( 0s20cU 

}. 





/* 


(129 


0) 








(129 


1) 




)^ 


/» 


(129 


2) 


»/ 


) 




(129 


3) 





#ifdef SubDivl28 
{ 

scBezFactor( OxleSS^ 
scBezFactor( OsBeZa, 
scBezFactor( 0k6179, 
scBezFactor( Ok 2 186, 

}^ 

#endif 





/* 


(130 


0) 


*/ 


). 


/* 


(130 


1) 


*/ 


). 


/« 


(130 


2) 


«/ 




y« 


(130 


3) 


#/ 



#ifdef SubDiv256 
{ 

scBezFactorC Oxldcd, 
scBe2Factor( 0K5db2, 
scBezFactor ( 0k6232, 
ir^i scBezFactor{ 0x224d, 





/« 


(131 


0) 


*/ 






(131 


1) 






/« 


(131 


2) 


»/ 


) 




(131 


3) 





#^§ief SubDiv64 

y scBezFactor( Ok Id 17, 
scBezFactor( 0x5ce8, 

fi.-:^ scBezFactor( Os62e7, 
scBezFactor( 0k2318, 

}^ 



0.3629265 





/« 


(132 


0) 


*/ 


). 




(132 


1) 


*/ 






(132 


2) 


*/ 






(132 


3) 


*/ 



#il4lief SubDiv256 

scBezFactor( 0slc65, 
!,f scBezFactor( OxSclb, 
scBezFactor( 0k6399, 
scBezFactor( 0x23e5, 

}. 

#endif 



0.3598017 







(133 


0) 




). 




(133 


1) 




}. 


/» 


(133 


2) 




) 


/» 


(133 


3) 





#ifdef SubDivl28 
{ 

scBezFactor( OKlbbS, 
scBezFactor{ 0K5b4c, 
scBezFactor ( 0x6447, 
scBezFactor( 0s24b6, 

}. 

#endif 





/* 


(134 


OJ 


«/ 






(134 


1) 






/» 


(134 


2) 


«/ 


) 




(134 


3) 





#ifdef SubDiv256 
{ 



#endif 



OKlbOS, 


0. 


1055933 




/» 


(135 


0) 


»/ 


Qs5a7a, 


0. 


3534320 




/» 


(135 


1) 


*/ 


0K64f2, 


0. 


3943250 




/» 


(135 


2) 


*/ 


0x258a, 


0, 


1466498 


) 


/* 


(135 


3) 


»/ 
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scBe2Fdctor( 0x64f2, 0.3943250 /» (121 1) */ 

scBe2Factor( 0s5a7a, 0.3534320 ), /« (121 2) */ 
scBezFactor( 0xlb08, 0.1055933 ) /* (121 3} «/- 

}. 

#endif 



#ifdef SubDivl28 
{ 

scBesFactor ( 0s24b6, 
scBe2Factor{ 0x6447, 
scBezFactor( 0K5b4c, 
scBezFactori OxlbbS, 

#endif 



0.1434150 
0,3917155 
0.3566365 ). 
0.1082330 ) 



(122 0) 

(122 1) */ 

(122 2) »/ 

(122 3) 



#ifdef SubDiv256 
{ 

scBe2Factor( 0x23e5, 
scBezFactor( 0x6399. 
scBezFactorf Ox 5c: lb, 
scBezFactor( 0xlc&5, 

}. 

#endif 



0.1402281 
0.3890539 
0.3598017 ), 
0,1109163 ) 



(123 0) «/ 

(123 1) */ 

(123 2) */ 

(123 3) */ 



#ifdef SubDiv64 

{ 

scBezFactor{ 0x2318, 
scBezFactor( 0x62e7, 
\J scBezFactor( Ox See 8, 
fn scBezFac:tor( Ox Id 17, 

}€li 



0.1370888 ), 

0.3863411 ), 

0.3629265 ), 

0.1136436 ) 



(124 0) »/ 

(124 1) */ 

(124 2) */ 

(124 3) 



#Mdef SubDiv256 

{ 

^■^^^ sc:Be2Factor( QK224d, 
^ scBezFactor( 0x6232, 
f3 scBezFactor( 0x5db2, 
;i scBezFactor( Oxldcd, 

}.;^ 



0.1339967 ), 

0,3835782 ), 

0.3650098 ), 

0.1164153 ) 



/» 



(125 0) 

(125 1) »/ 

(125 2) */ 

(125 3) 



#i¥aef SubDivl28 

{13 

scBezFactorC 0x2186, 
scBezFactor( 0x6179, 
scBezFactor( 0x5e7a, 
scBezFactor( OxleSS, 

}. 

#endif 



0,1309514 ), 
0.3807664 ), 
0.3690505 ), 
0.1192317 ) 



/« 



(126 0) 

(126 1) */ 

(126 2) */ 

(126 3) */ 



#ifdef SubDiv256 
{ 

scBezFactorC 0x20cl, 0.1279526 ). 
scBezFactor ( 0x60be, 0.3779066 ). 

scBezFactor( 0x5f3e, 0.3720476 ). 
scBe2Factor( 0xlf4i, 0.1220931 ) 

}. 

#endif 



(127 0) 

(127 1) */ 

(127 2) *y 

(127 3) */ 



#ifdef SubDiv2 
{ 

scBe2Factar( 0x2000, 

scBezFactor( 0x6000, 

scBezFactor( 0x6000, 

scBezFactor( 0x2000, 



0.1250000 ), 
0.3750000 ), 
0.3750000 ), 
0.1250000 ) 



/* 



(128 0) */ 

(128 1) */ 

(128 2) 

(128 3) */ 
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#ifdef SvibDivl28 
{ 

scBezFactor{ 0K2bb0^ 
scBezFactorC 0k6939, 
scBezFactox-^ ( 0x547a, 
scBe2Factor( Ok 169b, 

}. 





/» 


(114 


0) 






/» 


{114 


1) 


«/ 




/« 


(114 


2) 


*/ 


) 


/» 


(114 


3) 


*/ 



#ifdef SubDiv256 
{ 

scBezFactor( Qs2ac6, 
scBesFactor( 0x68a8, 
scBezFactor( 0k555c, 
scBesFactor( 0x1734, 

}. 

#end if 



0.4088250 





/« 


(115 


0) 


*/ 


)^ 


/» 


(115 


1) 


*/ 




/» 


(115 


2) 


»/ 


) 


/» 


(115 


3) 


*/ 



#ifdef SubDiv64 
{ 



#endif 



scBezFactor ( 


0x29de, 


0 


1635551 


)^ 


/« 


(116 


0) 




scBezFactor ( 


0s6813, 


0 


4065514 




/» 


(116 


1) 


*/ 


scBezFactor ( 


0x563c, 


0 


3368568 


)^ 


/-» 


(116 


2) 


*/ 


scBezFactor ( 


0xl7dl, 


0 


0930367 


) 


/« 


(116 


3) 


»/^ 



#Ifiief SubDiv256 

,^f^ scBezFactor ( 0x28fa, 

scBesFactor( 0x677a, 

I y scBezFactor ( 0K571a, 

scBazFactar( 0:cl870, 

#^ii^if 



)^ 


/» 


(117 


0) 


«y 


)^ 


/-* 


(117 


1) 




)^ 


/* 


(117 


2) 


*/ 


) 


/» 


(117 


3) 





#ifdef SubDivl28 

scBezFactor ( 0x2819, 
"J scBezFactor ( 0x6 6de, 
h I scBezFactor ( 0x57f5, 
"J"^ scBezFactor ( 0x1912, 

#ei3if 







(118 


0) 






/« 


(118 


1) 


«/ 




/* 


(lie 


2) 


*/ 


) 




(lis 


3) 


»/ 



scBezFactor { 


0x273c, 


0. 


1532646 




/* 


(119 


0) 


*/ 


scBezFactor ( 


0x663d, 


0. 


3993829 






(119 


1) 


*/ 


scBezFactor ( 


0x58cf , 


0. 


3469092 


/* 


(119 


2) 


*/ 


scBezFactor ( 


0xl9ba, 


0. 


1004433 


) 




(119 


3) 


*/ 



#ifdef SubDiv256 
{ 



#endif 



#ifdef SubDiv32 



#endif 



scBezFactor ( 


0x2662, 


0 


.1499329 






(120 


0) 


«/ 


scBezFactor ( 


0x659a, 


0 


.3968811 




/* 


(120 


1) 




scBezFactor ( 


0x59a6, 


0.3501892 




/* 


(120 


2) 


*/ 


scBezFactor ( 


Ox laSe, 


0 


.1029968 


) 


/* 


(120 


3) 





#ifdef SubDiv256 
{ 

scBezFactor( 0x258a, 



0.1466498 ), (121 0) 
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#ifdef SubDiv256 
{ 



scBe2Factor( 


0x3279, 


0 


1971691 


)^ 


/* 


(107 


0) 




scBezFactor( 


0x5c:bd, 


0 


4247738 


)^ 




(107 


1) 


*/ 


scBe2Factor( 




0 


3050389 


)^ 


/* 


(107 


2) 


*^ 


scBezFQiCtor( 




0. 


0730183 


) 




(107 


3) 


*/ 



#endif 



#ifdef SubDiv64 
{ 



scBe2:FdGtor( 


0k3177, 


0 


1932259 




^* 


(108 


0) 


«/ 


scBezFactor( 


Ok 6c 4a, 


O. 


4230080 




/« 


(108 


1) 


»/ 


scBezFactor( 


0x4f05, 


Q 


3086815 




/* 


(108 


2) 


«/ 


scBe2Factor( 


0x1338, 


0. 


0750847 


) 


/» 


(108 


3) 





#endif 



#ifdef SutaDiv256 

{ 



scB©zFactor( 


0x3078, 


0 


1893355 




/» 


(109 


0) 




scBezFactor( 


0x6bd2, 


0 


4211749 




/« 


(109 


1) 


»/ 


scBezFactor ( 


0x4ff2, 


0 


3122998 






(109 


2) 


*/ 


scBezFactor ( 


0xl3c2, 


0 


0771897 


) 


/* 


(109 


3) 


»/ 



#esdif 



#ifM£ SufaDivl28 



scBezFactor ( 


0x2f7c, 


0. 


1854978 




/« 


(110 


0) 


»/ 


[J scBezFactor ( 


0x6b55, 


0. 


4192758 




/* 


(110 


1) 




1% scBezFactor ( 


OxSOde, 


0. 


3158927 




/* 


(110 


2) 


*/ 


'J'^ scBezFactor ( 


0xl44f, 


0. 


0793338 


) 


/* 


(110 


3) 


*/ 



#andif 



#f«|jef SubDiv256 

iilj 

1^ ,^ scBezFactor ( 0x2eS4, 
scBezFactor ( 0x6ad4, 

[3 scBezFactor ( Ox 51c 8, 
scBezFactor ( Oxl4de, 

#endif 



0 


1817122 




/« 


(111 


0) 


*/ 


0. 


4173115 




/* 


(111 


1) 




0 


3194591 




/« 


(111 


2) 




0. 


0815172 


) 


/^» 


(111 


3) 





#ifdef SubDivie 
{ 



scBezFactor ( 


0x2d90, 


0 


1779785 


)^ 




(112 


0) 


*/ 


scBezFactor ( 


0x6a50, 


0, 


4152832 




/* 


(112 


1) 


*/ 


scBezFactor ( 


Ox52b0, 


0 


3229980 






(112 


2) 


*/ 


scBezFactor ( 


0x1570, 


0. 


0837402 


) 




(112 


3) 





#endif 



#ifdef SubDiv256 
{ 

scBezFactor { 0K2c9e, 
scBezFactor ( 0x69c6, 
scBezFactor ( 0x5396, 
scBezFactor ( 0x1604, 

}. 

#endif 



0.4131920 
0.3265083 
0.0860034 





/* 


(113 


0) 




)r 


/* 


(113 


1) 




)^ 


/* 


(113 


2) 


*/ 




y* 


(113 


3) 
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#endif 



scBesFactorC 0x4670. 
scBe2Factor( O^Oece^ 



0.2751512 
0.0578343 ) 



y* (99 2) */ 
/* (99 3) */ 



#ifdef SubDiv64 
{ 

scBesFactor( 0x39ed, 
scBe2Factor( 0x6f66, 
scBezFactor( 0x4769, 
scB&zFactoT( 05rOf42, 

}^ 

#endif 



0.2262840 ), 

0.4351616 ), 

0.2789497 ), 

0.0596046 ) 



/« 



(100 0) */ 

(100 1) *y 

(100 2) */ 

(100 3) 



#ifdef SubDiv256 
{ 

scBe2Factor( 0K38d2^ 
scBezFactor( 0x6fl3, 
scBe2Factor( 0k4861, 
scBezFactor( OxOfbS, 

}^ 

#endif 



0.2219602 ), 
0.4338965 ), 
0.2827325 ). 
0.0614107 ) 



(101 0) 

(101 1) */ 

(101 2) */ 

(101 3) */ 



#ifdef SubDivl28 
{ 

scBezFactor{ 0K37baj. 0,2176919 ), 

scBezFactor( 0x6ebc, 0.4325566 ), 

%J scBezFactor( 0x4957. 0.2864985 ), 

r,j scBezFactor( 0x1031. 0.0632529 ) 



/» 



(102 0) *y 

(102 1) 

(102 2) */ 

(102 3) *X 



#iiJdef SubDiv256 

{SI 

scBezFactor( 0x36a6, 
I 3 scB0zFactor{ 0x6e5f, 
„ scBezFactor( 0x4a4d. 
l:r. scBezFactor ( OxlOac, 

i^^ddif 



0.2134786 ). 

0.4311431 ). 

0.2902467 ). 

0.0651316 ) 



(103 0) »/ 

(103 1) */ 

(103 2) *x 

(103 3) *y 



#£?def SubDiv32 

{C3" 

fl scBezFactor( 0x3596, 

scBezFactor( 0x6dfe, 

scBezFac:tor{ 0x4b42. 

scB^zF actor { Ox 11 2a, 

}^ 

#endif 



0.2093201 
0.4296570 ), 
0.2939758 
0.0670471 ) 



(104 0) 

(104 1) */ 

(104 2) »/ 

(104 3) */ 



#ifdef SubDiv256 
{ 

scBezFactor{ 0x3489, 
scBe2Factor( 0x6d97, 
scBezFactor( 0x4c35, 
scBesFactor( Ox 11a 9, 

}. 

#endif 



0.2052159 ), 
0.4280993 ), 
0.2976850 ), 
0.0689998 } 



(105 0) 

(105 1) */ 

(105 2) */ 

(105 3) */ 



#ifd$f SubDivl28 
{ 

scBezFactor( 0x337f, 

scBezFactor( 0x6d2d, 

scBe2Factor( 0x4d26^ 

scBezFactor( Gxl22c, 



0.2011657 ), 
0.4264712 ), 
0.3013730 ), 
0.0709901 ) 



(106 0) */ 

(106 1) */ 

(106 2) */ 

(106 3) »/ 
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{ 

scBe2Factor( 0x434e, 
scBe2Factor( 0x7145, 
scBesFactorC 0x3f8a, 
scBesFactor( OsObel, 

}^ 

#endif 



#ifdef SubDiv256 
{ 

scBesFactorf 0x4214. 
scBezFactor( 0x7 11c, 
scBezFactor( 0s4088, 
scBezFactor( 0x0c;46r 

}. 

#endxf 



#ifdef SubDivl28 
{ 

scBesF actor ( 0K40df. 
scBezFactorC 0K70ed, 
scBezFactor ( 0x4186. 
scBe2Factcrr( OxOcac, 

#endi£ 



#ifdef SxibDiv256 

T,j scBesFactcir( OxSfad. 

scBesFactor( 0x70b9. 

scBezFactorC 0x4283, 
fy scBesFactor( OxOdlB, 

#^|dif 



#Odef SubDivB 

C 

scBe2Factor( 0x3e80. 
'-^^ scBezFactor( 0x7080, 
'^4 scBezFactor( 0x4380, 
5/= scBe2Factor{ OxOdBO, 

#eidif 

r : 

Mfdef SubDiv256 
{ 

scBe2Fdctor( 0x3d55, 
scBezFactorC 0x7041, 
scBezFactor( Ox 4 4 7b, 
scBesFactor^ OxOded, 

}^ 

#endif 



#ifdef SubDivl28 
{ 

scBe2Factor( 0x3c2f, 
scBezFactor( 0x6ffd, 
scBezFactor( 0x4576, 
scBe2Factor( OxOeSc, 

}. 

#endif 



#ifdef SuhDiv256 
{ 

scB$zFactor{ 0x3b0c, 
scBezFactor( 0x6fb4, 



0.2629128 




/« 


(52 


0) 


«/ 


0 4424629 




/» 


f 92 


11 




0.2482109 




/* 


(92 


2) 


«/ 


0.0464134 


) 


/» 


(92 


3) 


*/ 


0.2581325 




X* 


(93 


0) 


»/ 


0 4418344 




/* 


(93 


1 ^ 


*/ 


0.2520896 


)' 


/» 


(93 


2) 


*/ 


0.0479434 




/« 


(93 


33 


«/ 


0.2534108 


)- 


/« 


(94 


0) 




0.4411225 




/* 


(94 


I) 


*/ 


0.2559600 






(94 


2) 


*/ 


0.0495067 






(94 


3) 


*/ 


0.2487469 




/» 


(95 


0) 


*/ 




^ 


/* 


^95 






0.2598211 


)- 


/» 


(95 


2) 


*/ 


0.0511035 


) 




(95 


3) 




0.2441406 


)- 


/* 


(96 


0) 


*/ 


0 4394531 




/* 


(96 




*/ 


0,2636719 




/» 


(96 


2) 


*/ 


0.0527344 




/# 


(96 


3) 


*/ 


0.2395915 




/* 


(97 


0) 








/« 






*/ 


0.2675112 




/» 


(97 


2) 


«/ 


0.0543995 


) 


/» 


(97 


3) 


*/ 


0.2350993 




/« 


(98 


0) 


*/ 


0 4374633 




/« 


f 98 






0.2713380 




/* 


(98 


2) 


«/ 


0.0560994 


) 


X* 


(98 


3) 


*/ 


0.2306636 






(99 


0) 


#/ 


0.4363509 






(99 


1) 
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Per: 13 



#ifdef SubDiv256 
{ 

scBezFactorC 0k4c4c^ 

scBezFactor( 0x7 lc6, 

scBezFactor( 0K388e, 

scBezFactor( 0x095©, 

}. 

#endif 



0.2980358 ), 
0.4444394 
0.2209201 
0.0366047 ) 



/* 
/* 



(85 0) *y 

(85 1) */ 

(85 2) */ 

(85 3) 



#ifdef SubDivl28 
{ 

scBezFactor( 0x4af7, 
scBezFactor( 0x71c5, 
scBezFactorf 0x398s, 
scBezFactor( Ox 09b 4, 

}. 

#endif 



0.2928376 
0.4444242 
0.2248263 
0.0379119 ) 



(86 0) 

(86 1) */ 

(86 2) */ 

(86 3) 



#ifdef SubDiv256 
{ 

scBezFactor( Ox 4 9a 6, 
scBezFactorf 0K71be, 
scBezFactor{ 0x3a8a, 
scBezFactor( OxOaOc, 

}^ 

§mdi£ 



0.2B77002 ), 

0.4443181 ), 

0.2287318 ). 

0.0392498 ) 



/■* 



(87 0) 

(87 1) */ 

(87 2) */ 

(87 3) *y 



#lidef SubDiv32 

ihi 

'■z scBezFactor{ 0s485a, 

%J scBe2Factor( 0x7 lb2, 

ly scBezFactor( 0x3b8e, 

scBezFactor( 0K0a66, 

#e^dif 



0.2826233 ), 

0.4441223 ), 
0.2326355 

0.0406189 ) 



(88 0) */ 

(88 1) */ 

(88 2) */ 

(88 3) »/ 



#Jl!def SubDiv256 

{^^ 

ly scBe2Factor( 0x4711, 
1^ scBezFactor( 0x719f, 
scBezFactor( 0x3c8d, 
scBe2Factor( OxOacl, 

}I3 

#©ndif 



0.2776064 
0.4438378 
0.2365363 ), 
0.0420194 ) 



(89 0) */ 

(89 1) */ 

(89 2) */ 

(89 3) */ 



#ifdef SubDivl28 
{ 

scBezFactor( 0k45cc, 0.2726493 ). 

scBezFactor( 0x7186, 0.4434657 ), 

scBezFactor( 0x3d8d, 0.2404332 }. 

scBezFactor{ OxOblf, 0.0434518 ) 

#eixdif 



/» 



(90 0) »/ 

(90 1) */ 

(90 2) */ 

(90 3) *y 



#ifdef SubDiv256 

{ 

scBe2Factor( 0x448b, 
scBazFactor( 0x7168, 
scBezFactor ( Ox 3e 8c , 
scBe2Factor( OxOb7f, 

}r 

#endif 



0.2677515 ), 
0.4430071 ), 
0.2443251 ), 
0.0449163 ) 



y* 
y* 
y* 



(91 0) *y 

(91 1) */ 

(91 2) 

(91 3) */ 



#ifdef SubDiv64 



Fi le : Work\CrtPrt\StoRehnd\Scbe2ble . cpp 



Pg: 12 



scBesFactorC 0^06f7^ 



0.0272115 



(77 3) */ 



#ifdef SufoDivl28 
{ 

scBezFactor( 0x560e, 
scBezFactorC 0k7121, 
scBe2Factor( 0x3192, 
scBesFactcrr( 0sO73d, 

#endif 



0.3361554 ). 
0.4419122 ), 
0.1936469 ), 
0.0282855 ) 



(78 0) */ 

(78 1) */ 

(78 2) */ 

(78 3) */ 



#ifdef SubDiv256 
{ 

scBe2Fdctor( 0s549d, 
scBezFactor( 0K714b, 
scBezFactor( 0k3291, 
scBezFactor( 05^0785, 

}. 

#endif 



0.3305216 ), 
0.4425629 ), 
0.1975281 
0.0293874 ) 



(79 0) */ 

(79 1) */ 

(79 2) */ 

(79 3) 



#ifdef SubDivl6 
{ 

scBe2Factor{ 0k5330, 

scBezFactor( 0x7170, 

scBe2Factor( 0k3390, 

scBe2Factor( Os07d0, 



0.3249512 
0.4431152 
0.2014160 
0.0305176 ) 



/» 



(80 0) */ 

(80 1) */ 

(80 2) */ 

(80 3) 



if 



#ydef SubDiv256 

{|y 

scBe2Factor( 0x51c:7, 
scBe2Factor( 0x7 18d, 
scBe2Fac:tor( 0K348f, 
B scBe2Factor( 0x08 lb, 

}|3 

#e5dif 



0.3194436 ), 

0.4435703 ), 

0.2053097 ), 

0,0316764 ) 



/« 



(81 0) */ 
(81 1) */ 
(81 2) */ 
(81 3) »X 



nCdef SubDivl28 

:z scBe2Factor{ 0x5062, 
rj scBezFactorf 0x7 la5, 
scBezFactorJ 0x358e, 
scB0zFd.ctorl 0x0869, 

}^ 

#endif 



0.3139987 ), 

0.4439292 ), 

0.2092080 ), 

0.0328641 ) 



/* (82 0) */ 
/» (82 1) */ 
/* (82 2) */ 
(82 3) 



#ifdef SubDiv256 
{ 

sc:BezFactor( 0x4f01, 
scBezFactor( 0x7 lb6, 
scBezFactor( 0x36Se, 
scBezFactorl 0x08b9, 

}^ 

#endif 



0.3086160 
0.4441929 ), 
0.2131099 ), 
0.0340812 ) 



/* 



(83 0) »/ 

(83 1) */ 

(83 2) */ 

(83 3) 



#ifdef SubDiv64 

{ 

sc:BezFactor( 0x4da4, 
scBezFactor( 0x71cl, 
scBezFactor( 0x378e, 
scBezFactori 0x090b, 

}^ 

#endif 



0.3032951 ), 

0.4443626 ), 

0.2170143 ), 

0.0353279 ) 



(84 0) */ 

(84 1) 

(84 2) */ 

/» (84 3) */ 
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scBezFactor( 0x6230, 
scB9zFactor( OsSedb, 
scBezFactorf 0ir29b8, 
scBezFactorC 0K053b, 

#end if 



0.3835473 
0.4330373 
0.1629710 
0.0204444 ) 



(70 0) */ 

/* (70 1) »/ 

/* (70 2) »/ 

/* (70 3) */ 



#ifdef SubDiv256 
{ 



#endif 



scBezFactor( 0k609c, 
scBezFactor( 0s6f3c, 
scBezFactor( 0K2ab0, 
scBesFactor( 0x0576, 



0.3773943 ), /* (71 0) 

0.4345134 ), /* (71 1) */ 

0.1667592 ), /* (71 2) 

0.0213332 ) /» (71 3) */ 



#ifdef SubDiv32 
{ 



#endif 



scBezFactor( OxSfOs, 
scBe2Factor( 0x6f96, 
scBezFactor{ 0x2baa, 
scBezFactor( 0x05b2, 



0.3713074 ), 
0.4358826 
0.1705627 
0.0222473 ) 



/* (72 0) */ 

/* (72 1) */ 

/* (72 2) */ 

/* (72 3) */ 



#ifdef SubDiv256 

in 

sc:Be2Factor( 0x5d83, 
M scBezFactor( 0x5fe8, 
ffl scBezFac:tor( 0x2ca4, 
fw scBezFd.ctor{ OxOSef, 

#&ddif 



0.3652863 
0.4371459 ), 
0.1743806 
0,0231872 ) 



/* (73 0) *y 

/* (73 1) */ 

/* (73 2) */ 

(73 3) 



#i£def SubDivl28 

B scBezFactor( OxSbfd, 
1 2 scBe2Factor( 0x7034, 
I'j scBezFactor( 0x2d9f, 
"''i scBezFactor( 0x062e, 

}|y 



0.3593307 
0.4383044 ), 
0.1782117 ), 
0.0241532 ) 



/* 



(74 0) */ 

(74 1) */ 

(74 2) */ 

(74 3) »/ 



#iiief SubDiv256 
{ 

sc:BezFactor( 0x5a7b, 
sc:Be2Factor{ 0x7079, 
scB6izFactor( 0x2e9b, 
scBezFactor( 0x066f, 

}r 

#endif 



0.3534401 ), 

0.4393592 ), 

0.1820549 ), 

0.0251457 ) 



/* 
/* 



(75 0) */ 

(75 1) */ 

(75 2) */ 

(75 3) 



#ifdef SubDiv64 
{ 

scBezFactor( 0x58fd, 
scBezFactor( 0x70b8, 
scBe2Factor( 0x2f97, 
scBezFact or ( 0x06b2, 

}. 

#endif 



0.3476143 ), 
0.4403114 ), 
0.1859093 ), 
0.0261650 ) 



y* (76 0) */ 
/» (76 1) */ 
/* (76 2) *x 
(76 3) 



#ifdef SubDiv256 

{ 

scBezFactor( 0x5783, 0.3418528 ), /* (77 0) «/ 
scBezFactor( 0x70ef, 0.4411620 ), /* (77 1} */ 
scBezFactorf 0x3095, 0.1897736 ), /* (77 2} */ 
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Pg: 10 



#ifdef SufoDiv256 

{ 

scBe2Factor( 0K6db2. 
scBezFactor( OxebSc, 
scBezFactor( 0x2310, 
scBezFdctor( OxOSdO. 

#endif 



0.4285012 ), 
0.4196203 ), 
0.1369745 
0.0149040 ) 



/* (63 0) */ 

/* (63 1) */ 

/* (63 2) 

(63 3) 



#ifdef SubDiv4 
{ 

scBezFactor( OkScOO, 

scBezFactor( OsBcOO, 

scBezFactor( 0k2400, 

scBezFactor( 0x0400, 

}^ 

#endif 



0.4218750 
0.4218750 ), 
0,1406250 ), 
0.0156250 ) 



(64 0) */ 

(64 1) */ 

(64 2) */ 

(64 3) */ 



#xfdef SubDiv255 
{ 

scBezFactor( Ox 6a 52^ 
scBezFactor( 0x6cSc, 
scBezFactor( Ox24fO, 
scBezFactor( 0x0430, 

}^ 

#endif 



0.4153175 
0.4240152 ), 
0.1442984 ), 
0.G1636S9 ) 



(65 0) */ 

/* (65 1) 

/* (65 2) »/ 

(65 3) *y 



#i#def SubDivl28 

m 

fij scBezFac:tor{ 0x68a8, 

;™ sc:Be2Factor( 0x6dll, 

scBezFactor( 0x25e2, 

ill scBezFactor( 0x0463, 



0.4088283 ), 

0.4260421 ), 

0.1479936 ), 

0.0171361 ) 



/* (66 0) */- 

/* (66 1) »/ 

/» (66 2) */ 

/» (66 3) »/ 



#ridef SubDiv256 

scBezFactor( 0x6704, 

ly scBezFactor( Ox6d8e, 

Is. scBezFactor( 0x26d6, 

Lt^ scBezFactor( 0x0496, 

}|f 



0.4024070 ), 
0.4279566 ), 
0.1517095 ), 
0.0179269 ) 



(67 0) 

(67 1) */ 

(67 2) */ 

(67 3) */ 



#ifdef SubDiv64 
{ 

scB«2Factor( 0x6563, 
scBezFactor( 0x6e04, 
scBezFactor( 0K27cb, 
scBezFactor( 0x0 4cc, 

}^ 

#endif 



0.3960533 ), 
0.4297600 ), 
0.1554451 ), 
0.0187416 ) 



(68 0) 

(68 1) */ 

(58 2) 

(68 3) */ 



#ifdef SubDiv256 
{ 

sc:BezFactor( 0x63c7, 
scBezFactor( 0x6e73, 
scBe2Factor( 0x2Scl, 
scBezFaotoT( 0x0503, 

}. 

#endif 



0.3897669 
0.4314532 ), 
0,1591993 ), 
0.0195807 ) 



/* (69 0) 

(69 1) */ 

/* (69 2) */ 

(69 3) *y 



#ifdef SubDivl28 
{ 



File : Work\CrtPrt\Stonehnd\Scbezble .cpp 



#endif 



#ifdeF SubDiv32 
{ 

scBezFactor ( 
scBezFactor ( 
scBezFactorC 
scrBezFactor ( 

#endif 



#ifdef SubDiv256 
{ 

scBezFactor ( 
scBezFactor ( 
scBezFactor ( 
scBezFactor ( 

#endif 



#ifdef SubDivl28 
{ 

scBezFactor ( 
scBezFactor ( 
scBezFactor ( 
f 1 scBezFactor ( 

}^ 

r^dif 



&dB£ SubDiv256 

€1 

scBezFactor { 
scBezFactor ( 
if^^^l scBezFactor ( 
"'^''^ scBezFactor ( 
H 

#|dif 



#ttfdef SubDiv64 

f'^^ scBezFactor ( 
scBezFactor( 

U scBezFactor ( 
scBezFactor ( 

#endif 



#ifdef SubDiv256 
{ 

scBezFactor ( 
scBezFactor ( 
scBezFactor ( 
scBezFactor ( 

}. 

#endif 



#ifdef SubDivl28 
{ 

scBezFactor ( 
scBezFactor ( 
scBezFactor ( 
scBezFactor ( 

}^ 

#endif 



0x7al2, 
0K668a, 
OslcbS, 
0K02ae, 



0K783f , 
0k6754, 
0Kld98, 



0k7671, 
0k6816, 
0Kle7d, 
02i:02fa, 



0K74a8, 
0K68d0, 
0xif64, 
0x0322, 



0x72e4, 
0k6983, 
0s:204c. 
0K034b, 



0K7124, 
Ox 6a 2d, 
0x2137, 
0x0376, 



0x6f69, 
0x6ad0, 
0x2223, 
0x03a2, 



0.4768372 ), 
0,4005432 ), 
0.1121521 ), 
0.0104675 ) 



0.4697203 ), 

0.4036290 ), 

0,1156123 ), 

0.0110384 ) 



0.4626746 ), 
0.4065928 ), 
0.1191030 ), 
0.0116296 j 



0.4556997 ), 
0.4094358 ), 
0.1226229 ), 
0.0122415 ) 



0.4487953 

0.4121590 ), 

0.1261711 ), 

0.0128746 ) 



0.4419610 ), 

0.4147634 ), 

0.1297465 ), 

0.0135291 ) 



0.4351964 ), 

0.4172502 ), 

0.13334S0 ), 

0.0142055 ) 



/* 


(56 


0) 


*/ 


/* 


(56 


1) 


*/ 




(56 


2) 


»/ 


/* 


(56 


3) 







(57 0) 


«/ 


/• 


(57 1) 


*/ 


/* 


(57 2) 


*/ 


/* 


(57 3) 


»/ 



/« 


(58 


0) 




y* 


(58 


1) 


*/ 


/« 


(58 


2) 


*/ 


/# 


(58 


3) 







(59 0) 


*/ 


/» 


(59 1) 




/* 


(59 2) 


*/ 




(59 3) 


«/ 





(60 0) 


*/ 


/* 


(60 1) 


*/ 




(60 2) 


*/ 


/» 


(60 3) 





/* 


(61 0) 


*/ 


/* 


(61 1) 


*/ 


/» 


(61 2) 






(61 3) 





/* 


(62 0) 






(62 1} 


«/ 




(62 2) 


*/ 


/» 


(62 3) 
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scBe2Fdctor( OxSflO, 
scBezFactor( OxlSfO, 
scBezFector{ OKOlfaO, 

}^ 

#endif 



0.3713379 





/* 


(48 


1) 


*/ 




/* 


(48 


2) 


*/ 


) 


/* 


(48 


3) 


»/ 



scBezFactor ( 


0k8757, 


0. 


5286779 




/» 


(49 


0) 


*/ 


scBezFactor( 


0x601c, 


0. 


3754379 




/« 


(49 


1) 


*/ 


scBezFactor ( 


0k16c0, 


0. 


0888718 




/» 


(49 


2) 


*/ 


scBezFactor ( 


GKOlcb, 


0. 


0070124 


) 


/» 


(49 


3) 


*/ 



#ifdef SubDiv256 
{ 



#endif 



#ifdef SubDivl28 



#endif 



scBezFactor ( 


0k8563. 


0. 


.5210528 




/» 


(50 


0) 


*/ 


scBezFactor ( 


0x6120, 


0, 


,3794074 




/» 


(50 


1) 


*/ 


scBezFactor ( 


0x1793, 


0. 


.0920892 




/* 


(50 


2) 


«/ 


scBezFactor ( 


OsOleS, 


0. 


.0074506 


) 




(50 


3) 


«^ 



#ifdef SubDiv255 

I J scBezFactor ( 0k8374, 

^^j scBezFactor ( 0x621c, 

f% scBezFactor ( Ok 1868, 

Z:i scBezFactor ( 0ii:0206, 

#!fdef SubDiv64 

scBezFactor ( Ok 01 8a, 
^„ scBezFactor ( 0x630f, 
C3 scBezFactor ( Ok 1940, 

scBezFactor( 0k0225, 

}h\ 

#&Idif 



0.3869591 





/« 


(51 


0) 




)r 


/« 


(51 


1) 


«/ 


)^ 


/« 


(51 


2) 


«/ 


) 


/* 


(51 


3) 


«/ 





/* 


(52 


0) 


»/ 


)^ 




(52 


1) 


*/ 




/« 


(52 


2) 


*/ 


) 




(52 


3) 


*/ 



scBezFactor ( 


0x7fa5, 


0, 


.4986183 




/« 


(53 


0) 


*/ 


scBezFactor ( 


0K63fa, 


0. 


,3905434 




/* 


(53 


1) 


«/ 


scBezFactor ( 


Ok la la. 


0. 


.1019645 




/* 


(53 


2) 


*/ 


scBezFactor ( 


0x0245, 


0. 


,0088738 


) 


/* 


(53 


3) 





#i«def SubDiv256 



#endif 



#ifdef Su]5Divl28 



#endif 



scBezFactor ( 


0K7dc4, 


0.4912858 


). 




(54 


0) 


*/ 


scBezFactor ( 


0K64dd, 


0.3940015 




/» 


(54 


1) 


*/ 


scBezFactor ( 


0Klaf6, 


0.1053271 




/* 


(54 


2) 


*y 


scBezFactor ( 


Ok0267, 


0.0093856 


) 


^* 


(54 


3) 


*/ 



#ifdef SubDiv256 

{ 



scBezFactor ( 


0x7be9, 


0. 


.4840255 




/* 


(55 


0) 


*y 


scBezFactor ( 


0K65b7, 


0. 


,3973344 


)^ 


/* 


(55 


1) 


*/ 


scBezFactor ( 


OKlbdS, 


0, 


.1087233 




/* 


(55 


2) 


*/ 


scBezFactor ( 


0k0289, 


0.0099167 


) 


/* 


(55 


3) 
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#ifdef SubDiv256 
{ 



scBesFactor ( 


0x97a5, 


0. 


.5923733 


)r 


/« 


(41 


0) 


*/ 


scBezFactor( 


0k56c1, 


0. 


,3388926 


)^ 


/* 


(41 


1) 


«/ 


scBezFactor( 


Ok 108b. 


0. 


.0646260 


). 




(41 


2) 


*/ 


scBezFactor ( 


OsOlOd, 


0,0041080 


) 




(41 


3) 


»/ 



#end if 



#ifdef SufoDivl28 



scBezFactor ( 


02i958a, 


0. 


.5841460 




/« 


(42 


0) 




scBezFactor ( 


OxSSOc, 


0. 


,3439364 




/* 


(42 


1) 


*/ 


scBezFactor ( 


0x1147, 


0. 


.0675015 




/* 


(42 


2) 


*/ 


scBezFactor ( 


0k0121. 


0. 


.0044160 


) 


/* 


(42 


3) 





#endif 



#ifdef SubDiv256 
{ 

scBezFactor ( 0k9374, 
scBezFactor ( 0s:594d, 
scBezFactor ( Ok 1207, 
scBezFactor ( 0k0136, 

}. 

#endif 



#afdef SubDiv64 

Ci 

^[l scBezFactor( 0k9163, 

fy scBezFactor ( 0K5a86i- 

.1 scBezFactor ( 0k12c9, 

'''"T scBezFactor( 0k014c, 

m 

#Mdif 



#^ifdef SubDiv256 

scBezFactor ( 0x8f57, 

= scBezFactor( OxSbbS, 

Y'-^ scBezFactor ( 0xl38f, 

i'-^ scBezFactor ( 0x0163, 

m 

#eadif 



0, 


.5759953 






(43 


0) 




0. 


,3488422 


). 


/* 


(43 


1) 


*/ 


0, 


.0704235 


). 


/* 


(43 


2) 


*/ 


0. 


.0047390 


) 




{43 


3) 





0. 


.5679207 




/* 


(44 


0) 


*/ 


0- 


.3536110 




/* 


(44 


1) 


*/ 


0. 


.0733910 




/« 


(44 


2) 


*/ 


0- 


.0050774 


) 




(44 


3) 


*/ 



0. 


.5599219 




/« 


(45 


0) 




0. 


.3582439 




/» 


(45 


1) 


«/ 


0. 


.0764027 




/« 


(45 


2) 


»/ 


0. 


,0054315 


) 


/* 


(45 


3) 


*/ 



#ifdef SubDivl28 
{ 



scBezFactor ( 


0K8d4f, 


0. 


.5519986 




/* 


(46 


0) 


*/ 


scBezFactor ( 


0K5cdc, 


0. 


,3627419 




/* 


(46 


1) 


*/ 


scBezFactor ( 


Ok1457, 


0. 


.0794578 




/* 


(46 


2) 


*/ 


scBezFactor ( 


0x0 17c, 


0, 


,0058017 


) 


/* 


(46 


3) 


*/ 



#endif 



#ifdef SubDiv256 
{ 



#endif 



scBezFactor { 


0K8b4d, 


0, 


.5441504 




/« 


(47 


0) 


*/ 


scBezFactor ( 


OxSdfa, 


0. 


,3671063 




/« 


(47 


1) 




scBezFactor ( 


0x1522, 


0. 


,0825550 




/« 


(47 


2) 


»/ 


scBezFactor ( 


0x0195, 


0, 


,0061883 


) 


/* 


(47 


3) 





#ifdef SubDivl6 

{ 

scBezFactor ( 0x8950, 0.5363770 ), /* (48 0) */ 
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#endif 



#ifdef SubDivl28 
{ 

scBe2Factor( 0xa6f2, 
scBezFactor( 0K4c:b4, 
scBezFactorJ OxObbf, 
scBezFactori 0x0099, 

}^ 

#endif 



#ifdef SubDiv256 
{ 

scBe2Factor( 0Ka4b3, 

scBezFactorC 0x4^40, 

scBezFactor( 0k0c64, 

scBezFactor{ OxOOa?, 

#endif 



#ifdef SubDiv64 
{ 

scBezFactor( 0Ka279, 
scBezFactor{ 0H4fc2, 
scBezFactar{ OxOdOd, 
scBezFactor( 0s00b6, 

m 

#^fidi f 

€ifdef SubDiv256 

scBezFactor{ 0Ka045, 
V'J scBezFactor( 0x5 13b, 
%J scBezFactor{ OxOdbS, 
f^. scBesFactorC Ox 00c 5, 



#lFdef SubDivl28 

I™ scBezFactor( 0x9el5, 
fi scBezFactor( OxSZab, 
scBezFactor( OxOeBS, 
scBezFactorl 0x0 Od 6, 

#endif 



#ifdef SubDiv256 
{ 

scBezFactorC 0K9beb, 

scBezFactor( 0x5411, 

scBezFactor( OxOflb, 

scBezFactor( OxOOe?, 

#endif 



#ifdef SubDiv32 
{ 

scBezFactor{ 0x99c6, 

scBezFactor( 0x556©, 

scBezFactor( 0x0fd2, 

scBezFactorC OxOOfa, 

#endif 



0. 


,6521373 






(34 


0) 


*/ 


0. 


2996306 






(34 


1) 


*/ 


0 . 


, 0458894 






(34 


2) 


*/ 


0 . 


0023427 


) 


/* 


(34 


3) 


*/ 


0, 


6433643 


)^ 


/* 


(35 


0) 




0. 


3056708 




/» 


(35 


1) 


«/ 


0.0484094 




/* 


(35 


2) 


*/ 


0. 


0025555 


) 


/* 


(35 


3) 




0. 


6346703 




/* 


(36 


0) 


*/ 


0. 


3115654 


)^ 


/* 


(36 


1) 


*/ 


0. 


,0509834 


)' 


/* 


(36 


2) 


*/ 


0. 


0027809 


) 


/» 


(36 


3) 


*/ 


0. 


6260549 


). 


/* 


(37 


0) 


*/ 


0. 


3173155 




/» 


(37 


1) 


*/ 


0. 


0536104 




/* 


(37 


2) 


*/ 


0. 


0030192 


) 


/» 


(37 


3) 




0. 


6175179 




/* 


(38 


0) 


»/ 


0. 


3229222 




/* 


(38 


1) 


*/ 


0. 


0562892 




/* 


(38 


2) 


»/ 


0. 


0032706 


) 


/* 


(38 


3) 


»/- 


0, 


6090589 


). 


/« 


(39 


0) 




0. 


3283866 


). 


/* 


(39 


1) 


*/ 


0. 


,0590188 


)' 


/* 


(39 


2) 


*/ 


0. 


0035357 


) 


/* 


(39 


3) 




0, 


6006775 




/* 


(40 


0) 


*/ 


0. 


3337097 




/* 


(40 


1) 


»y 


0. 


0617981 




/» 


(40 


2) 


*/ 


0. 


0038147 


) 


/* 


(40 


3) 
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scBezFactor( 0x071e, 0.0278020 ). 
scBesF actor ( 0x0044, 0.0010476 ) 

}^ 

#endif 



/* (26 2) */ 
/* (26 3) */ 



#ifdef SubDiv256 
{ 



#endif 



sc:BezFdctor( 


0Kb73e, 


0. 


7157915 




/* 


(27 


0) 


*/ 


scBszFactcir( 


0x40d0, 


0. 


2531839 






(27 


1) 


*/ 


scBezFactor { 


0K07a4, 


0. 


0298514 






(27 


2) 


*/ 


scB^zFdctor( 


0s004c, 


0. 


0011732 


) 




(27 


3) 


»/ 



#ifdef SubDiv64 
{ 

scBezFactor ( 0sb4da , 
scBe2Factor( 0K42al, 
scBezFactor ( 0s:082e, 
scB6fzFac;tor( 0x0055, 

#end if 



0.0013084 





/« 


(28 


0) 


*/ 


)^ 


/* 


(28 


1) 


»/ 




/* 


(28 


2) 


*/ 


) 


/* 


(28 


3) 


*/ 



#ifdef SubDiv256 
{ 

scBezFactor ( 0s£b27b, 
12 scBezFactor ( 0s4467^ 
."i scBezFactor ( OxOSbd, 
!f scBezFactor ( 0x0 OSf, 

^^id if 



0.0341368 





/* 


(29 


0) 


»/ 


)^ 


/* 


(29 


1) 


*/ 




/» 


(29 


2) 


«/ 


) 


y* 


(29 


3) 





#Wdef SubDivl23 

. 

scBezFactor ( 0sb022, 
''"^ scBezFactor( 0x4624, 
^ scBezFactor ( 0x094f, 
il scBezFactor ( 0x0069, 

}ij 

#^&dif 







(30 


0) 


*/ 




/» 


(30 


1) 


*/ 




/» 


(30 


2) 


*/ 


) 




(30 


3) 





#jjdef SubDiv256 

scBezFactor ( Oxadce, 

scBezFactor ( Ox47d7, 

scBezFactor ( 0x09e5, 

scBezFactor ( 0x0074, 

#endif 







(31 


0) 


«/ 


). 


/* 


(31 


1) 


•/ 


). 


/* 


(31 


2) 


•/ 


) 


/* 


(31 


3) 


»/ 



#ifdef SubDivB 
{ 

scBezFactor ( OxabSO, 
scBezFactor ( 0x4980, 
scBezFactor ( 0x0a80, 
scBezFactor ( 0x0080, 

}. 

#eiidif 





/-* 


(32 


0) 




). 


/• 


(32 


1) 






/» 


(32 


2) 


«/ 




/* 


(32 


3) 





#ifdef SubDiv256 
{ 

scBezFactor { 0xa938, 
scBezFactor ( 0x4blf, 
scBezFactor ( Ox Ob Id, 
scBezFactor ( 0x008c, 





/« 


(33 


0) 


*/ 


). 




(33 


1) 


«/ 




/» 


(33 


2) 


*/ 


) 




(33 


3) 


*/ 
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#endif 



scEezFdctor( OnSOda^ 
scBe2Factor( OxOSea, 
scBe2Factor( 0x00 la ^ 



0,7934602 ), 
0.1908322 
0.0152988 
0.0004088 ) 



/» 



(19 0) »/ 

(19 1) ^/ 

(19 2) »/ 

(19 3) •/ 



#ifdef SubDiv64 
{ 

scBezFactorC 0kc890, 
scBezFactor( 0s32fd, 
sc:BezFactor( 0x0452, 
sc:BezFactor( OkOOIF, 

#eiidif 



0.7834507 
0.1991844 )r 
0.0168800 ), 
0.0004768 ) 



(20 0) */ 

(20 1) */ 

(20 2) */ 

(20 3) *x 



#ifdef SubDiv256 
{ 

scBezFac:tctr( 0kc605, 
scBezFactor( 0k3516, 
scBezFactor( 0K04be, 
scBezFac t or ( 0x0024. 

#endif 



0.7735416 )r 

0.2073750 ), 

0.0185314 ), 

0.0005520 ) 



/* 



(21 0) */ 

(21 1) */ 

(21 2) */ 

(21 3) 



M^def SubDivl2e 

":f scBezFactor( 0kc382, 

in scBezFactor( 0x3724. 

ry scBezFactorC 0x052f, 

scBezFactor( 0x0029, 



0.7637086 ), 
0.2154050 ). 
0.0202518 ), 
0.0006347 ) 



/* 



(22 0) */ 

(22 1) */ 

(22 2) */ 

(22 3) 



if 



#WdeF SubDiv256 

fj scBe2Factor( 0xcl03, 

J J scBezFactor( 0x3928. 

scBe2Factor( 0x05a4, 

iJ scBezFactor( 0K002f. 

#tadif 



0.7539592 ). 

0.2232755 ). 

0.0220401 ), 

0.0007252 ) 



/* 



(23 0) */ 

(23 1) 

(23 2) 

(23 3) *^ 



#iFdef SufoDiv32 
{ 

scBezFactor( OxbeSa. 0.7442932 

scBezFactor( 0x3b22. 0.2309875 ). 

scBe2Factor( 0x061e. 0.0238953 ), 

scBezFactor( 0x0036, 0.0008240 ) 

#endif 



(24 0) 

(24 1) 

(24 2) 

(24 3) *y 



#ifdef SubDiv256 
{ 

scBe2Factor( OxbclS. 0.7347102 ) 

scBezFactor( 0x3dll, 0.2385423 ), 

scBe2Factor( 0x069b, 0,0258163 ) 

scBe2Factor( 0x003d. 0.00Q9313 ) 

#andif 



(25 0) */ 

(25 1) 

(25 2) */ 

(25 3) 



#ifdef SubDivl28 
{ 

scBezFactar( Oxb9a7. 
scBe2Factor( 0x3ef5. 



0,7252097 ). 
0.2459407 ). 



/* (26 0) 

y* (26 1) */ 
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#ifdef SufoDiv64 
{ 

scBesFactorC Oxddag, 

scBe2Factor( 0s20b4, 

scBezFactorC 0x019b^ 

scBe2Factor( 0x0006^ 

#andif 



0.8658638 
0.1277504 
0.0062828 
0.0001030 ) 



(12 0) */ 

(12 1) */ 

(12 2) */ 

(12 3) 



#ifdef SubDiv256 
{ 

sc:BezFactor( 0Kdaf2, 

scBe2Factcir( 0x2323, 

scBezFac:tcir( 0x0 lei, 

scBezFactor( 0x0008, 

#endif 



0.8552615 

0.1372642 ), 

0,0073434 ), 

0.0001310 ) 



(13 0) »/ 

(13 1) */ 

(13 2) */ 

(13 3) 



#ifdef SubDivl28 
{ 

scBezFactor( 0xd841, 
scBezFactor( 0x2588, 
scBezFactorj 0x022b, 
scBezFactor( 0x0 00a, 

}^ 

#0ndif 



0.8447461 ), 

0.1466088 ), 

0.0084815 ), 

0,0001636 ) 



/» 



(14 0) »/ 

(14 1) *y 

(14 2) */ 

(14 3) 



mtdBi SubDiv256 

scBezFactor( 0xd595, 
U scBezFactor( 0x27el, 
ly scBezFactor( 0x027b, 
=^.1 scBezFactor{ OxOOOd, 

^dif 



0.8343173 ), 
0.1557854 ), 
0.0096962 ), 
0.0002012 ) 



/» 



(15 0) */ 

(15 1) */ 

(15 2) */ 

(15 3) */ 



#itdef SubDivie 

III scBezFactor( Gxd2fO, 
1^ scBezFactor( Ox 2a 30, 
l;:x scBezFactorf OK02dO, 



#endif 



scBe2Factor( 0x0010, 



0.8239746 ), 
0.1647949 ), 
0.0109863 ), 
0,0002441 ) 



/« 



(16 0) 

(16 1) */ 

(16 2) »/ 

(16 3) */ 



#ifdef SubDiv256 
{ 

scBezFactor( Oxd04f, 0.8137178 ), 

scBezFactor( 0x2c73, 0,1736385 ). 
scBezFactor( 0x0329, 0.0123509 ). 
se:BezFactor( 0x0013, 0.0002928 ) 

}^ 

#endif 



(17 0) */ 

(17 1) */ 

(17 2) */ 

(17 3) 



#ifdef SubDivl28 
{ 

scBezFactor{ OxcdbS, 0.8035464 

scBezFactor( 0x2eac, 0.1823173 ). 

scBe2Factor( 0x0387, 0.0137887 ) 

scBezFactor( 0x0016, 0.0003476 ) 

#endif 



(18 0) */ 

(18 1) */ 

(18 2) */ 

(18 3) 



#ifdef SubDiv256 
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scBe2Factor( 0x0000, 
#endif 



0.0000038 ) 



/* (4 3) */ 



#ifdef SubDiv256 
{ 

scBesFactor{ 0sfl4a, 
scBezFactor( OxOeeb, 
scBezFactor( 0x0049, 
scBezFactor( OsOOOO, 

}^ 

#endif 



0.9425432 ), 
0.0563273 
0.0011221 
0.0000075 ) 



(5 0) */ 

(5 1) */ 

(5 2) */ 

(5 3) 



#ifdef SubDivl28 
{ 

scBezFactor( OxeeSb, 0,9313226 ). 

scBezFactor( 0Kll2a, 0.067Q552 ). 

scBezFactorC 0x0069, 0.0016093 

scBezFactor( 0x0000, 0.0000129 ) 

#end if 



(6 0) */ 

(6 1) */ 

(6 2) */ 

(6 3) *x 



#ifdef SubDiv256 
{ 

scBezFactor( 0xeb91. 0.9201913 ). 
scBezFactor( Oxl3de, 0.0776065 )\ 
t^- scBezFactorf OxOOBe, 0.0021817 ). 
scrBezFactorC 0x0001, 0.0000204 ) 

?^ 

#elidif 



(7 0) ^/ 

(7 1) */ 

(7 2) */ 

(7 3) 



#i+def SufoDiv32 

u 

-~J scBazFactor( OxeSbe, 

scBe2Factor( 0x1686, 

scBezFactor( OxOOba, 

s scBezFactor( 0x0002, 

##ndif 



0.9091492 ), 

0.0B79B22 ), 

0.0028381 ), 

0.0000305 ) 



{8 0) */ 

(8 1) *y 

(8 2) */ 

(8 3) 



^^^^def SufoDiv256 

!i scBezFactor( OxeSfO, 

iJ scBezFactor( 0x1922, 

scBezFactorC OxOOea, 

scBezFactor( 0x0002, 

}. 

#endif 



0.8981957 ), 
0.0981833 ), 
0.0035775 ), 
0.0000435 ) 



(9 0) */ 

(9 1) »/ 

(9 2) */ 

{9 3) »/ 



#ifdef SubDivl28 
{ 

scBezFactor( 0xe328, 
scBezFactor( Oxlbb3, 
scBezFactor( 0x0120, 
scBezFactor{ 0x0003, 

#endif 



0.8873305 ), 
0.1082110 ), 
0.0043988 ), 
0.0000596 ) 





(10 


0) 


*/ 


/* 


(10 


1) 


*/ 


/* 


(10 


2) 


*/ 


/• 


(10 


3) 


*/ 



#ifdef SubDiv256 
{ 

scBezFactor( 0xe065, 0.8765534 ), 
scBezFactor( 0xle39, 0,1180664 
scBezFactor( 0x015b, 0,0053009 ), 

scBezFactor{ 0x0005, 0.0000793 ) 

}^ 

#endif 



/* 


(11 


0) 


*/ 


y* 


(11 


1) 


»/ 


/» 


(11 


2) 


*/ 


/* 


(11 


3) 


*/ 
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File: 



SCBE2BLE.C 



$Header: /"Projects/ToolboK/ct/SCBE2BLE .CFP 2 5/30/97 8:45a toanis $ 
Contains: the blending values for computing beziers 
Written by: Manis 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA, 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

/* this contains standard function values, we use tables instead of actually 
» computing the value 
*/ 



#include "scbezier.h" 

st^ezBlendValue foezblend [scBezBlendSize] - { 

^ this one appears in all */ 

fil scBezFactorC OkOOOO, 1,0000000 

scBezFactor( OkOOOO, 0.0000000 

;i scBezFactor( OkOOOO^ 0,0000000 

%U scBezF actor ( OkOOOO, 0.0000000 

H 

liifdef SubDiv256 
f 

C3 scBezFactor( 0Kfd02, 0.9883270 
^^j scBezFactorC 0x02fa, 0.0116274 
/*: scBezFactor( 0x0002, 0.0000456 
scBezFactor( 0x0000, 0.0000001 

t^ndif 

iMdef SubDivl28 
{ 

scBezFactor( OxfaOb, 0.9767451 

scBezFactor( OK05e8, 0.0230727 

scBezFactor( OxOOOb, 0.0001817 

scBezFactor( OjtOOOO, 0.0000005 

#endif 



#ifdef SubDiv256 
{ 

scBezFactor( 0Kf71a, 

scBezFactor{ 0x08ca, 

scBezFactor( 0x00 la, 

scBezFactor( 0x0000, 



0.9652541 
0.0343371 
0.0004072 
0.0000016 



#©ndif 





/* 


(0 


0) 


*/ 




/* 


(0 


1) 


*/ 




/* 


(0 


2) 


*/ 


) 


/* 


(0 


3) 


*/ 




/* 


(1 


0) 


*/ 


)' 


/* 


(1 


1) 


*/ 




/* 


(1 


2) 


»/ 




/* 


(1 


3) 


•/ 




/• 


(2 


0) 


*/ 


)^ 


/• 


(2 


1) 


*/ 


). 


/* 


(2 


2) 


*/ 


) 


y* 


{2 


3) 


•/ 






(3 


0) 


*/ 




/* 


(3 


1) 


*/ 


)' 


/* 


(3 


2) 


*/ 


) 


/* 


(3 


3) 


»/ 



#ifdef SubDiv64 
{ 

scBezFactor{ 0xf42f, 
scBezFactor( OxObaO, 
scBezFactor( Qx002f, 





/* 


(4 


0) 


»/ 


)' 




(4 


1) 




). 


/* 


(4 


2) 


*/ 
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class scBinarySortedArray : public scSizeableArray<T> { 
public : 

int Find( const int* msertlndex « 0 ) const; 

int Findl( const T£<, const CIS:, int* insertlndeK « 0 ) const; 

int SortIasert( const T& ); 

}; 

template <class T, class CT> 

class scBinarySortedArrayD ; public scSizeableArrayD<T> { 
public: 

int Find( const T&, int* insert IndeK = 0 ) const; 

int Findl( const const int* insert IndeK - 0 ) const; 

int SortlnsertC const T& ); 

}; 

#ifdef DEFIls[E_T£MPLATES 
#inciude "scarray .cpp" 
#endif 



#endif 
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void 
void 

unsigned 
unsigned 



GrowSlots( int ); 
ClearMem( unsigned ) ; 



elemSlots, 
blockSize 



16; 



unsigned retainMem„ : 1; 



// num of elements potentially m allocated space 

// for growing and shrinking we grow in greater 
// than one element unit - this is that unit 
// typically 4 

// do not shrink memory if this is set 



template <class T> 

class scSizeableArrayD : public scArray<T> { 
public: 

scSizeableArrayD ( ) ; 
'^scSizeableArrayD ( ) ; 



void 
void 

TSc 

int 
void 

void 

void 

void 



int 



void 

pffLvate : 
, void 
void 

void 



void 



void 
void 
void 

unsigned 
unsigned 



Remove ( int ) ; 
RemoveMl( void ); 

Grow() ; 

Append ( const T& ) ; 
Insert ( int, const TC ); 

Set( int, const TS, ); 

SetNumSlots( int numSlots ); 

SetRetainMem( int tf ) 
{ 

retainMem_ « tf ? 1 : 0; 

} 

(jetRetainMem{ void ) const 
{ 

return retainMea^; 

} 

eKch( const scSizeableArrayD<T>S: ); 



construct Item ( int ); 
deleteltem{ int ); 

MoreSlotsC void ) 
{ 

GrowSlots( blockSize_ ); 

} 

ShrinkSIots( void ) 
{ 

SetNumSlots( numltems„ ); 

} 

SizeSlots( unsigned ); 
GrowSlots( int ) ; 
ClearMem( unsigned ); 



elemSiots_ 
bl ockSi2e_ 



16; 



unsigned retainMem_ : 1; 



// num of elements potentially in allocated space 
for growing and shrinking we grow m greater 
than one element unit - this is that unit 
typically 4 

do not shrink memory if this is set 



// CT is a comparison class - it must have a method 
Compare ( const TSt, const TSc ) 



template <class class CT> 
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{ 

scArray<T> array = (sciVrrdy<T>&)arr; 

int t - array .nuittlteffls„; 
array ,numltems„ = numltems^; 
Bumltems_ - array .numltems„; 

T» tmp - array. itains_; 
array . i tems_ - i tems_ ; 
items„ « tmp; 

} 

#endif 

template <class T> 

class scStaticArray : public scArray<T> { 
public: 

scStaticArray ( xnt num, T» mem = 
'^scStaticArray 0 ; 

}; 

template <class T> 

class scStaticArrayD : public scArray<T> { 
public: 

scStaticArrayD ( int num, T* mem « 
'^scStaticArrayD ( ) ; 

la 

in 

fejnplate <class T> 

qi=^ss scSizeableArray : public scArray<T> { 

scS izeabl ©Array ( ) ; 
"scSizeableArray () ; 

Remove ( int ); 
RemoveAll( void ); 
Append ( const TSe ); 

Grow{) ; 

Insert ( int, const ); 

Set( int, const TSt ); 

SetNumSiots( int numSlots ); 

SetRetainMem( int tf ) 
{ 

retainMem_ = tf ? 1 : 0; 

} 

8etRetainMem( void ) const 

{ 

return retainMem^; 

} 

eKch( const scSi2eableArray<T>& ) 



MoreSlots( void ) 
{ 

GrowSlots{ blockSize ); 

} 

ShrinkSlots( void ) 
{ 

SetNumSlots { numltems_ ); 

} 

SizeSlots( unsigned ); 



P'^lic: 

void 
v^oid 
C3 int 

1^ void 
ZZ void 
void 
void 

int 

void 

private : 
void 

void 
void 
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scArray( lat num, T* mem ) : 
rmmltems_( num 
items„( mem ) {} 



int numltems_; 
T« it6ms_; 

#ifndef _I^ERKS_ 

// the following are not declared because of the 
deep vs shallow copy problem 
scArray( const scArrayS: ); not declared 

scArraySi operator=( const scArraySc ); // not declared 
#endlf 



template <class T> 
#ifndef _l^£RKS_ 
inline 
#endif 

int scArray<T> : :i?uml terns ( ) const 
{ 

return numltems„; 

} 

template <class T> 
fifndef _1^ERKS_ 
liline 
#^dif 

ii scArray<T> :: operator! ]( iJ^t n ) 

ru { 

, ™^ return items_[ n ]; 

H } 

teitnplate <class T> 
fifndef _M^ERKS_ 
fifline 
#6ndif 

i&iSt TSc scArray<T>: : opera tor [] ( int n ) const 
, : return items„[ n ]; 



€4aplate <class T> 
li^^ndeC _1^ERKS_ 
inline 
#endif 

T« scArray <T> : : pt r ( ) 
{ 

return items_; 

} 



template <class T> 
#ifndef _Ki^£RRS_ 
inline 
#endif 

const T* scArray<T>: :ptr() const 
{ 

return items_; 

} 



#if 0 

template < class T> 
#ifndef _MWERRS_ 
inline 
#endif 

void scArray<T> : :eKch( const scArray<T>& arr ) 
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File: SCARRAY.H 



$HeQder: /bt ool box/1 ib/SC ARRAY. H 3 3/31/96 3:48p Will $ 
Contains; Templates for Vector 
Written by: Manis 

Copyright (c) 1989-95 Stonehand Inc, of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



#ifndef „H„SCARRAY 
#define „H„SCARRAY 

#ifdef .DEBUG 

#define if debug ( s ) k 
felse 

""Z #define ifdebug( x ) 
#CTdif 

fdnplate < class T> 
dXkss scAutoDelete { 
^uislic; 

scAutoDelete ( T* ptr = 0 ): ptr_{ ptr ) {} 
"^^^ "scAutoDeleteO { freePtr{); } 

f jT* derefO const { return ptr„; } 

operator->() const { return ptr_; } 
/irS: operator* () const { return *ptr„; } 

l^^oid operator==( T* p ) { if ( ptr„ ) freePtr(); ptr_ = p; } 

i^lnt operator«=( const scAutoDelete<T>& p ) 

;f { return ptr„ p.deref(); } 

private ; 

void freePtrO { delete ptr_, ptr„ 0; } 

T* ptr„; 

}; 

template <class T> 
class sc Array { 
public: 

int HumI terns ( void ) const; 

T& operator[]( int n ); 

const T& operator[]{ int n ) const; 

T* ptr( void ); 

const T* ptr( void ) const; 

// void exch( const scArray<T>Sc ); 
protected : 

scArrayO : 

numltems_(0) , 
items_.(0){} 
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int found ^ ct .Compare 1( val, iteEms_[ index] ); 
if ( found =- 0 ) 

return index; 
else if ( found < 0 ) 

high - indeK - 1, msertlndsK « index; 

else 

low « index + i, insertlndex - index + 1; 

} 

insertlndexP ? »insertIndexP * insertlndex : 0; 
return -1; 

} 

template<class T, class CT> 

int scBinarySortedArrayD<T,CT> :: Sort Insert { const item ) 

{ 

int index; 

if ( Find( item, Stindex } < 0 ) 

Insert ( index, item ); 
return index; 

} 



#endif /* scDEF INE.TEMPLATES */ 
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if ( items„ == 0 ) 
throw( -1 ); 

items„ = (T*)redlloc( items_, si2eaf{T) * ( elemSlots_ + newltems ) ); 
ClearMem( oidSise ); 



template <class T> 

void scSizeabieArrayD<T> ; :CleaxMem( unsigned oldsise ) 
{ 

// either we do need to clear memory or we have shrunk it 
if ( oldsize >^ elemSlots_ ) 
return ; 

for ( unsigned indeis ^ oldsize; index < elemSlots„; indes++ ) 
construct I tem{ index ); 

} 

#if 0 

template <class T> 

void scSi2eableArrayD<T>: :exch( const scSizeableArrayD<T>& arr ) 
{ 

scArray<T> : : operator- ( arr ) ; 

scSiseableArrayD<T>& array = (scSi2eableArrayD<T>&)arr; 

unsigned tmp = elemSlots„; 
f i eleiKSlots_ = array .el emSlots„; 
"2 array .elemS lot s_ tmp; 

Cn tmp = blockSi2e_; 

fij blockSi2e„ = array .blockSize„; 

[Z, array. blockSize_. « blockSize_; 

ly tmp - retainMem_; 
''^J retainMem. array .retainMem_; 
array .re tainHem_ = retainMem_; 

#endif 

t^plate<class T, class CT> 

i& scBinarySortedArrayD<T,CT> : :Find( const T& val, int» insertlndesP ) const 

|y 

int low « 0; 

1^, int high numltems_ - 1; 

int insert Index « 0; 

while { low high ) { 

int index - (low + high) / 2; 
int found = CT::CompareC val, items_[index3 ); 
if ( found 0 ) 
return index; 
else if { found < 0 ) 

high - index - 1, insert Index » index; 

else 

low =^ index +1, insert Index « index +1; 

> 

insertlndexP ? *insertlndexP = insertlndex : 0; 
return -1; 

} 

template<class T, class CT> 

int scBinarySortedArrdyD<T,CT>: :Findl( const T& val^ const CT& ct. int* insertlndexP ) const 
{ 

int low 0; 

int hi^h « numltems_ - 1; 

int insertlndex =0; 

while ( low high ) { 

int index = (low + high) / 2; 
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Si2eSlots( numBlocks * blockSize^ ); 

} 

template <class T> 

int scS i zea b 1 eArrayD <T> : .'Append ( const T& elem ) 
{ 

SetHumSlots( numlteins_ + 1 ); 
items„[numltexiis_] = elem; 
return nvimltems„++; 

} 



template <c:iass T> 

TSc scSizeableArrayD<T> : :Grow() 

{ 

SetHumSlots( numltems_ + 1 ); 
return items„[numltems„++] ; 

} 



template <class T> 

void scSizeableArrayD<T> : .-Insert ( int index, const T& elem ) 
{ 

SetNumSlots( numltems„ 1 ) ; 

if ( numltems„ - inden > 0 ) 

memmove( items_ + indeK + 1, items„ + index, 
( numltems_ - index ) * sizeof(T) ); 

12 construct I tern ( index ); 
'^Z iteHis_[ index] - elem; 
^ numi tems„++ ; 

in 

i^plate <class T> 

v&id scSi2eableArrayD<T> : :Set ( mt indes, const elem ) 

|y 

*=^J if ( index >«= numltems„ ) { 

SetHumSlots( index + 1 ); 
'""^ nuiftltems„ - index + 1; 

. } 

C3 

i items„[ index] = elem; 
ieftiplate < class T> 

^i^id scSizeableArrayD<T> : :SizeSlots{ unsigned numI terns ) 

I J 

// do not shrink if we are retaining memory or if no resizing is 
// necessary 

// 

if ( elemSlots__ =- numltems [ | ( numltems < elemSlots_ E<£c retainMem_ ) ) 
3r©tu3m; 

stAssert( numltems >= blockSize_ ); 

long oldSize = elemSlots_; 

if ( items„ == 0 ) 
throw { - 1 ) ; 

items_ ^ (T»)realloc( items_, sizeof(T) * numltems ); 
alemSlots_ = numltems; 
ClearMem( oldSize ); 

} 



template <class T> 

void scS izeafol eArrayD <T> : :Gro??S lots ( int newl terns ) 
{ 

int OldSize ^ elemSlots„; 
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} 

delete [] items_; 

} 

#define kInitBlockSize 4 
template <ciass T> 

scSizeableArrayD<T> : :scSizeableArrayD () : 
:elemSXots„( 4 

blockSxze^C kInitBlockSize ), 

scArray<T>( 0, (T*)malloc( kInitBlockSize * si2eof( T ) ) ) 

{ 

ClearMem{ 0 ); 

} 

template <class T> 

scSizeableArrayD<T> : :"'scSizeabieArrayD() 
{ 

for { unsigned i = 0; i < elemSlots_; i++) 
deleteltem( i ); 

if ( items„ ) 

£ree( items„ ); 

} 

template < class T> 

void scSi2eableArrayD<T> :: cons true t I tern ( int indeK ) 
{ 

(void) new ( items_ + indes ) T; 

13 

limplate <class T> 

l-Sid scSizeableArrayD<T> : ;deleteltem( int index ) 

m 

#ifdef _WATCOMC 

~ i tems_ [indeK ] . ( ) ; 
lyiif defined (.MAC) 
'^^J TSc tp = items_[indeK3 ; 

tp.-T(); 
#else 

items_[index] .T: 
#fndif 
id 

tymplate <class T> 

|r©id scSizeafoleArrayD<T> :: Remove ( int index ) 

h 

s t Assert ( index < numltems. ); 
■iJ deleteltem( index ); 

if ( numltems_ - index - 1 ) 

memmove( items__ +index, items. +index + 1^ 

{ numi terns. - index - 1 ) * sizeof ( T ) ) ; 

numlteras. 1; 
ShrinkSlotsO; 

} 

template <class T> 

vo i d scS i zeabi eArrayD <T> : : RemoveAl 1 ( ) 
{ 

for ( int i ^ 0; i < numltems.; i+-f-) 
deleteltem( x ); 

numi terns. =^0; 
ShrinkSlotsO; 

} 

template <class T> 

void scS izeabl eArrayD <T> : rSetNumS lots ( int numSlots ) 
{ 

int numBlocks = stMAX( 1, numSlots / blockSize. + ( numSlots Z blockSize. ? 1 : 0 ) ); 
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temp 1 ate < class class CT> 

int scBindrySorteclArrdy<T,CT> : ;Find( const TSc val, int* insertlndeKP ) const 
{ 

int low « 0; 

int high - numltems„ - 1; 

int insert Index « 0; 

while { low <= high ) { 

int index = (low + high) / 2; 
int found = CT::Compare( val, iteras_[ index] ); 
if ( found == 0 ) 
return index; 
else if ( found < 0 ) 

high = index - 1^ insertlndeK = index; 

else 

low « indeK +1^ insert Indeis index + 1; 

} 

insertlndexP ? *insertIndeKP = insertlndeK : 0; 
return -1; 

} 

template<class T, class CT> 

int scBindrySortedArray<T,CT> : :Findl( const TS: val, const CT& ct, int* insertlndexP ) const 
{ 

int low = 0; 

int high = numltems„ - 1; 

int insertlndes - 0; 

12 while ( low <- high ) { 

"5 int index - (low + high) / 2; 

int found ct.Comparel{ val, iteins„[ index] ); 
£ri if ( found 0 ) 

fy return index; 

else if ( found < 0 ) 
/"t high index - 1, insert Index = index; 

ty else 

'"-•^l ^ low = index + 1, insertlndex index 1; 

insertlndexP ? *insertIndexP = insertlndex : 0; 
fj return -1; 

Ij 

fc^plate<class class CT> 

l-kt scBinarySortedArray<T,CT> : iSortlnsert ( const TSi item ) 

h 

:z int index; 

if ( FindC item, Stindex ) < 0 ) 

Insert ( index, item ); 
return index; 

} 

//// 

template <class T> 

scStaticArrayD<T> : :scStaticArrayD( int num, T* mem ) : 
scArray<T> ( num, mem ? mem : new T[num] ) 

{ 
} 

template <class T> 

scStaticArrayD<T> : ;^scStaticArrayD() 
{ 

for ( int i « 0; i < numltems„; i++) { 
#ifdef _WATCOMC 

items„[il .'"T(); 
#elif defined („MAC) 

TSe tp = items„[i] ; 

tp.^O; 

#eise 

items_[i] .T: z^'TC) ; 

#endif 
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itettis_[ index] « elem; 

} 



template <class T> 

void scSizeabieArray<T> : rSlzeSlots ( unsigned numl terns ) 
{ 

do not shrink if we are retaining memory or if no resizing is 
// necessary 

// 

if ( elemSiots_ ^'^^ numltems | | { numltems < elemSlots_ S£c retainMe3ii__ ) ) 
return ; 

stAssert( numltems >- blockSize„ ); 

long oldSize » elemSlots_; 

if ( Items. 0 ) 
throw ( - 1 ) ; 

items. * (T*)realloc( items., sizeof(T) * numltems ); 
elemSlots. - numltems; 
ClearMera( oldSize ); 

} 



template <class T> 

void scSi2eafoleArray<T> : :GrowSlots( int newl terns ) 
{ 

fi int oldSize « elemSlots.; 

if ( Items. 0 ) 
i^^ throw { -1 ); 

I'i^ items. = (T*)realloc( items., sizeof(T) * ( elemSlots. + newltems ) ); 
"^"^ elemSlots. newltems: 
iy ClearMem( oldSize ); 

1y 



template <class T> 

CrSid scSizeableArray<T> : :ClearM6m( unsigned oldsize ) 

// either we do need to clear memoiry or we have shrunk it 
if ( oldsize >- elemSlots„ ) 
return; 

IZ^ for { unsigned index = oldsize; index < elemSlots.; index++ ) 
memset( items. + index, 0, sizeof(T) ); 

} 

#if 0 

template <class T> 

void scSizeableArray<T> : ;exch( const scSizeableArray<T>£c arr ) 
{ 

scArray <T> : : operator^^ ( arr ) ; 

scSizeableArray<T>£c array = (scSizeableArray<T>£t)arr; 

unsigned tmp « eiemSlots.; 
elemSiots. - array .elemSlots.; 
array .elemSlots. « tmp; 

tmp - blockSize.; 

blockSize. « array .blockSize.; 

array. blockSize. = blockSize.; 

tmp « retamMem.; 

retainMem. = array . re tainMem.; 

array .retainMem. = retainMem.; 

} 

#endif 
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} 

template <class T> 

scSizeableArray<T> : :~scSizeableArray() 
{ 

if ( items„ ) 

free( items_ ); 

} 

template <ciass T> 

void scSi seabi ©Array <T> :: Remove { int inden ) 
{ 

stAssart( index < numltems_ ); 

meffimove( iteMS„ + index, items„ + index +1, 

( numltems_ - index - 1 ) * sizeof( T ) ); 

numltems„ 1; 

ShrinkSlotsO; 

} 

template <class T> 

void scSizeableArray<T> : : RemoveAl 1 ( ) 
{ 

numltems„ = 0; 
ShrinkSlotsO; 

} 

tismplate <class T> 

ySid sc:SizeabIeArray<T> : :SetNumSlots( int numSlots ) 

If 

i\l int numBlocks = stMAX( 1, numSlots / blockSi2e_ + ( numSlots Z blockSize_ ? 1 : 0 j ); 
ry SizeSlots( numBlocks * blockSize^ ); 

'li 

template <class T> 

idt scSizeableArray<T>: : Append ( const eiem ) 

SetHumSlots( numltems„ + 1 ); 
s items_[numltems„] = el em; 
fl return numltems_++; 

h 

template <class T> 

fg* scSi2eableArray<T>; :Grow() 

Set^umSlots( numltems_ + 1 ); 
iJ return items_[numltems_++] ; 

} 



template <class T> 

void scSizeableArray<T>: ; Insert ( int index, const T& elem ) 
{ 

SetNumSlots( numltems_ -i- 1 ) ; 

if ( numltems„ - index > 0 ) 

memmove( items„ + index +1, items„ + index, 
( numltems„ - index ) * sizeof(T) ); 

items_„[ index] elem; 
numltems_++; 

} 

template <class T> 

void scSizeableArray<T>: :Set( int index, const T& elem ) 
{ 

if ( index >= numltems_ ) { 
SetNumSlots{ index + 1 ); 
numltems„ ^ index +1; 

} 
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File: SCARRAY.CPP 

$Header: /b tool box/1 ifa/SC ARRAY. CPP 3 3/31/96 3:48p Will $ 
Contains: Templates for Vector 

Written by; Man is 

Copyright (o) 1989-95 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition ToolboK software is the proprietary 
and confidential property of Stonehand Inc. 

««»»««******»»**»*»»«»**»**»»«««»»«***«*******»*«***«»****»»**«*******»**»*»/ 

#ifdef DEFINE_TEMPLATES 

#if defined ( _MWERKS_ ) 

#include <stdlifo.h> 
#else 

fjnclude <malloc.h> 
l&ndif 

include <string.h> 

Itinclude <assert.h> 

1% line 

Moid *operator new(si2e_t, void *p) 
~™ return p; 



#jfndef scAssert 

, l #define stAssert assert 

W4lse 

#define stAssert scAssert 
Jr^ndif 

define stMAX{ a, b ) ( (a) > (b) ? (a) : (b) ) 

#define stMIN( a, b ) { (a)< (b) ?(a) : (b) ) 



template <class T> 

scStaticArray<T> : :scStaticArray( int num, T» mem ) : 
scArray<T> ( num, mem ? mem : new T[num] ) 

{ 
} 

template <class T> 
scStaticArray<T> : r'^scStaticArray ( ) 

{ 

delete [] items„; 

} 

#define klnitBlockSize 4 
template <class T> 

scSizeableArray<T> : :scSizeableArray( ) : 
elemSlots„( 4 ), 
blockSize_( klnitBlockSize 

scArray<T>{ 0, (T*)malloc( klnitBlockSize * si2eof( T ) ) ) 

{ 

ClearMem( 0 )> 
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typedef COLORREF APPColor; /* color reference */ 

// @type APPDrwCtK | An abstract type/magic cookie that the Composition Toolbox 
// may use to pass thru drawing contexts, 

// 

typedef CAGText* APPDrwCtx; // drawing context 

// §type APPFont 1 An abstract type/xnagic cookie that the Composition Toolbox 
// may use to retrieve and specify font information. 

// 

typedef const scChar* APPFont; 

// §type APPRender 1 An abstract type/magic cookie that the Composition Toolbox 
// may use to specify font information plus additional drawing attributes 
// that the client may wish to use (e.g. drop shadow ). Typically used when 
// the traditional values returned by the font sub-system in Quickdraw or 
// GDI would not suffice. 
// @xref <t APPFont> 

typedef struct RenderDef* APPRender; 

// itype TypeSpec 1 An abstract type/magic cookie that the Composition Toolbox 
// may use to retrieve typographic state information. 

// 

#include "refcnt.h" 

class stSpec : public Re f Count 

{ 

typedef class RefCountPtr<stSpec> TypeSpec; 
Ifpedef class RefCountPtr<stSpec> scFontRender; 

§type APPColumn | An abstract type/magic cookie to foe filled in 
V> appropriately by the client. 

ft 

fj-pedef CAGText* APPColumn; 

©type APPCtxPtr j An abstract type/magic cookie for use in file i/o. 
>'k @xref <t IOFuncPtr> 

|:|pedef CAGText* APPCtxPtr; 
##ndif 
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File: SCAPPTYP.H 

SHeader: /Projects/ToolboK/ct/SCAPPTYP .H 2 5/30/97 8:45a V^feanis $ 
Contains; Defintion by client of data types. 
Written by: Manis 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



Use this to define application types for proper type checking, 
these are types that are by and large passede thru the Compost ion 
ToolboKt and thus type information is superfulous 

@doc 

««»»•«»»»**««»***»*****»»«»»»»***«*»««»*«*««*»»»»***»*«***«*«»***********«*/ 

llfndef „H„SCAPPTYP 
#4ef ine Ji.SCAPFIYP 

ilfdef JrflNDOWS 

fy #include <windows.h> 

l^ndif 

— — -Sa-S — — — — — */ 

class DemoView; 
llass CAGTest; 
blass ApplIOConteKt; 

jsaum { 

Japanese = 0, 
H= English, 
I J Spanish, 
f^, Italian, 

Portuguese, 

French, 

German , 

Dutch, 

Bokmal, 

Hynorsk , 

Swedish, 

Danish, 

Icelandic, 

Greek ;r 

Turkish, 

Russian, 

Croatian, 

Finnish, 

Miscellaneous, 

MAX_LANGUAGES 

// @type APPLanguage | An abstract type/magic cookie that the Composition ToolboK 

// may use to specify hyphenation language. 

typedef short APPLanguage; 



// @type APPColor i An abstract type/magic cookie that the Composition ToolboK 
// may use to specify color. 
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File: SCAPPTEX.H 

$Header: /Pro jects/Ioolbox/ct /SCAPPTEX.H 2 5/30/97 8:45a Wmanis $ 

Contains: The class for passing content plus typo state 
back between client and toolbox. 

Written by: Man is 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an adirtission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition ToolboK software is the proprietary 
and confidential property of Stonehand Inc. 

@doc 

#ifndef „H„SCAPPTEX 
#def ine _H„SCAPPTEX 

#ifdef SCMACIOTOSH 
'i^ragma once 
^ndif 

|||nclude "sctypes.h" 

djass stTeKtlmportExport { 
^^blic; 

n static stTeKtlmportExportS: MakeTeKtlmportExport ( int encoding - 1 ); 
|3 virtual void release() 0; 
// writing 

virtual void StartPara{ TypeSpec& ) = 0; 
^'-J virtual void SetParaSpec( TypeSpecSc ) = 0; 

I A virtual void PutString( const uchar*, int, TypeSpecSt ) « 0; 

virtual void PutString( stUnivStringS:, TypeSpecSc ) - 0; 
It virtual void PutChar( UCS2, TypeSpecSc ) - 0; 

// reading 

virtual int ^eKtPara( TypeSpecS* ) ^ 0; 

virtual int GetChar( UCS2Sc, TypeSpecS ) 0; 

virtual void reset () 0; 

virtual void resetpara() =0; 

}; 

#endif /* H SCAPPTEX */ 



File: WorkxCrt Prt\St onehndxScapptex . cpp 



} 

/* 
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pindex_ = paras_.NumItems() - 1; 

} 

void stTIEImp: :SetParaSpec( TypeSpecSt ts ) 
{ 

stParaSt p = currentPara ( ) ; 
p.setparaspac( ts ); 

} 



void stTIEImp: :PutString( const uchar* str, int len, TypeSpec& ts 
{ 

stParaSc p = currentPara ( ) ; 

p. append ( ts ); 

p. append ( str, len ); 

} 



void StTIEImp: :PutString( stUnivStringSc ustr, TypeSpecSc ts ) 
{ 

stParaSt p = currentPara ( ) ; 
p. append ( ts ); 
p. append ( ustr ); 

} 

vSid StTIEImp: :PutChar{ UCS2 ch, TypeSpecSt ts ) 

I- 

lU stParaSc p « currentPara () ; 
k3 p. append ( ts ); 
p, append { ch ); 

z 

^/ reading 

ISt StTIEImp: :NextPara( TypeSpecSc ts ) 

I J pindeK„++; 

if ( pindeK_ < paras^.Humltems () ) { 
ts = paras_[pindeK„] .paraspec(}; 
O paras„[pindes„] .validate () ; 

f'i return pindes_; 

} 

return -1; 

} 



int StTIEImp: :GetChar( UCS2S< ch, TypeSpecS ts ) 
{ 

StParaSc p = currentPara ( ) ; 
return p.get( ch, ts ); 

} 



void StTIEImp; : reset () 
{ 

pindes„ - -1; 

} 



void StTIEImp: ; reset para () 
{ 

StParaSc p ^ currentPara () ; 
p . reset ( ) ; 
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class stTIEImp : public stTeKtlmportExport { 
public : 

stTIEImpO; 
'"stTIEImpO; 

void release (); 

// writing 

virtual void StartPara( TypeSpecSt ); 

virtual void SetParaSpec( TypeSpec& ); 

virtual void PutStrin0( const uchar*, int. TypeSpecSc ) 

virtual void PutString( stUnivString&^ TypeSpec& ); 

virtual void PutChar( UCS2, TypeSpec& ); 

reading 

virtual int NextPara( TypeSpec& ); 

virtual int GetChar( TypeSpecSc ); 

virtual void reset (); 

virtual void resetpara(); 

protected : 

stParaS currentPara ( ) ; 

int32 pindeK_; 
scSi2eableArrayD<stPara> paras_; 



ptXeKt Import EKportSc stTestlmportEsport : :MakeTextImportEKport ( 

stTIEImp* stmp = new stTIEImp(); 
fy return *stiinp; 

y% — = -as -St !=:as = = == = =! 5K« as = ass = = «s=»=^ 

BTOEImp: :stTIEImp() 

r 

reset ( ) ; 

P 



.^TIEImp : :~stTIEImp ( ) 



void stTIEImp: : re lease () 
{ 

delete this; 

} 

stParaSs stTIEImp : : currentPara ( ) 
{ 

return paras__[pindeK_] ; 

} 

// importing 

void StTIEImp: :StartPara( TypeSpecSc ts ) 
{ 

if ( paras„.lsfumltems() > 0 ) 

paras_[pindeK_] .complete () ; 



stPara newPara ( ts ) ; 
paras„, Append ( newPara ); 
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void stPara: : append ( stUnivString& ustr ) 
{ 

for ( unsigned i «= 0; i < ustr.len; i++ ) 
ch_,Append( (UCS2)ustr.ptr[i] ); 

} 



void stPara: ; append ( UCS2 ch ) 
{ 

ch„. Append ( ch ); 

} 



stParaS: stPara: :operator=( const stPara& p ) 
{ 

ch__ . RemoveAl 1 ( ) ; 

for C int i « 0; i < p.ch„.KuraIteius() ; ) 
ch„. Append ( p.c:h_[i] ); 

choffset_ = p.c:hoffset„; 

specs„ . RemoveAl 1 () ; 

for ( 1 = 0; i < p , specs... NumltemsO ; i++ ) 
specs„. Append ( p.specs„[i] ); 



paraspec_ = p.paraspec_; 
return *this; 



fiit StPara: :get( UCS2S( ch, TypeSpecSc spec ) 

a 

if ( choffset_ < ch„,HxtmItems() ) { 

spec - specs.. SpecAtOffset( choffset. ). 
ch ^ ch_[choffset.++3 ; 
fi return choffset.; 



} 

return 0; 



lAt StPara: : validate () const 

M 

5!==^ scAssert{ paraspec„.ptr ( ) ); 
'-'"^ specs„.DebugRun( "stPara :: validate" ); 
return 1; 



void StPara: :setparaspec( TypeSpec& ts ) 
{ 

paraspec_ = ts; 

scAssert( ch_.NumItems() 0 ) ; 
specs^.AppendSpec ( ts, 0 ); 

} 



/* 



int StPara : : complete ( ) 
{ 

if { specs„.lslumltems ( ) === 1 ) 

specs„.AppendSpec( paraspec„, 0 )\ 



} 



return validate (); 
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File: SCAPPTEX.C 

$Header: >^Projects/Toolbox/ct/SCAPPTEX.CPP 2 5^30/97 8:45a Wmanis $ 
Contains : 

This module takes a handle to APPTestRun structure and manages the 
memory (specs & chars) associated with it. Locking and unlocking. It 
also maintains some internal structures that used for reading the text 
between the lock and unlock calls. Refer to the 
APPTestRun in SCTextExch . h , 

Written by; Man is 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



#include "scapptex ,h" 
^mcludB "scparagr.h" 



s|.|iara: :stPara( ) : 
-f paraspec_( 0 ) 

{U 

ill reset (); 

stgara: :stPara( TypeSpec& pspec ) : 
paraspec_( pspec ) 

id if ( pspec. ptr() ) 

1^ specs„,AppendSpec( pspec, 0 ); 

1 ^ reset ( ) ; 

stPara: r^'stParaO 

{ 

} 

void stPara: : append { TypeSpecSc ts ) 

if { ts !- specs„.SpecAtOffset( ch„,NumItems() ) ) 
^ specs_,AppendSpec( ts, ch„.MumItems () ); 

void StPara: : append { const uchar* ch, int len ) 

for { int i » 0; i < len; i++ ) 
^ ch_. Append ( (UCS2)ch[i] ); 



File : Work\CrtPrt\Stonehnd\Scappint . h 

void scIMPL_EXPORT SCDebugParaSpecs ( scSelection* ); 

void scIMPL_EXPORT SCSTR_Debug( scStream* ); 

#endif /• DEBUG •/ 

#©ndif /• _H;_SCAPPIKIT •/ 
//</pre></html> 
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} 



virtual void range ( scStreamLocation&, scStreamLocationS. ) = 0; 



status SCSTR„aetContUnitIter( scStream*, stContUnitIter»& ); 
status SCSEL„GetContUnitIter( scSelection*, stContUnitIter»& ); 



Class stFindlter { 

public: 

virtual void 

virtual void 

virtual int 

virtual int 

virtual mt 

virtual void 



release () ^ 0; 
reset {) 0; 

setselection( scSelection* ) ^ 0; 
ne^t() - 0; 

replacetokerL( stUnivStringS: ) = 0; 

range ( scStreamLocationSc. scStreaiuLocationSc ) = 0; 



status SCSTR_QetFindIter( scStream*, 

stUnivStrincf&, 
const SearchStateSc, 
stFindIter*& ); 

status SCSEL„GetFindlter( scSelection*, 

stUnivStringS:. 
const SearchStateSc, 
stFindIter*& ) ; 



#l"|def scRubiSupprt 
clgss scAnnotation; 

/rjtake the select id and find the nth annotation within the selection, 
/?af no annotation is found - noAction is returned 

.^<ri[ ] [ ] 

sis'tus scIMPL„EXPORT SCSEL^G^tAnnotation ( scSelection*, 

int nth, 

p scAnnotationS. ); 

/>=--apply the annotation to the indicated select id id, if there is an 
/^ijesisting annotation it will be deleted 
//If ] [ ] 

s|§tus scIMPL_EXPORT SCSEL.ApplyAnnotation ( scSelection*, 

const scAnnotationSc, 
%J scRedispList* ); 

#endif 



void scIMPL_EXPORT 



#if SCDEBUG > 1 



SCCOL„InvertEKtents( scColuinn*, 

HiliteFuncPtr, 
APPDrwCtK ); 



these return the size of the memory image of these structures 
long scIMPLEXPORT SCCOLJebugSize ( scColumn* ); 

long sclMPLJXPORT SCSTR„DebugSise ( scStream* ); 



void scIMPL_EXPORT 



void scIMPL_EXPORT 
void scIMPL^EXPORT 



SCCOL_InvertRegion( scColumn*, 

HiliteFuncPtr, 
APPDrwCtK ); 

SCDebugColumnList( void }; 
SCDebugColumn( scColumn*, 

int contentLevel ) ; 
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SubstituteFunc func, 
scRedispList* damage ) ; 



/» s; K w K s b: = s; ss SB S! = =S =e M = ss w ss = w a s ss 3! k; s; w s = ffl S5 a? 53 sc = =t =: K = s = IK = 

// DEPRECATED 

// check spelling in the stream 

// 

status scIMPL^EXPORT SCSTR„Iter( scStreazn* streamID, 

Subst ItuteFunc f unc , 
scRedispList* damage ) ; 



// DEPRECATED 

status scIMPLEXPORT SCSTR„Search ( scStream* streamID, 

const 1JCS2* findString, 
Subst i tuteFunc f unc , 
scRedispList* damage ) ; 

// (Sifunc Search for the string from the current selection. When 
the B-tTxnq is found move the selection to it. 

status scIMPLJXPORT SCSEL^FindString ( 

scSelection* select, @para <c scSelection> 

const UCS2* findString ); i^arm <t UCS2> string to find. 

/» K w K » S5 » = 3tt s!! == s; » K 3K as s w s= » 5S » as SK s a = 5= ss a 3C a; ss 35 » » =; = M = M as =s =c 

/f^sthis returns whether or not the column potentially has test, if 

because of reformatting nothing lands in here we will still return 
/y^ true successful has tent 

Ml 



^[ ] [ ] 

mkxus scIMPl-.EXPORr SCCOL^HasTeKt ( scColumn* colID ); 

A^'at start up this will have the first token selected 

qilss stTokenlter { 
piiji ic; 

/"I virtual void release(} = 0; 
V4 virtual void reset () - 0; 

f-, sets a selection of the iterators para 

'vt virtual int paraselection( scSelection* ) = 0; 

sets selection for the token iterator 
virtual int setselection( scSelection* ) - 0; 

// retrieves the next token, 
// the string should have its size set in the 
// len field, if the token will not fit 
// in the string, a negative number is returned 
// that specifies the size, try again with a sufficient 
size string 

virtual int gettoken( stUnivString& ) = 0: 

// replaces the current token 
virtual int replacetoken ( stUnivStringa ) ^ 0; 



// moves to next token 
virtual int neKt() ^ 0; 



class St ContUni titer { 

virtual void release () - 0; 

virtual void reset () ^ 0; 

virtual int gettokeniter( stTokenIter»St ) - 0; 

virtual int nest() = 0> 
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// @fuRC Copies a selection of test, returning the copy m the scScrapPtr. 

// <a name«"SCSEL„CopyTeKt ">-</&> 

status scIMPL„EXPORT SCSEL.CopyTeKt { 

scSelection* sel, §pam <c scSelection> 

scScrapPtrSt scrap ) ; // l^axm <c scScrapPtr> 



// @func Pastes a selection of test contained in scScrapPtr into a stream 
// at the insertion point marked by scSelection. If scSelection is 
a selection of one or more characters, the selected characters 
are deleted from the stream before the scScrapPtr text is pasted in. 
// This operation copies the text as it pastes it. Therefore, 

mxlti^lB pastes can be made with the same scScrapPtr 
// without making any explicit copies. 
// feref <f SCSEL_CutTeKt>, <f SCSEL CopyTeKt> 
status scIMPL^EXPORT SCSEL„PasteTeKt ( 

scSelection* 
scScrapPtr 
TypeSpec 
scRedispList* 



sel , 

scrap 

ts. 



// @parm <c scSelection> 
// @parm <c scScrapPtr> 
// iparm If HULL uses prev spec, 
rinfo );// @parm <c scRedispList> 

Redisplay info, arg may be zero. 



@func The following is a useful call to get a stream from a selection and the 
the first typsspec in the selection 

l&tus scIMPL_EXPORT SCSEL„GetStream ( 

fu const scSelection* sel, // @parm <c scSelection> 

'.^2 scStreaffi»Sc str, // @parm <c scStream> 

TypeSpecSc ts ) ; // @parm The first <t TypeSpec > . 



Ah see doc in html file 

^fttus SCSEL„InsertField( scSelection*, 

const clFieldSc, 
M= TypeSpecSt, 
f==l scRedispList* damage ); 

// The following are for spell checkings */ 

// actual definition in SCTYPES.H 
Substitution function 

inWord and outWord are null terminated strings 
// outWord is allocated and freed by application 

// 

// the substitution should function returns 

// - successful if the word has been changed 

// - noAction if no change is necessairy^ 

- other error to be propogated back to app 

// 

typedef status (*SubstituteFunc) { UCS2»*outWord, UCS2*inWord ); 

// 
// 

// DEPRECATED 

check spelling in selection, 

this is best used in conjunction with SCMoveSelect 

// 

status scIMPL_EXPORT SCSEL_Iter( scSelection* select ID, 
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// to follow. 

scKeyRecord* keyRecs, // @parm <c scReyRecord> 
scRedispList* riafo ); // @parm <c scRedispList> 

// Redisplay info, arg may be zero. 

// @func For immediate redisplay of test that has been altered in editing. 

It redisplays only those lines mWch the cursor has been on. 
// Typing a carriage return should force two lines to be redisplayed 
// immediately; likewise for a backspace at the beginning of a line. 
// Normally only one line needs to be redisplayed. 
// IF THE OPERATION CROSSES C0LIM5S, OHLY THE COLUMN 
// IN V^ICH THE CURSOR ENDS UP IS UPDATED. 
// 

status scIMPL.EXPORT SCCOL„UpdateLine( 

scColumn* col^ // §parm <c scSelection> 

scImmediateRedispSt immred, // @parm <c scImmediateRedisp> 
APPD™ctK drwctK ); // @parm <t APPDrwCtK> 



// @func Applies a <t TypeSpeO to a <c scSelection> , 
all specs contained m the selection, 

// 

status scIMPL^EXPORT SCSEL_SetTeKtStyle ( 

scSelection* sel , 
TypeSpec ts^ 
scRedispList* rinfo ); 



The TypeSpec replaces 



// @parm <c scSelection> 
// @parm <t TypeSpeO 

@parm <c scRedispList> 

Redisplay mfo, arg may be sero. 



\4 Applies a character transformation (to ail caps, for esampie) 
/"jCi to the selection . 

a1 

>^ \\ i\ 

^atus scIMPL_EXPORT SCSEL JTeK tTr ans ( scSelection*, 
13 eChTranType, 

int, 

. \ scRedispList* ) ; 



l^^^^^^^^^^^^ TEXT LEVEL CUT, COPY, PASTE & CLEAR 

// These routines cut and paste paragraphs and text characters. 

All relevant paragraph attributes and character attributes are maintained. 

The scrap is maintained in internal Toolbox formats. 

// 

// (ifunc Cuts a selection of text, returning it in the scScrapPtr. 

// 

status scIMPLJXPORT SCSELJutText ( 

scSelection* 
scScrapPtrSc 
scRedispList* 



sel, // (§parm <c scSelection> 

scrapPtr, // §parm <c scScrapPtr> 
rInfo ) ; // @parm <c scRedispList> 

// Redisplay info, arg may be zero. 



// @func Deletes a selection of text. 

// 

status scIHPL_£XPORT SCSEL^ClearText ( 

scSelection* sel, // @parm <c scSelection> 

scRedispList* rInfo ); @parm <c scRedispList> 

// Redisplay info, arg may be zero. 



File : Work\CrtPrt\Stonehnd\Scappint .h 



Pg: 20 



status scIMPL„EXPORT SCSEL_Restore ( 

const scStream* stream, // @parm <c scStreaKi> 

const scStreamLocationS: mark, // @pann <c scStreamLocation> 

const scStreamLocation& point, // @parm <c scStreainLocation> 

scSelection*Se sel, // @parm <c scSelection> 

Bool geoisetryChang© ); // has the layout changed 



// §£unc Using a hitpt and a modifier (such as selection of a word or paragraph), 
// returns a selection. 

// 

status scIMPLJXPORT 



SCCOL„SelectSpeciai ( 

scColumn* col, 

const scMuPointSc hitPt, 

eSelectModif ier mod, 

scSelection*£t sel ) ; 



// §parm <c scColumn> 
// @pann Hit point. 
// §parm <t eSelectModif i©r> 
§pa3:m <c scSelection> 



/» ae - 5- - - - - K Si » s a =! s as ST 5= = s= IS =: s SE ffl a K » S! 

// This grows the selection according to the enum eSelectMove found in 
// sctj^es.h 

// 

status scIMPL_EXPORT SCSEL„Move( scSelection*, 

eSelectMove ) ; 

~ = = — = — — = = = s= — = = = = = « t= KISS'S =i = ^ = = 5= =; s= M 

This alters the selection point according to the enum eSelectMove found in 
|P= sctypes,h 

f-gatus scIMPL„EXPORT SCSELjKtend ( scSelection*, eSelectMove ); 

/^4fesc » » St ss « = =s s= =E = K = = ss r: s ss sc == s= SB 2s ss =5 = ss 3S K 5S 3S S5 5S ss as K 

W select the nth pagraph of a stream - if yau go off the end 
^/ status returns noAction 

\ \ 

sISatus scIMPL„EXPDRT SCSTR„NthParaSelect ( scStream* streamID, 

long nthPara, 

scSelection* select ); 



// §func Highlights the current selection, using the function pointer passed 
// in, the coordinates that will be contained in the call back are in 
// object coordinates and MUST be transformed to device coordinates. 

// 

status scIMPL.EXPORT SCSEL_Hi 1 i te { 

scSelection* sel, // @parm <c scSelection> 

HiliteFuncPtr appDrawRect ); // §parm <t HiliteFuncPtr> 



EDITING MESSAGES ^^^^^^^^^^^^^^^^^^^^^^^/ 

// @func Inserts keystrokes into the given stream. Place one or more keystrokes 
// into the array. KULL values in the key record array v?ill simply be ignored. 

scReyRecord* points to an array of keystrokes; numKeys is the number 
//of elements in the array. 

// Stores information for undo in the key records. Sample code will illustrate 
// how to take the inverse values in scKeyRecord and use them to undo the 
// insertion of keystrokes. 

// 

status scIMPL.EXPORT SCSEL„InsertKeyRecords ( 

scSelection* sel, // @parm <c scSelection> 

short numRecs, // §parm Number of key recs 
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const scMuFoint^ hitpt, // §pam The hit point in 

// object coordinates, 
hifunc^ §pam <t HiliteFuncPtr> 
drwctx, // @parra <t APPDrwCtK> 
sel ); // ^arm <c scSelection> to be filled in 
// by the Composition Toolbox. 



HiliteFuncPtr 

APPDrwCtx 

scSelection*Sc 



// @func This extends the selection from the scStreamLocation and then may 

// be followed with <f SCCOL_EKtendSelect> . 

// @sref <f SCCOL„StartSelect> 

status scIMPL.EXPORT SCCOL.StartSelect ( 

scColumn* col, 

scStreamLocation Si stloc, 

const scMuPointS hitpt. 



HiliteFuncPtr 

APPDrwCtx 

scSelection*S: 



hlfunc, 
drwctx , 
sel ); 



// @pa3rm <c scColuirtn> 

@parm <c scStreamLocation> 
// @parm The hit point in 
// object coordinates. 
^/ @parm <t HiliteFuncPtr> 
// @pdrm <t APPDrwCtK> 
// @parm <c scSelection> 



@func Extends a selection derived from <f SCCOL_EHtendSelect> , 
// be used over multiple columns in a flowset. 



Can 



status scIMPL EXPORT 



SCCOL„ExtendSelect ( 

scCol^Amn* col, 

const scMuPoint£( hitpt. 

Hi 1 i teFuncPtr hi f unc , 

APPDrwCtx drwctx , 

scSelection* sel ) ; 



// @parm <c scColumn> 

@parm The hit point in 
// object coordinates. 
// @panti <t HiliteFuncPtr> 
// @pann <t APPDrwCtx > 
// @pa3rm <c scSelection> 



^i^; @func Converts a <c scSelection> into a mark and point - 

>^ The mark is guaranteed to logically precede the point. 

'4^ This call is typically used in conjunction with <f SCSEL„Restore> and 

}f to determine information at the selection point, 

@xref <f SCCOL„StartSelect>, <f SCCOL_ExtendSelect> , <f SCCOL_InitialSelect> 

s-gatus scIMPL.EXPORT SCSELJecompose ( 

H ~i scSelection* sel , // @parm <c scSelection> 

^ scStreamLocationS: mark, // @parm <c scStreamLocation> 

f^- scStreamLocationS: point );// @parm <c scStreamLocation> 

i2 same as above except that the selection is not sorted 

Itfatus scIMPL^EXPORT SCSEL_Decompose2( 

scSelection* sel, @parm <c scSelection> 

scStreamLocationS* mark, // @parm <c scStreamLocation> 
scStreamLocationSt point ) ^// @parm <c scStreamLocation> 



@func Invalidates the selection in the toolbox, changes the selection 
// to null and invalidates the selection in the toolbox 

status scIMPL_EXPORT SCSEL_Invalidate ( 

scSeiection*£! sel ) ; // @parm <c scSelection> 

ss =s ss » =t ss IS aat ss =s 3= 3= ==s « as as a; s = a s « tB» =s « k k « ss !s » ss » » a = =s = = s: st=s k= st si sssa sc = s ss s; a » as » =s ss ss s « ss = rs 

@func Sets up a text selection, using the given 
// mark and point. Useful for restoring the selection 
// when re-activating a document, and for undo and redo, 
// especially for undoing arrow and backspace keystrokes. 

In this call the <c scStreamLocation> need only have the following 
// member variables filled in; 
// <nl> fParaNura 
// <nl> fParaOffset 

<nl>All the rest are unneeded. After this call subsequent calls 
// to <f SCSEL_Decompose> will fill in the scStreamLocation values 
// correctly. 
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status scIHPL_EXPORT SCOB J„PtrRestore ( 

scTBObj* obj, @parm Restore this objects pointers. 

scSet* enumXable ); @pann Use this enumtable. 

// @func Prior to calling SCOBJ_PtrRestore the client may want to abort 

// the action for some reason. In that case call the following 

// and all objects that have been read in^ but have not had 

// their pointers restored will be deleted, including the 

// the enumeration table (scSet) 

// 

status scIMPL^EXPORT SCSET„Abort( 

scSet*£c enumTable ) ; // §parm <c scSet> 

// @func Gives the size of a Toolbox object that will be written to disk. 

// The first column in a flov5 set V5ill contain the content/sctream . 

// 

status scIMPL„EXPORT SCExternalSize ( 

scCoiiJimn* col, // @parm <c scColumn> 

longSc bytes ); @pann Disk bytes. 

SELECTIOlsr MESSAGES ^^^^^^^^^^^^^^^^^^^^^^/ 



// @func Forces the initial selection within an empty container by creating 
// an initial stream. Two conditions present interesting error conditions 
// with this call . 

<nl>l. If the formatted text cannot fit into the container a 
y-^ scERRstructure is returned, 

Xi <nl>2. If the container is not the first in a flow set then 
m scERRlogical is returned. 

M <nl>The client must perform the first highlighting of the cursor by 
following this call with a call to <f SCHiLite> . 

Ifatus scIMPL_EXPORT SCCOL„InitialSelect ( 
\ J scCo 1 umn* co 1 , 

TypeSpec£< spec, 
'^^ scSelection*S£ select ); 



M @func Provides information on how good the hit is, 
it to be used for selection evaluation, 

Zl the REAL num is the distance squared in micropoints from the 
hitpoint to the nearest charcter and its baseline 

m 

status scIMPLJXPORT SCCOL„ClickEvaluate( 

scColumn* col, @parm <c scColumn>. 

const scMuPointSc evalpt,// iparm Point to evaluate. 

J^EALSc dist ) ;// @parm Squared dist in <t MicroPoints> . 

// @func The mouse down click should force a call of SCCOL„StartSelect and 
// mouse moves should get <f SCCOL„EKtendSelect> . Effectively the StartSelect 

message forces a flow set to get the focus. Is is an error to call 

ExtendSelect with a column from a different flow set than was called 
// from the original StartSelect. Also the client may want to coerce points 
// to lie within the column's extents. If the container is rotated the coercion 
// should happen in the containers coordinate space to insure correct 

interpretation of the coercion, 
// Mt&T the first StartSelect message the Selection is accurate so if 

auto scrolling is necessary it may be done, provided the clip region 
//is set up correctly. 
// <nl> 

// <nl>MOTE: The caller should filter out redundant mouse hits, (i.e if the 
// current mouse hit is the same as the last mouse hit don't call 
// SCCOL„ExtendSelect 
// 

status scIMPL_EXPORT SCCOL„StartSelect ( 

scColumn* col, // @parm <c scColumn> 



// §parm <c scColumn> 
// @pam <t TypeSpeO 
// iparm <c scSelection> 
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These routines read and write the ToolboK structures to disk, »/ 

// ifunc Tells the Toolbox that the application is about to 
// coKimence writing structures out. This zeros the enumeration 
// count of all objects in the Toolbox within this contest 

// 

status scIMPL„EXPORT SCTB_2eroEnumeration { void ); 



// @func Tells the object to enumerate itself, 

// 

status scIMPLJXPORT SCOBJ„Enumerate ( 

scTBObj* obj, 
longSt ecount ); 



// §func Stores the structures for this object. Streams and linked columns 
// are by default written out with the first column; writes to columns 
// that are not the first column of a stream are no-ops. 

status scIMPLJXPORT SCCOL_Write( 

scCoiumn* col, // ^parm <c scColumn> 

APPCtKPtr ctKp, // §parm <t APPCtKPtr> 

lOFuncPtr write ) ;// @parm <t IOFuncPtr> 



// §func Tells the Toolbox that the application is about to 

f% conimence reading structures in. This allocates an enumeration 
structure of class scSet, when the file was written out the 
client probably should have noted the enumeration count, by doing this 

p' we may allocate enough members of the enumeration structure 

m to at least guarantee that there will be no failure in inserting 

M members into the enumeration structure 

¥f 

yatus scIMPL_£XPORT SCSET^InitRead ( 

scSet*Se enumerationTable, // @parm Pointer to enum table 

f3 that Composition Toolbox will 

allocate - pre allocating the 
number of slots indicated to 

O minimize memoary failures on 

file i/o. 

.J long preAllocationCount ); // @parm Preallocate this many slots 

// in the enum table, 

@func Lets the Toolbox know the application is finished reading 
Iri so it can free structures for restoring pointers and will 
// recompose everything that needs recompostion . 

// 

status sclMPL.EXPORT SCSET„FiniRead ( 

scSet* enumTable, // @parm This table will be freed. 

scRedispList* rinfo ); // §parm <c scRedispList> 

// Redisplay info, arg may be zero. 



// @func Read this column. 

// 

status scIMPL^EXPORT SCCOL_Read( 

APPColumn appcol , 

scColumn*£s col , 

scSet* enumTable, 

APPCtxPtr ioctxptr, 

lOFuncPtr ioFuncPtr ) 



§parm Client's <t APPColumn> to 
// associate with this column. 
// @parm <c scColumn> 

@parm <c scSet> 

i^arm <t APPCtKPtr> Abstract file i/o type, 
\// @parm <t IOFuncPtr> write function pointer. 



// @func Tells the object to restore its pointers. This 
function relies upon <f APPDiskIDToPointer> . 

// 
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up" test. 



scSelection* 



sel, 



stTextImportExport& 
scRedispList* rinfo ) 



// @pantt <c scColumn> in flow set to pas 
the text, 

appText,// @pam <c scAPPTeKt> contains "marked 

; // iparm <c scRedispList> 

// Redisplay info, arg may be zero. 



@func Returns a copy of the given stream in APPTextS*, 
// §Kref <f SCFS_PasteAPPTest> 



status scIMPL„EXPORT 
t from, 
ked up" text, 
status scIMPL_EXPORT 

up" text from, 
ked up" text. 



SCSTR^GetAPPText ( 

scStreara* str, 

stTextImportExport& 

SCSEL_,GetAPPText ( 
scSelection* 

stTextImportExport& 



§parm <c scStream> to get "marked up" tex 
appText ); // @parm <c scAPPText> contains "mar 

str, // @parta <c scStream> to get "marked 

appText ); // @parm <c scAPPText> contains "mar 



COHTElsiT I/O 



These rautines read and write ASCII text files with mark-up. »/ 

ffr @func Imports Latin- 1 text — adds the contents of the text file 
H< to the column using the TypeSpec as the default text specification. 
The call back 10 function should conform to the header: 



^atus scIHPL.EXPORT SCFS^ReadTextFiie ( 
"J scColumn* 
™i TypeSpec 

APPCtxPtr 

s lOFuncPtr 

Q scRedispList* 



col, @parm <c scColumn> 

spec, // @parm <t TypeSpeO 
ctxp, // @parm <t APPCtxPtr> 
read, // §parm <t IOFuncPtr> 
rInfo ); // fparm <c scRedispList> 

Redisplay info, arg may be zero. 



@func Exports text 

o 

status scIMPL_EXPORT 



- writes the stream to the text file. 

SCSTR^WriteTextFile ( 

scStream* stream, // @parm <c scStream> 
APPCtxPtr ctxp, // @parm <t APPCtxPtr > 
lOFuncPtr write @pam <t IOFuncPtr> 



@func Reads an Latin-1 text file and returns a scrap handle to it. 
// This IS useful for importing text and pasting it into a stream 
at an insertion point. The call back 10 function should 
conform to the same header as above. 

// 

status scIMPL„EXPORT SCSCR„TextFile( 

scScrapPtr& scrapP, // @parm <t scScrapPtr> 
APPCtxPtr ctxp, // @pam <t APPCtKPtr> 

lOFuncPtr read ) ; // @parm <t IOFuncPtr> 



FILE I/O 
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scSpecLocListSc cslist ); // @parm <c scCharSpecList> has 

// positions of all specs contained. 

status scIMPL_EXPORT SCSEL.PARATSList ( scSelection* sel, 

scSpecLocListSc cslist ) ; 

@Func Counts the characters in a stream. This 
// does not repesent an exact count for file i/o 
of characters written out. 

// 

status scIMPL_EXPORT SCSTR^ChCount ( 

scStream* str, // %arm <c scStream> to query. 

longSi chCount ); // @parm Characters in stream. 



#ifdef scFlowJustify 

§func Sets the vertical justification attributes for the column to be 
// flush top (no justification), flush bottom, centered, justified, 
or force justified. 

// 

status scIMPLJXPORT SCCOL„FlowJustify ( 

scColuitin* col, // @pann <c scColumn> 

eVertJust v j ) ; // @parm <t eVertJust> 



ffr" @func Sets the depth of a vertically flexible column and 
'l( vertically justifies it. This is the only way to vertically 

justify a vert fleK column. It should not be used with columns 
yy that are not vert flex. 
■</ feref <f SCCOL„SetVertFlex> 

W:atus scIMPL„EXPORT SCCOL„SetDepthHVJ ( 

- scColumn* col. // @parm <c scColumn> 

C3 MicroPoint depth, // §parm Depth to VJ to, 

\A scRedispList* rinfo ); // @parm <c scRedispList> 

l^X Redisplay info, arg may be zero. 



lisndif /•* scFlowJustify »/ 

COOTEOT CUT, COPY, PASTE S= CLEAR «««===:=:==^=««=*/ 

// These routines move text in and out of the Toolbox, 
// with filters converting text as necessary. 

// @func Appends the text contained in the APPText to the end 
// of the stream associated with the scCoiumn* (formerly SCReadAPPText^ 
§xref <f SCSTR_GetAPPText> 

status scIMPL^EXPORT SCFS_PasteAPPText ( 

scColumn* col, // @partrt <c scColumn> in flow set to paste 

// the text, 

stTextlmportExportSc appText, // @parm <c scAPPText> contains "mar 



ked up" test. 



scRedispList* rInfo ); // iparm <c scRedispList> 

// Redisplay info, arg may be zero. 



status scIMPL^EXPORT SCSEL„PasteAPPText ( 
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eSpecTask spacTask . 

scRedispList* rinfo ); 



reformatted to reflect the change. 
// @parm <t eSpecTask> tells the tooiboK 

what action to take to repair the change. 

@parm <c scRedispList> 
// Redisplay info, arg may foe zero, 



@func Gets a list of TypeSpecs in a column. 
// @xref <f SCSTR„TSList>, <f SCSEL„TSList> 

status scIMPL^EXPORT SCCOL_TSList ( 

scCoiumn* col, @parm <c scColumn> to query. 

scTypeSpecListSc tsiist ); @parm <c scTypeSpecList> contains 

// a list of specs used. 



@func Gets a list of TypeSpecs in a stream. When working with linked columns 
// this is more efficient than iteratively calling SCColTSList. 
// @Kref <f SCCOLjrSList>, <f SCSEL TSList> 



status scIMPL„EXPORT 



SCSTR„TSList( 

scStream* coi, 
scTypeSpecListS: tsiist ); 



ifunc Gets a list of ParaTypeSpecs in a stream. 
//=:r^@xref <f ZQdOLJJ^LxBty . <f ^tlS^l._y^liB%> 



s'titus sclHPL„EXPORT 



SCSTR_ParaTSList( 

scStream* col , 

scTypeSpecListSc tsiist ); 



'^|'y@func Gets a list of TypeSpecs in a selection, 
/<j@sref <f SCCOLjrSList>, <f SCSTR_TSList> 



siitus sclMPL„EXPORT 



status scIMPL„EXPORT 



SCSEL„TSList{ 

scSelection* sel, 
scTypeSpecListSc tsiist ); 

SCSEL_PARATSList{ 

scSelection* sel, 
ScTypeSpecListS. tsiist ); 



@parm <c scStream> to guery. 
// §parm <c scTypeSpecList> contains 
^/ a list of specs used. 



§parm <c scStream> to query. 
// @parm <c scTypeSpecList> contains 
a list of specs used. 



@parm <c scSelection> . 
iparm <c scTypeSpecList> contains 
//a list of specs used. 

@parm <c scSelection> , 

@parm <c scTypeSpecList> contains 

a list of specs used. 



// §func Gets a list of the (TypeSpec, character location) pairs 
// representing the TypeSpec runs of the stream. 



status scIMPLJXPORT 



status scIMPL_EXPORT 



SCSTR„CHrSList( 

scStream* stream, // @parm <c scStream> to query. 

scSpecLocListSc csiist ); // @parm <c scCharSpecList> has 

positions of all specs contained. 

SCSTR„PARATSList( scStream* stream, 

scSpecLocListS: csiist ); 



// @func Gets a list of the (TypeSpec, character location) pairs 

representing the TypeSpec runs of the selection. 

CAUTIOIsf: the ends of paragraphs are marked by MULL specs, 
// so depending on how many paragraphs the selection traverses, 
// there may be multiple NULL specs contained in the list. 

These NULL specs are not terminators of the list; 
// rely upon the CharSpecListHandle's count field for the 

accurate number of structures in the list. 

// 

status scIMPL_EXPORT SCSEL.CHISList ( 

scSelection* sel, // @parm <c scSeiection> to query. 
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TypeSpec ts ) ; 



// §parm <t TypeSpec> to apply to string. 



// @func Frees the scScrapPtr. 

// 

status scIMPL.EXPORT SCSCR_Free{ 

scScraipPtr scrap 



// ^parrn <c scScrapPtr) 



// @func Returns the list of specs referenced by the contents of the scScrapPtr. 



// 

status scIMPL EXPORT 



SCSCR„TSList( 

scScrapPtr scrap, 
scTypeSpecListSt tslist ); 



// @parm <c scScrapPtr> 
@parm <c scTypeSpecList> 



// @func Writes the contents of the scScrapPtr to disk. 



status scIMPL_EXPORT 



SCSCR_Write( 
scScrapPtr 
APPCtKPtr 
lOFuncPtr 



scrapPtr, 
ctxPtr^ 
iofuncp ); 



// @parm <c scScrapPtr > 
// §pann <t APPCtxPtr> 
(Sparm <t IOFuncPtr> 



ffi @func Reads from disk into the scScrapPtr. 
Z/, Scrap to be read must be a column. 
Vt @Href <f SCSET„InitRead> 
siatus scIMPL^EXPORT SCSCR^ReadCol ( 
IJ scScrapPtrSi 
; \ scSet* 
2 APPCtKPtr 
C3 lOFuncPtr 



scrap, // @parm <c scScrapPtr> 

ennmtabie, // §parm <c scSet> 

ctKPtr, // @parta <t APPCtKPtr> 

readFunc ) ; // @parm <t IOFuncPtr> 



4/1 @func Reads from disk into the scScrapPtr, using the call back 
^4 read routine, which should conform to the same header as above. 
/A Scrap to be read must be a stream. 



CCatus scIMPLJXPORT 



SCSCR„ReadStream( 
scScrapPtrSi 
scSet* 
APPCtKPtr 
lOFuncPtr 



scraps // @parm <c scScrapPtr> 

enumtable, // @parm <c scSet> 
ctxPtr, // @paxm <t APPCtsPtr> 
readFunc ) ; // @parm <t IOFuncPtr> 



TYPE SPECIFICATION 



// @func Informs the Toolbox that the TypeSpec has been changed and 
// tells it V5hat action needs to be taken to respond accordingly. 
// The Toolbox will recompose, rebreak, or repaint (as instructed 
// by SpecTask) and report back on damage. SpecTasks may be ORed 
// together to indicate multiple tasks. The host application 

can derive the tasks by calling the function SpecTaskCa leu late, 
// located in the source module (delivered with the Toolbox) 
// sc„spchg . cpp , 



status scIMPL^EXPORT SCENG^ChangedTS ( 

TypeSpec ts, // iparm <t TypeSpeO has changed and text n 

eeds to be 
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// in the column's coordinate system. 

// 

status scIMPLJXPORT SCCOLQuerylnkEKtents { 

scColumn* col* // @parm <c scColumn> to query. 

scXRectSc inkEstents ); @partn <t scXRect> 



// @func Queries margins of the column. Returns the actual size of the 
// container, rather than the extents. Only meaningful for rectangular 
// containers. Bear m mind that the ink of text may extend outside of the 
// container. 

// 

status scIMPL_EXPORT SCCOL_QueryMargins( 

scColumn* col, // @parm <c scColumn> to query. 

scXRectS: margins ); // §parm <t scXRect> 

// Queries positions of the column's lines. For each line, it queries 

// the baseline, the extents, and the character characteristics at 

// the start (k height, ascender height, descender height, cap height, etc. ). 

// The last two parameters indicate the number of lines and whether text 

// overflows the column. 

// Typically used for alignment purposes. Positions are in the container's 
// local coordinates. 

// 

//[IE] 

status scIMPL„EXPORT SCCOL^LinePositions ( scColumn*, 

scLineInf oList* , 
longSt, 

O BooISc ); 

m @func Queries the depth of the column. Useful for determining the depth 
4/\ of irregularly shaped columns. 

f flatus scIMPL_EXPORT SCCOL_Size( 

W scColumn* col, @parm <c scColumn> 

"^J scSiseSc size ); // @parm <c scSize> 



SCRAP CONVERSION =.-=«=.»«-=.=«=«^«==. 



4^ These routines provide a means of converting between the Toolbox 
44 world and the outside world, typically a conversion into the 
lowest common denominator — text. 

Af 

@func Converts Toolbox scrap m the scScrapPtr to global scrap and 
stores it in the given Handle, mhich should be passed in as a 
// valid handle. The Handle then contains 

a "C" string. This is one case where the Toolbox will not free 
the new structure it creates. 

// 

status scIMPLJXPORT SCSCR^ConToSys ( 

scScrapPtr scrap, // ©para <c scScrapPtr> 

Sy3temMemoryObject& memobj ) ; @parm <c SystemMemoryObject> 



// @func Converts global scrap in the Handle to Toolbox scrap 
// and places it in the given scScrapPtr, putting it on 

the internal Toolbox clipboard. The handle should contain 

a "C" string, so that when 0 is encountered, we stop reading. 

status scIMPL.EXPORT SCSCR.SysToCon ( 

scScrapPtr& scrap, // (Sparm <c scScrapPtr> 

const scChar* stringscrap,/-/- @parm Null terminated "C" string 

from system scrap. 
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const scXRectS rect ) ; // @parm <c scXRect> 



Perform Boolean operations on regions, the 3rd arg may be one of the 
// 2 original regions^ in that case it will replace the contents of after the 
// operation is complete. 

// @func Performs an intersection of two regions, placing the intersection 
in a third region. 

status scIMPLJXPORT SCHRGlsl„Sect ( 

const HRgnHandie rl, @parm <t HRgnHandle> 

const HRgnHandie r2, // @parm <t HRgnHandle> 

HRgnHandie intersection @pam <t HRgnHandle>, 

// the intersection of rl & r2. 

/y §func Performs the union of two regions, placing the union m a third region. 

status scIMPLJXPORT SCHRdif.Union ( 

const HRgnHandie rl, @parai <t HRgnHandle> 

const HRgnHandie r2, @parm <t HRgnHandle> 

HRgnHandie rUnion ); // @pann <t HRgnHandle>, 

/*/ the union of rl £c r2. 



// @func Performs a difference of two regions, placing the diff 
// in a third region, 

status scIMPL^EXPORT SCHRGH_Diff( 

const HRgnHandie rl, §parm <t HRgnHandle> 

const HRgnHandie r2, // @parEn <t HRgnHandle> 

V3 HRgnHandie difference ); // @parm <t HRgnHandle>, 

fn y/ the difference of rl & r2. 

\^ 

4/1 @func Performs an Kor of two regions, placing the result in a third region, 
stktus scIMPL^EXPORT SCHRGN_Xor{ 

i3 const HRgnHandie rl, @panti <t HRgnHandle> 

const HRgnHandie r2, // @parm <t HRgnHandle> 

~K HRgnHandie sor ); // @parm <t HRgnHandle>, 

// the xor of rl Se r2 . 

f^dif 

f ^ 



// @func Renders/draws that part of the column lying within the 

// given rect. The scXRect is in local coordinates. The ToolboK 

// then calls back to the client using <f APPDrawStartLine> , 

// <f APPDrawString>, & <f APPDrawEndLine> , passing the <t APPDrwCts> 

// through. This call and <f SCCOLJJpdateLine> are the only two calls 

/y that cause glyphs to be drawn. ALL DRAWING OF TOOLBOX COKTAIHERS 

/y HAPPENS AT THE BEHEST OF THE CLIEOT. 

// @xref <k APPDrawStartLine>, <k APPDrawString>, Sc <k APPDrawEndLine> 

status scIMPL^EXPORT SCCOL^Update ( 

scColumn* col, // §parm <c scColumn> to draw 

const scXRectSt clipRect, @parm Clip rect. 

APPDarwCtx dc ) ; ©parm Drawing context . 



COKITAIKrER & LIlsIE EXTEHTS ==«=««=»=.«==».==^==:====*/ 



// @func Queries ink extents of the column. The extents returned are 
// the maximum bounding box of the maximum character extents expressed 
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const fiRgnHandle rgn, 
MicroPointSc sliverSise) ; 



@func: Dispose a region. 



status scIMPL_EXPORT 



SCHRaisLDispose( 

HRgnHandie disHgn ); 

// §func Make a region empty, remove all slivers. 



status scIMPL„EXPORT 



SCHRGN_SetEmpty( 

HRgnHandle emptyRgn ) ; 



// @func Is a region empty. 

// @rdesc scSuccess empty region 



status scIMPL EXPORT 



SCHRGN_Empty( 

const HRgnHandle emptyRgn ) 



// @parm <t HRgnHandle> 
// @parm Size of sliver. 



^/ §parm <t HRgnHandle> to dispose. 



@parm <t HRgnHandle> to empty. 



// @parm <t HRgnHandle> to test. 



@func Compare to regions for equality. 
// @rdesc scSuccess equality 



status scIMPLJXPORT 



SCHRGN_Equal( 

const HRgnHandle rgnl, 
const HRgnHandle rgn2 ) ; 



@func Determine if point is in region. 
// @rdesc scSuccess === equality 

// 

status scIMPL„EXPORT SCHRGM_PtIn( 

''^ const 'BB^nl^B.tLdl^ 

:J const scMuPointSc 



rgn, 

Pt ), 



// @parm <t HRgnHandle>. 
// @parm <t HRgnHandle> . 



// §pann <t HRgnHandle> to test. 
§parm <c scMuPoint> 



4<\ @func Make a region rectangular. 

yt 

ifttus scIMPLJXPORT SCHRGN_.Rect ( 

^ HRgnHandle rng, // @parm Region to apply rect . 

const scXRect& rect ) ; // @pann <c scXRect> 

@f unc Make a region from a set of verticies ( closed polygons (s) ). 
4/ The polygon must have both a horizontal and vertical dimension 
4j (e.g. it must have interior space) 



s^tus scIMPLJXPORT 

A^@func Copy a region, 
status scIMPLJXPORT 



SCHRGN^PolyC 

HRgnHandle rng, // @pann Region to apply polygon. 

const scVertes* polys @pam <c scVertex> Polygon (s) description. 



SCHRGN.Copy( 

HRgnHandle dstRgn, // %.arra The copy, 

const HRgnHandle srcRgn j; // @pam To copy. 



§func Translate a region. 



status scIMPLJXPORT 



SCHRGisf_Translate { 
HRgnHandle rgn, 
MicroPoint 
MicroPoint y )\ 



// @parm Region to inset. 

@parm Horizontal translation. 
// iparm Vertical translation. 



// @func Inset a region, 
status scIMPL„EXPORT 



SCHR(lLInset ( 

HRgnHandle rgn. 

MicroPoint h, 

MicroPoint v )\ 



@parm Region to inset. 

@parm Horizontal size change. 

§pam Vertical size change. 



// @func Is this rect contained within the region. 

status scIMPL^EXPORT SCHRGN„RectIn ( 

const HRgnHandle rgn. 



@parm Region to test. 
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// vertex list. 

// 

//[][] 

status scIMPL.EXPORT SCCOL^PastePoly ( scColumn*, 

const scVertex*, 
scRsdispList* ) ; 



// Extracts a copy of the polygon applied to this column, 
// causing no recomposition . Useful for editing the polygon, 

// 

/-^ C } [ ] 

status scIMPL_EXPORT SCCOL^CopyPoly t scColuxnn*, 

scVerteK«£; ); 

// Clears the polygon applied to this column. 

// 

[ ] [ ] 

status scIMPL„EXPORT SCCOL_ClearPoly ( scColumn*, 

scRedispList* ) ; 



-'^ REGION POH-AROUHD OPERATIONS 



// Regions are high precision descriptions of arbitrary shapes. 

// They are useful for representing irregularly shaped containers, 

// or for enabling text to run around objects intersecting a given container. 

// The application may use them to represent containers 

that have been modified by intersection with other page objects. 

hi 



lf{ @func Applies a region as the shape of this colunm. 
f/J The region is assumed to be in local coordinates, 

hiatus scIMPL^EXPORT SCCOL^PasteRgn ( 

\a scColmsn* col, 

•^ j const HRgnHandle rgn, 

^2 scRedispList* rinfo ); 



// @parm <c scColumn> to apply region to. 
// @parm Region to apply. 

@parm <c scRedispList> 
// Redisplay info, arg may be zero. 



@func Extracts a copy of the region applied to this column, 
/A causing no recomposition. 

HA 

s^fatus scIMPLJXPORT SCCOL^CopyRgn ( 

scColumn* col, // §parttt <c scColumn> with region 
HRgnHandleSf rgn ); // @parm <t HRgnHandle> the region copy. 



// @func Clears the region belonging to this column. 

// 

status scIMPLJXPORT SCCOL^ClearRgn ( 

scColumn* col, 
scRedispList* rInfo ) ; 



@parm <c scColumn> to clear region. 
// @pann <c scRedispList) 
// Redisplay info, arg may be zero. 



// The following functions operate on regions. 

// §func Create a new region. 

// 



status scIMPL.EXPORT SCHRGH^New ( 

HRgnHandle& nepsrRgn, 
MicroPoint sliverSise) 

@func What sliver size is a region using. 

status scIMPL„EXPORT SCfiRGN.SliverSize ( 



// @parm <t HRgnHandle> 
// @parffl Sliver size. 
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scRedispList* rinfo ) ;// @panti <c scRedispList> 

// Redisplay info, arg may be zero. 



// @func Gets the vert flejs attribute of the column. 
// feref <f SCCOL_Se'tVertFles>, <£ SCCOL_ClearVertFles> 

status scIMPL„EXPORT SCCOL_GetVertFleK( 

scColumn* col, // @parm <c scColumn> to get attribute from. 

BoolSc onOff ); // ipann Vertical flex attribute^ true 

// equals on, false off. 



@func Turns on horizontal flexibility. 
// feref <f SCC0L_,GetHor2Flex>, <f SCCOL„ClearHorzFieK> 

status scIMPL_EXPORT SCCOL^SetHorzFlex ( 

scColumn* col, // §parm <c scColumn> to set fles. 
scRedispList* rInfo j ;// iparm <c scRedispList> 

// Redisplay info, arg may be zero. 



// @func Turns off horizontal flenibility. 

// §sref <f SCC0L_SetKor2FIes>, <f SCCOL_GeitHorzFl05£> 

status scIMPL^EXPORT SCCOL_CiearHorzFleK ( 

scColumn* col, // @parm <c scColuitm> to clear flex, 

'"j scRedispList* rInfo §paCT <c scRedispLzst> 

Redisplay info, arg may be zero. 



4^ ffunc Gets the horzontal fleK attribute of the column, 
i^l §Kref <f SCCOL„SetHorzFlex>, <f SCC0L„ClearHor2FleK> 

SCC0L_OetHorzFleK ( 

scColumn* col, // @parm <c scColumn> to get attribute from. 

B00I& onOff ); // iparm Horizontal flex attribute, true 

// equals on, false off. 



@f unc Gets the direction of lines in the container, 
44 and of characters in the lines. 
A^§sref <f SCCOL_SetFlowDirection> 

status scIMPL_EXPORT SCCOL„Ge tFlowDi recti on ( 

scColumn* col, // iparm <c scColumn> to query. 

scFlowDir& f d ) ; @parm <c scFlowDir> of column. 

// @fuuc Sets the direction of lines in the container, 
// and of characters in the lines. 
// feref <f SCCOL„GetFlowDirection> 

status scIMPL^EXPORT SCCOL_SetFlowDirection ( 

scColumn* col, // @pam <c scColuittn> to set. 

const scFlowDirSt f d ) ; // @parm <c scFlowDir> value to 

// set of column. 

/»««=»«^«^«»^.= POLYGON COOTAIHER SHAPE OPERATIONS ==^ = =.«==^*=*«=*/' 
#if defined ( scCoiumnShape ) 

// The application may create polygons in any way that it sees fit, 
// They are then passed into the Toolbos and text flows into them 
using an even -odd area fill algorithm. 

// 



itktus scIMPL^EXPORI 



Pastes in a set of vertices to be added to the column's current 
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status scIMPLJXPORT SCFS^Recompose ( 

scColumn* col, // @parm Flow set to recompose. 

scRedispList* rlufo );// ipaxtn <c scRedispList> 

// Redisplay info, arg may be zero. 

// MOT IMPLEMElslTED 

Recompose a portion of the stream in the flowset. Process the flowset 
// for the number of ticks indicated. We will process paragraphs 
// until time exceeds the ticks 

// 

[ ] [ 1 

status scIMPL„EXPORT SCFS_Recompose ( scColumn*, 

long ticks, 
scRedispList* ) ; 



// Rebreaks all the lines in a column, with extreme prejudice; 
// it ignores tke flowset RecomposeHold() setting and processes 

only the indicated column it will return an error if a prior 
// column is uncomposed 

// 

status scIMPL_EXPORT SCCOL„Recompose ( scColumn*, 

scRedispList* ) ; 



// @func Applies the specs in the CharSpecListHandle to the tent 

// at the locations indicated therein. 

// @sref <f SCCOL GetStream>, <f SCSTR„CHrSList> 

.sfatus scIMPL^EXPORT SCSTR^CHTSListSet ( 

scStream* stream, // @parm <c scStream> to apply scCharSpecList to 



S.-and locations. 



const scSpecLocList& cslist, // §parm <c scCharSpecList> list of spec 

scRedispList* rinfo );// @parm <c scRedispList> 

// Redisplay info, arg may be zero. 



Itatus scIMPL EXPORT 



SCSTR_PARATSListSet( scStream* stream, 

const scSpecLocList8t csiist, 
scRedispList* rinf o ) \ 



CONIAIHER CONSTRAINT OPERATIONS 



s St ss JB s a 



f/f These routines set containers to be flexible in the horizontal or 

vertical dimensions. A flexible container varies in size with its contents. 

^? A vertically flexible container varies with the number of lines; 

t3 it grows until it reaches either the last character in the stream or 
a column break. A horizontally flexible container varies with the width 

// of its widest line; it grows until the end of the paragraph or a hard 

// return. 

// 

// iSOTE : 1 ! i n 1 U n I M M t H M ! ! n i M ! i ! 1 ! H i ! M M H M I 1 M ! ! M ! n H 

Container FLEXIBILITY and IRREGULAR shapes are MUTUALLY EXCLUSIVE! 1 M M 
// Setting a container to be flexible automatically clears any 
// irregular shape associated with the column. 

// 



// @func Turns on vertical flexibility. 

// §xref <f SCCOL_aetVertFlex>, <f SCCOL_ClearVertFlex> 

status scIMPL_EXPORT SCCOL„SetVertFlex ( 

scColumn* col, // @parm <c scColumn> to set flex. 

scRedispList* rInfo );// @parm <c scRedispList> 

// Redisplay info, arg may be zero. 



§func Turns off vertical flexibility. 
// feref <f SCCOL_.SetVertFles>, <f SCCOL„GetVertFlex> 



status scIMPL„EXPORT SCCOL_ClearVertFiex ( 

scColumn* col, // @parm <c scColumn> to clear flex. 
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// @func Copies a stream, returning a unique id in the second argument, 
// The copy will not be associated with any containers. 
// teref <f SCCOL_GetStream> 

// 

status scIMPL„EXPORT SCSTR_Copy( 

const scStream* srcStream, // @parm Stream to copy. 
scStream*S: theCopy // fparm The new copy. 



§func Pastes a stream into a container. If the container already has a stream, 
// the pasted stream is appended to the e:sisting one. To conserve on 

resources, the streamID is not duplicated. Thus, for multiple 
// pastes of one stream, a new copy of the stream must be made for each paste. 

// 

status scIMPL^EXPORT SCFS_PasteStream ( 

scColumn* col, // @parm <c 3cColumn> containing stream 

// which theStream will be appended, 
scStream* theStream, // @parm The stream to foe appended, 

scRedispList* rinfo ) ; // §partn <c scRedispList> 

// Redisplay info, arg may be zero. 



Extracts a scContUnit from a scStreamLocation for use with SCSTR_Split 
status scIMPL„EXPORT SCSEL^GetContUnit ( 

scContUnit*£( mark, 
scContUnit»£< point, 
const scSelection* ) ; 



'-Sr This call is used to undo a link. To set this up, 

|Hf before linking two columns coll and col2, save references 

Jf<^ to their streams, streaml and stream2, respectively, 

IM^ When unlinking coll and col2, call scStreamSplit ( streaml, stream2 ) 

to split the stream into its original two pieces. This call should be 
1^ followed with a call to SCPasteStream ( col2, stream2, scRedispList *) 
V{ to reset the unlinked column's stream to its original value. 

NOTE: both streaml and stream2 are assumed to be valid (non-lsfULL) . 
& This call should only be made with reformatting turned off, 
.// 

^atus scIMPL„EXPORT SCSTR„Split( 
"""^ scStream*, 
I J scContUnit*, 
.{1 scStream*Sc ); 



¥^ @func Compare streams for equality, this 

// scSuccess == equality 

// @sref <f SCCOL_GetStream> 

// 

status scIMPLJXPORI SCSTR„Compare ( 

const scStream* 
const scStream* 



tests content and specs 



strl, y/ ipartn <c scStream> 

str2 ) ; // @parm <c scStream> 



COMPOSITION OPERATIONS & COMPOSITION ERROR RECOVERY 
// @func Sets recomposition off or on in the flow set of the indicated column 

// 

status scIMPL_EXPORT SCFS_SetRecompose ( 

scColumn* col, // @parm Flow set to turn composition off or on 

in , 

Bool onOff ); // @parm true on, false - off 

@func Gets the current recomposition state of the flow set, 

// 

status scIMPL_EXPORT SCFS_Get Re compose ( 

scColumn* col, @parm Flow set to query. 

BoolSi onOff ); // @parm Composition flag. 

// @func Recomposes the flowset, 

// 
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status scIMPLJXPORT 



SCCOL_SetSize( 

scColumn* col^ 

MicroPoint widths 

MicroPoxRt depth, 

scRedispList* rinfo 



@parm <c scColumn> to resize. 

§pdrm New <t MicroPoint> width. 
// @pann New <t MicroPoint> depth, 

@parm <c sc:RedispList> 
// Redisplay info, arg may be zero. 



// tests to see if there is more text than is in this column 

// this would set the flag to true if: 

there is text in subsequent linked columns 

there is unformatted test that will not fit in this column 



status scIMPL_EXPORT 



SCCOL„MoreTeKt( 

scColumn* col, 
B00I& flag ); 



STREAM OPERATIONS 

@func Returns an id to the stream a column/flow set contains. 

status scIMPL^EXPORT SCCOL^GetStream ( 

scColumn* column, // @parm <c scColumn> containing stream. 
scStream*& stream ); // @parm <c scStream> pointer to be filled. 

ifunc Writes stream to file using the call back write routine. 
// feref <f SCCOL_GetStream> 

status scIMPL_EXPORT SCSTR_Write( 

fl soStream* stream, // @parm <c scStream> to write, 

;n APPCtKPtr loctKptr, // §parm <t APPCtxPtr> Abstract file i/o type. 

:r lOFuncPtr ioFuncPtr @parm <t IOFuncPtr> write function pointer. 



S^/ @func Reads stream from file using the call back read routine. 
Use the appropriate calls for file i/o 

<f SCSET„InitRead>, <f SCOBJ„PtrRestore>, <f SCSET_FiniRead> , <f SCCOL_GetStream> 

Status scIMPL„EXPORT SCSTRJ^ead( 

scStream*Sc stream, // @parm Pointer to <c scStream> to be 
13 filled in by Composition Toolbox. 

HJ scSet* enumTable, // @parm Pointer enumeration table. 

./! APPCtHPtr ioctKptr, §parm <t APPCtxPtr> Abstract file i/o type 

'^^ lOFuncPtr ioFuncPtr );// @parm <t IOFuncPtr> write function pointer 



// §func Deletes a stream. If it is associated with a set of linked columns 
// they become a linked set of empty containers. If no colums are 
// attached or no redraw is necessary, the scRedispList will be NULL. 
// feref <f SCCOL_GetStream> 

// 

status scIMPL_EXPORT SCSTR_Clear( 

scStream* stream, 
scRedispList* rinf o ) ; 



@parm <c scStream> to delete, 
// @pann <c scRedispList> 

Redisplay info, arg may be zero. 



// §func Cuts a stream from its associated containers. 
@xref <f SCCOL_GetStream> 

// 

status scIMPL_EXPORT SCSTR„Cut( 

scStream* stream, // @parm Stream to cut. 

scRedispList* rInfo ); // @parm <c scRedispList> 

Redisplay info, arg may be zero. 
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APPColumn appName, 

scColumn«& ne^IB, 

y toolbox. 

Mic3roPoint width, 

ner . 

MicroPoint depth ); 

ner. 



// §parm <t APPColumn>, the name used by client. 
// @paxiu <c scColuinn> name of object allocated b 

// §pann <t MicroPoint> width of new text contai 

// @parm <t MicroPoint> depth of new text contai 



// @func Deletes a container, removes itself from the flowset with 

the text in this container simply spilling over into 
// others in the flow set. 

// If it is the only column associated in the flow set 
// then the stream is also deleted. 

// To delete the whole flow set start deleting from the last column 
// so that the first column (and the stream) will be deleted last, 
status scIMPL„EXPORT SCCOL„Delete( 

scColumn* col, // §pann Hame of <c scColumn> to delete. 

scRedispList* rinfo ); // @parm <c scRedispList> 

// Redisplay info, arg may be zero. 

// @func Links the two columns together using the following logic: 

// C0L2 must represent the first column in a flow set. 

// COLl may be any^vhere within a (distinct) flow set, 

// C0L2 will be chained in after COLl. The ordering/reordering 

// of the streams is as follows: <nl> 

// 1. if COLl has text and C0L2 has no text, the text flows from COLl to C0L2 
// <nl> 

2. if C0L2 has text and COLl has no text, the text flows from COLl to C0L2 

/ri<ni> 

//^3. if both COLl and COL 2 have text, the text from COL 2 is appended 
/Tlxo the text in COLl - this may may create some confusion 
/l^-on the user's part, so use with care. <nl> 

/rUNOTEl ! N M mi SELECTION IN EITHER FLOW SET WILL NO LONGER EE VALID! IN! 
/fiferef <f SCCOL_Unlink> 

sWtus scIMPL^EXPORT SCCOL„Link( 

"^tJ scColumn* coll, @parm Name of first <c scColumn>. 

f2 scColumn* col2, @parm Name of second <c scColumn> . 

scRedispList* rInfo ); @parm Redisplay info, arg may be zero. 



//.l§func Unlinks a column from its chain. The column passed in becomes 
/pan empty container, and the stream remains intact. If the column 
/H'is the only column in a chain, it is a no-op. 
/?^<nl>NOTE! M ! ! ! ANY SELECTION IN THE FLOW SET 
/X COLUMN WILL NO LONGER BE VALID! I 1 M 
/H@xref <f SCCOL_Link> 

status scIMPL„EXPORT SCCOL„UnlinkC 

scColumn* col, // @parm Name of <c scColumn> to unlink. 

scRedispList* rInfo ) ; // @parm <c scRedispList> 

// Redisplay info, arg may be zero. 



// @func Severs the link between the two columns. The stream is left in 
// the first logical container set. The text is left in a 
// uncomposed state. <NL> 

// NOTE! M ! ! i ANY SELECTION IN THE FLOWSET 
// COLUMN WILL NO LONGER BE VALID l MM 

status scIMPL_EXPORT SCFS_Split( 

scColumn* coll, // @parm <c scColumn> prior to split. 

scColumn* col 2 ); // §parm <c scColumn> after split. 



// @func Resizes a column. If the column has an irregular shape 

(such as a polygon), the width and depth values of the container 
// are updated, but no ref lowing occurs. The width and depth are independent 
// of text flow. Width is always the horizontal dimenision and depth 
// the vertical dimension. 
// 
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/* =s=:»a=!Ss = =t===5SKES = !S = = =;sss=M=== = ai=« = = = 5=ss — =s = = = = — =5" — — — — — 



@fync Safely allocate, 
status scIMPL^EXPORT SCTSL.AHocl 

scTypeSpecList*S! tsl ) ; // @parts <t scTypeSpecList> 

@func Safely delete, 
status scIMPL.EXPORT SCTSLJelete ( 

scTypeSpecList*£: tsl ); // @pam <t scTypeSpecList> 



// @func Safely allocate. 

status scrIMPL_EXPORT SCRDL.Alloc( 

scRedispList*£t rdl ); ©parm <c scRedispList> 



// ffunc Safely delete. 

status scIMPL„EXPORT SCRDL_Delete( 

scRedispList*& rdl ); @pam <c scRedispList> 

/i3= = :=^^ = ««:=.^=.:= = =. = == = =^=«=. = «=. = -«====««^ = --- = -«:«== = «==«==« = --- = =* = = «^ */ 

/?!tn=ss;=: = = = ^=rss=ir:=sr:3== = = = ===: = = =: = = = SCAPPTEXT « = ^ ass = ^ « s= « ^ « «^ =s = = S = « = » a: */ 

sss:=ass» = « = s:K«=;s;sKs;ct = i=w = as=s = =stt = S5Swss = 5Sp!S= = K = KaissKas:=«=a; = » = K:=J*s »/ 

//i@func Safely allocate. 

s^tatus scIMPL_EXPORT SCAPPIXT„Alloc( 

stTextIniportEKport«£t atKt ); // @parm <c scAPPTest> 

/^§func Safely delete. 

status scIMPLJXPORT SCAPPTXT^Delete ( 

stTextlmportExport* atKt ); // ipana <c scAPPTest> 



=.=. = = ^«^=«««a== = = = =:=,*:.«=.^ SCCHARSPECLIST = = = = = * = = = */ 

§func Safely allocate, 
status scIMPL„EXPORT SCCHISJilloc( 

scSpecLocList*Sc cslist, @parm <c scCharSpecList> 

scStream* stream ) ; @paxm <c scStream) to associate w 

ith. 

// @func Safely delete. 

status scIMPL„EXPORT SCCHTS.Delete( 

scSpecLocList*£c cslist ); @parm <c scCharSpecList> 



/m COOTAINER MESSAGES =:.=««^=^^===:^=.=:==«z.==«=.=== */ 



// (Sfunc Creates a new column/container within the Composition Toolbox universe, 
// The appName is simply a notational convenience for the client. It is 
// presumed that the client is maintaining some sort of container structure 
// and the appName is typically pointing to the clients structure. In all 

conversations with the client we use this name. If it is 0 we will simply 

fill in our name for it. 

// 

status scIMPL_EXPORT SCCOL_Hew( 
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FLOW SET 
COLUMN 



STREM 

COOTEOT UNIT 
SELECTION 



a set of linked columns which contain a single stream 

an area to flow tent into, text MAY eKtend outside the 

column depending upon constraints, another name for a column 

is a TE>Cr C0OTAI^5ER 

a set of content units/paragraphs 

a paragraph that contains characters and specs associated 
with the characters 

a range of test, each Flow set may only contain one selection 



: SYSTEM LEVEL MESSAGES 

// @func status 1 SCENO„Init j This must foe called before any other 
// calls are made into the Toolbox; it initializes and sets 
// toolobx behavior. The base error is the number added to 

<t status > errors when exceptions are re -raised across the api . 

// 

// @parm mt | baseError | Value to add to <t status> values 

// if we are re-raising eKceptions across the API. 

// 

status scIMPLJXPORT SCENG_Init( mt baseError = 0 ); 



// @func Closes the Composition ToolboK; this releases all memory 
// that the Toolbos has allocated. All references into the 
/Z. Too 1 boK become i nva lid, 

M 

aatus scIMPLJXPORT SCENG^Fini ( void )i 



/vBThe following three calls are optional. Their use will guarantee that 
4/1 the ToolboK can always recover from an out of memory condition, 
yj/I given that the application can get it back to a previous state. 

<7 Holds memory to guarantee that if recomposition fails, we will 
be able to revert to previous state. 

^ t ] [ ] 

status scIMPL^EXPORT SCENG„RetainMemory{ void ); 



// Informs ToolboK to use retained memory - 
// only for use in a recovery operation. 
// 

//[][] 

status scIMPL_EXPORT SCENO_UseRetainedMemory ( void ); 



// Releases retained memory; recomposition has been successfully completed. 

// 

C 1 t ] 

status scIMPL_EXPORT SCENG„ReleaseMemory ( void ); 



OBJECT ALLOCATION */ 

// If the application wants to allocate its objects it can do 
// so bearing in mind that it must have set up an exception 
// handler, otherwise the client may use the following to 
// allocate and free the objects. Accessing the data within 
// these objects should not present exception problems if the 
correct accessor methods are used. 
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//<html><pre> 

File: SCAPPIOT.H 

$Header: /Projects/ToolboK/ct/SCAPPIOT.H 2 5/30/97 8:45a Wmanis $ 
Contains: The portable c application interface prototypes 







messages 


to 


the text engine 


SCFS_3£5£SK5£5t 


- 


messages 


to 


flowsets 


SCCOL„KXKKK 




messages 


to 


columns 


SCSEL„KKKKX 


- 


messages 


to 


a selection 






messages 


to 


streams 


SCSCR„xxxxx 




messages 


to 


the scrap 


SCHRGH.HKKK 




messages 


to 


regions 


SCCHTS„xKsx 




messages 


to 


scCharSpecList 


SCTSL„KKKXK 




messages 


to 


scTypeSpecList 


SCAPPIXr_XK 




messages 


to 


scAPPXext 


SCRDL^KXSXH 




messages 


to 


scRed i sp 1 ayL i s t 



!f Written by: Man is 

flj Copyright (c) 1989-1994 Stonehand Inc., of Cambridge^ MA. 
All rights reserved. 

ly This notice is intended as a precaution against inadvertent publication 
^Sl and does not constitute an admission or acknowledgment that publication 
f-i has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
13 and confidential property of Stonehand Inc. 

§§5C 

lEfndef „H„SCAPPIlsn 
#^fine _H_SCAPPIOT 

#ifdef SCMACIOTOSH 
#pragma once 
#endif 

#include "sctypes.h" 
#include "sccharex.h" 

// [doc] [test] 

class stText Import Export; // in scapptex.h ( scTextExchange ) 

class scTypeSpecList; // in scpubobj.h 

class scLinelnfoList ; // in scpubobj .h 

class scRedispList ; // in scpubobj .h 

class scSpecLocList ; // in scpubobj.h 

class scSet; // see scset.h 

class scImmediateRedisp;// in scpubobj.h 

class clField; // in sccalibk.h 

// TERMINOLOGY 



File : Work\CrtPrt\Stonehnd\Scannota .h 



Pg: 2 



int fParaOffset; 
int f StartOf f set; 

int fEndOffset; 

}; 

====== 

inline void scAnnotation: : Clear ( ) 
{ 

f Annotate = false; 

fParaOffset = -1; 

fStartOffset = -1; 
fEndOffset = -1; 

} 

/* =============================================================== 

inline scAnnotation :: scAnnotation ( UCS2 *ch, int paraoffset, int s 

tart, int end ) 

{ 

Set ( ch, paraoffset, start, end ); 

} 

/* =============================================================== 

===== */ 

inline scAnnotation: : scAnnotation ( ) 
{ 

Clear ( ) ; 

} 

=============================================================== 

===== */ 

#endif 
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File: scannota^h 

$Header: /Projects/Toolbox/ct/SCANNOTA.H 2 5/30/97 8:4 
5a Wmanis $ 

Contains: Generalized annotation structure. 

Written by: Manis 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadverten 
t publication 

and does not constitute an admission or acknowledgment tha 
t publication 

has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



/ 

#ifndef _H_SCANNOTA 
#define _H_SCANNOTA 

#include "sctypes .h" 
#include <string.h> 

class scAnnotation { 

public: 

); 



void 
void 

UCS2 
Bool 

apply, else clear 



scAnnotation ( UCS2^, int, int, int 

scAnnotation ( ) ; 

Set( UCS2 ^, int, int, int ); 
Clear ( void ) ; 

fCharStr [32] ; 

fAnnotate; //if true 
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col, col->aetAPPNarae() , 
col->Width(), coi->Depth() , 
col->GetVertFleK() ? "VFLEX" : "RofleK" ); 

if ( contentLevel ) { 
scContUnit* p; 

for ( p - col->GetStreani(); p; p = p->GetHeKt{) ) 

SCDebugTrace ( 0, scString( "\tpara 0s%08x\n*' p ); 

} 

} 

void scIMPL„EXPORT SCDebugParaSpecs ( scSelection* sel ) 

{ 

#if i 

scSelection sorted ( »sel ); 
sorted. Sort 0 ; 

scContUnit* cu = sorted . GetMark (). f Para ; 

for ( ; cu cu ! sorted .Get Point {). f Para- >fetNe5s:t () ; cu - cu->GetHeKt { ) ) 
cu->DebugParaSpecs ( ) ; 

#else 

if ( sel->IsSliverCursor() ) 

sel->GetMark() ,f Para->DebueParaSpecs() ; 

#endif 

^Mid scIMPL„EXPORT SCSTRJebugC scStream* str ) 

{ru 

^,1 str->STRDbgPrintInfo( ); 
#endif /* DEBUG */ 

/%fcj rsssr;»scss===! = s;a = «ss = = Stat as5S«s;s;=as=:as=sK = K=s=ssK3S»s;si=;e:;s:=:s = 5==! = =;= */ 
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return stat; 

} 

#endif 

void scIMPL„EXPORT SCCOL_InvertExtents ( scColumn* col. 

Hi 1 i teFuncPtr f unc , 
APPDrwCtK drawCtK ) 

{ 

status Stat = scSuccess; 
try { 

col->InvertEstents( func, drawCtx ); 

} 

IGNORE„RERAISE; 



#if SCDEBUG > 1 

long scIMPL_EXPORT SCCOL„DebugSize ( scColumn* col ) 

{ 

return si2eof( scColumn ) + ( col->GetLinecount ( ) « sizeof( scTextlme ) ); 

ifeng scIMPL_EXPORT SCSTRJefougSise ( scStream* stream ) 

return stream- > STRDebugS i ze ( ); 

void scIMPLJXPORT SCCOL_InvertRegion ( scColumn* col, 

^„ Hi li teFuncPtr func, 

y APPDrwCtx drawCtK ) 

ii.H Status Stat - scSuccess; 
try { 

scFlowDir f d ( col">GetFlowdxr ( ) ); 
I J if ( col->GetRgn() } 

?5 RGNInvertSlivers( col->6etRgn ( ) , drawCtx, func, col->GetSi2e ( ) , fd . IsVertical ( ) ); 

%^ } 

I(^ORE_RERAISE; 

} 

void scIMPL„EXPORT SCDebugCoiumnList ( void ) 

{ 

scColumn* col ; 

SCDebugTrace ( 0, scString( "ToolboK Column list start\n" ) ); 

for ( col = scColumn : :GetBaseConteKtList ( ); col; col - col->GetContext () ) { 

SCDebugTrace ( 0, scStringC "\tcol 0k%08s appname OK%08x\n" ), col, col->GetAPPHame() ); 

} 

SCDebugTrace ( 0, scString( "Toolbox Column list end\n'* ) ); 



void scIMPL„EXPORT SCDebugColumn ( scColumn* col, 

int contentLevel ) 

{ 

SCDebugTrace ( 0, scString( "Column 0x5£08x aR'iname 0kZ08z '4d '4d Hs\n" ), 
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status scIMPL„EXPORT SCSEL„GetStream ( const scSelection* selection, 

scStream«S; stream, 
TypeSpecSt ts ) 

{ 

status Stat ^ scSuccess; 

£nterMonitor( scStrin^( "SCSEL^Get Stream" ) ); 
try { 

streaiK = selec:tion->GetStream() ; 

ts « selection->GetSpecAtStart ( ) ; 

IGNORE.RERAISE; 

ExitMonitor( scString( "SCSEL^GetStream" ) ); 
return scSuccess; 

} 

status scIMPL„EXPORT SCSTR^HthParaSeiect ( scStream* streamID, 

lone nthPara, 
scSelection* select ) 

{ 

status Stat ^ scSuccess; 

EnterMonitor( scString( "SCSTR_NthParaSelect ) ); 

Cj { 

,^ select->NthPara( streamlD, nthPara ); 

li } 

IGNORE.RERAISE; 

m ExitMonitor( scString( "SCSTR_NthParaSelect " ) }; 
return stat; 

}^ 

#ifdef „RUBI_SUPPORT 

status scIMPL.EXPORT SCSEL_GetAnnotation ( scSelection* select, 

i^'t nth, 
Y''- scAnnotationSc annotation ) 

f2 status stat = scSuccess; 

:z, EnterMonitor( scString( "SCSEL„GetAnnotation" ) ); 
try { 

seiect->GetAnnotation( nth, annotation ); 
IGNORE.RERAISE; 

EsitMonitor{ scString( "SCSEL^Get Anno tat ion" ) ); 
return stat; 

} 



as SB ss SSI =: sa 3! 



Status scIMPL_£XPORT SCSEL_ApplyAnnotation ( scSelection* select, 

const scAnnotationSc annotation, 
^ scRedispList* redisplayListH ) 

status stat - scSuccess; 

EnterMonitor( scString( "SCSELApplyAnnotation" ) ); 
try { 

select->ApplyAnnotation{ annotation, redisplayListH ); 

} 

lOt^rORE^RERAISE; 

ExitMonitor( scString{ "SCSEL.ApplyAnnotatin" " ) ); 

38 
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^ scRedispList* damage ) 

status Stat = scSuccess; 

EnterMonitor( scString( "SCSEL„Iter" ) ); 

try { 

selBct->lteT( func, damage ); 
IOTORE_RERAISE; 

EKitMc.nitor( scString( "SCSEL^Iter" ) ); 
return stat; 

} 

Status scIMPL^EXPORT SCSTR_Iter( scStream* stream, 

Subst i tuteFunc f unc , 
scRedispList* damage ) 

{ 

status Stat = scSuccess; 

EnterMonitor( scString( ^'SCSTR.Iter" ) ); 

try { 

stream->Iter( func, damage ); 
IGNORE^RERAISE; 

EKitMonitor( scString( "SCSTR^Iter^' ) ); 
'^^f return stat; 

M 

deprecated 

; : 'i 

status scIMPLJXPORT SCSTR„Search ( scStream* stream, 

const UCS2* findString, 
"""^ SubstituteFunc func, 

scRedispList* damage ) 

status Stat ^ scSuccess; 
^'^-^ EnterMonitor( scString{ "SCSTR_Search" ) ); 

il { 

throw( scERRnot Implemented ); 

p ICM)RE_RERAISE; 

EKitMonitor( scString( "SCSTR.Search " ) ); 
return scSuccess; 

} 

yy deprecated 

status scIMPL^EXPORT SCSEL„FindString ( scSelection* select, 

^ const UCS2* findString ) 

status Stat scSuccess; 

EnterMonitor{ scString( "SCSEL.FindStrmg" ) ); 
try { 

throw{ scERRnotlmpiemented ); 
IGHORE^RERAISE; 

EKitMonitor( scString{ "SCSEL_FindString" ) ); 
return scSuccess; 

} 
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EKitMonitor( scString( "SCSEL^CopyText" ) ); 
return stat; 

} 



status scIMPL„EXPORT SCSEL_PasteText ( scSelection* selection, 

scScrapPtr scrap , 
TypeSpec style, 
scRedispList* redispList ) 



{ 



status Stat = scSuccess; 

EnterMonitor( scStrin0( "SCSELJasteTeKt " ) ); 
try { 

selection->PasteTeKt ( (scStream*) scrap, style, redispList ); 
lOlsrORE.RERAISE; 

EKitMonitor( scString( "SCSELJasteText " ) ); 
return stat; 



} 



s! ss » as IK ss as ss ts it/' 



status scIMPL^EXPORT SCSCR_ConToSys ( scScrapPtr scrap, 

^fl SysteKiMemoryObjectS* pSysConBlock ) 

status Stat ^ scSuccess; 

In scContUnit* para « (scContUn it*) scrap; 

'5 EnterHonitor( scString( "SCSCR^ConToSys" ) ); 

W try { 

=^.j if ( scrap->IsClass( "scColumn" ) ) 

paira = ( (scColumn*) scrap )->GetStream() ; 

if ( para->IsClass( "scContUnit" ) ) 
[3 ((scStream*)para)->ETRWriteMemTest( false, pSysConBiock ); 

ilj, else 

.'1 raise ( scERRidentif ication ); 

iy > 

U IdsTORE.RERAISE; 

EKitMonitor( scString( "SCSCR_ConToSys" ) ); 
IJ return stat; 

} 



*/ 



status scIMPL„EXPORT SCSCR.SysToCon ( scScrapPtrSc scrapP, 

const scChar* sysScrapPtr, 
TypeSpec ts ) 



{ 



} 



status stat - scSuccess; 

EiiterMonitor( scStrincf( "SCSCR^SysToCon " ) ); 
try { 

scrapP « scStream: :ReadMemTest( ts, sysScrapPtr ), 
IGHOREJERAISE; 

ExitMonitor{ scString( "SCSCR„SysToCon" ) ); 
return stat; 



status scIMPL_EXPORT SCSEL_lter( scSelection* select, 

Subst ituteF>r"c: £^xnc , 
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ExitMonitorC scString( '*SCSEL_SetTe^tStyle" ) ); 
return stat; 

} 



status scIMPL^EXPORT SCSEL_TextTrans ( scSeiection* select, 

eChTranType trans, 

int numChars, this is a modifier for th 

e string 

scRedispList «redispList ) 

{ 

status Stat « scSuccess; 

EnterMonitor( scString( "SCSEL„TeKtTrans" ) ); 
try { 

select->TeKtTrans( trans, numChars, redispList ); 
I^ORE.RERAISE; 

ExitMonitor( scString( "SCSEL„TeHtTrans" ) ); 
return stat; 

} 

Status scIMPL„EXPORT SCSEL„CutText ( scSelection* selection, 
I J scScrapP tr£< scrap , 

scRedispList* redispList ) 

in status Stat = scSuccess; 

fij En teirMoni tor ( scString( *'SCS£Lj:utText" ) ); 
H try { 

m selection->CutTeKt( scrap, redispList ); 
^ IGNORE_RERAISE; 

H EKitManitor( scString( "SCSEL.CutTeKt " ) ); 
fi return stat; 



si£|tus scIMPL„EXPORT SCSEL_ClearTeKt ( scSelection* selection, 
2S scRedispList* redispList ) 

{ 

status Stat = scSuccess; 

EnterMonitor( scString( "SCSEL„ClearTeKt" ) ); 
try { 

select ion">ClearTeKt( redispList, true ); 
IGNORE_RERAISE; 

EKitMonitor( scString( "SCSEL.ClearTest" ) ); 
return BtoXi 

} 



a 3S « ffi s; B! as as a 



Status scIMPL_EXPORT SCSEL_CopyText ( scSelection* selection, 
^ scScrapPtrSi scrap ) 

status Stat = scSuccess; 

EnterMonitor( scString( "SCSEL_CopyText " ) ); 
try { 

selection->CopyTextC scrap ); 
IGNORE.RERAISE; 
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return stat; 

} 

status scIMPL„EXPORT SCSEL„Hilite ( scSelection* select, 

HiliteFuncPtr DrawRect ) 

{ 

status Stat - scSuccess; 

EnterMonitor( scString( "SCSEL„Hilita" ) ): 
try { 

select->ValidateHilite( DrawRact ); 

} 

IGNORE_RERAISE; 

EKitMonitor( scStringC "SCSEL„Hilite'* ) ); 
return stat; 

} 

/*=.====s=====^=:.=«==^« EDITHnTG messages ««=======^^«==:=a^=.*/ 

status scIMPL_EXPORT SCSEL_InsertReyRecords ( scSelection* select, 

short keyCount , 

scKeyRecord* keyRecords, array of key reeds */ 

^ scRedispList* redispList ) 

status stat - scSuccess; 
p EnterMonitor( scString( "SCSEL.InsertKeyRecords" ) ); 

11 try { 

sel0ct->KeyArray{ keyCount, keyRecords, redispList ); 

ry > 

.^2 IGHORE^RERAISE; 

4y EKitMonitor( scString( "SCSEL„InsertKeyRecords" ) ); 
return stat; 

SLtlitus SCSEL_InsertField( scSelection* sel, 

const clFieldS: field, 
h ^ TypeSpecSt spec , 

12 scRedispList* redispiist ) 

"-^ status stat ^ scSuccess; 

EnterMonitor( scStrin^( "SCSEL„InsertAnnotation" ) ); 

try { 

sel->InsertField( field, spec, redispiist ); 

} 

IGNORE„R£RAISE; 

ExitMonitor( scString{ "SCSEL„InsertAnnotation" ) ); 
return stat; 

} 



status scIMPL^EXPORT SCSEL^SetTest Style ( scSelection* selection, 

TypeSpec style , 

^ scRedispList* redispList ) 

status stat ^ scSuccess; 

£nterMonitor( scString( "SCSEL^SetTeKtStyle" ) ); 
try { 

selection->SetStyle( style, redispList ); 
I(130RE_RERAISE; 
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EnterMonitor( scString( "SCSEL_Restore" ) ); 
try { 

scColuitin* col ^ scColumn; :FindFlowset( stream ); 

// we cannot create a selection if there is no layout 
raise_if( col Q, scERRstructure ); 

select = col->FlowsetGetSelection() ; 

select-->Restore( Soiiark, Sipoint, stream, geometryChange ); 

> 

I(MORE_RERAISE; 

EKitMonitor( scString( "SCSEL_Restore" ) ); 
return stat; 

} 



Status sclMPL„EXPORT SCCOL„SelectSpeciai ( scColumn* col, 

const scMuPointSc pt, 
eSelectModifier selectMod, 
scSelection*^! selectID ) 

status stat ~ scSuccess; 

EnterMonitor( scString( "SCCOL_SelectSpeciar' ) ); 
fj try { 

rS col->SelectSpecial ( pt, selectMod^ selectID ); 

li } 

IGls[ORE„RERAISE; 

ExitMonitor( scString( "SCCOL_SelectSpecial " ) ); 
return stat; 

>y 

^atus scIMPLJXPORT SCS£L„Move{ scSelection* select, 
C3 eSelectMove moveSelect ) 

, : status stat « scSuccess; 

1==^ EnterMonitor( scString{ ''SCSEL_Move" ) ); 

li try { 

=^ se 1 ect - >MoveSe 1 ec t ( moveSe 1 ec t ) ; 
} 

IGNORE„RERAISE; 

EsitMonitor( scString( "SCSEL„Move" ) ); 
return stat; 

} 

status scIMPL_EXPORT SCSEL.EKtend ( scSelection* select, 

eSe 1 ec tMove moveSe 1 ect ) 

status stat « scSuccess; 

EnterMonitor( scString( "SCSEL^Move" ) ); 

try { 

select->EKtsnd( moveSelect ); 

} 

IGNORE„RERAISE; 

EKitMonitor( scString{ »SCSEL„Move*' ) ); 
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try { 

col->InitialSelection( typespoc, selectID ); 
IGNORE„RERAISE; 

ExitHonitor( scStringC "SCCOL„InitialSelect" ) ); 
return stat; 

} 

status scIMPL„EXPORT SCSELJecompose ( scSelection* select. 

scStreamLocationSi mark, 
scStreamLocationSt point ) 

status Stat - scSuccess; 

EnterMonitor{ scString( "SCSEL.Decompose" ) ); 
try { 

select '->Decoinpose( mark, point ); 

} 

IGNORE„RERAISE; 

EKitMonitorC scString( "SCSEL_Decompose" ) ); 
return stat; 

} 

s||tus scIMPLJXPORT SCSELJecompose2( scSelection* select, 

scStreamLocationSc mark, 
scStreasiLocationSc point ) 

■cfu 

^ status stat = scSuccess; 

£nterMonitor( scStringC "SCSEL„Decompose " ) ); 

iy 

^^J try { 

select->Decompose2( mark, point ); 

} 

IGNORE„RERAISE; 

EKitMonitor( scString{ "SCSELJecompose " ) ); 
„ return stat ; 

slltus scIMPL„EXPORT SCSELJnvalidate ( scSelection*& select ) 

{U 

status stat « scSuccess; 

EnterMonitor( scString( '*SCSEL„Invalidate" ) ); 

try { 

if ( select ) 

select->Invalidate() ; 

} 

IGNORE„RERAISE; 
select - 0; 

EKitMonitorC scString( "SCSEL„Invalidate" ) ); 
return stat; 

} 



status scIMPL^EXPORT SCSEL_Restore ( const scStream* stream, 

const scStreamLocation& mark, 

const scStreamLocationS point, 

scSe 1 ec t i on*£^ se 1 ect , 

Bool geometryChange ) 



status stat * scSuccess; 
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{ 

status Stat = scSuccess; 

EnterMonitorC scString( "SCCOL.StartSelect" ) ); 
#if SCDEBUG > 1 

SCDebugTrace ( 2, scString( "SCCOLStartSelect Zd Zd\n" ), pt.x, pt.y ); 
#endif 

try { 

col->StartClick( pt, DrawRect, mat, selectID ); 
IG^ORE„RERAISE; 

EKitMonitor( scStrinsr( "SCCOL_^StartSelect " ) ); 
return stat; 

} 



Status scIMPLJXPORT SCCOL.StartSelect ( scColumn* col, 

scStreamLocationSc mark , 

const scMuPomtSc pt. 

Hi 1 i teFuncPtr DrawRect , 

APPDrwCtK mat. 

scSelection*& selectID ) 



status Stat = scSuccess; 

EnterMonitor( scString( "SCCOL_StartSelect" ) ); 

% i 

co2->StartShiftClick( mark, pt, DrawRect, mat, selectID ); 

fy I(lNfOREJ?ERAISE; 

ExitMonitor( scString( "SCCOL_StartSelect" ) ); 
return stat; 

^tus scIMPL^EXPORT SCCOL^EKtendSelect ( scColumn* col, 
^.J const scMuPointSf pt, 

.,1 HiliteFuncPtr DrawRect, 

APPDrwCtK, 

1=^- scSe lection* select ) 

:Z status stat - scSuccess; 

EnterMonitor( scString( "SCCOLjKtendSelect" ) ); 

SCDebugTrace ( 0, scStringC "SCCOLExtendSelect EMTER Zd Xd\n" ), pt.s, pt.y ) 
try { 

raise„if{ select 0, scERRinput ); 
col->ContinueClick( pt, DrawRect, select ); 

} 

iatsrORE_RERAISE; 

SCDefougTrace { 0, scStringC "SCCOLE^tendSelect EXIT Xd %d\n'* ), pt.x, pt.y ); 



EKitMonitor( scString( "SCCOLjKtendSelect" ) ); 
return stat; 

} 

Status scIMPL_EXPORT SCCOL^InitialSelect { scColumn* col, 

TypeSpecSc typespec , 



scSelection*£: selectID ) 
status stat - scSuccess; 

EnterMonitorC scStringC "SCCOL.InitialSelec^ " ) ); 
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ExitMonitorC scString( "SCSEL_GetAPPText" ) ): 
return stat; 

} 



Status scIMPL„EXPOOT SCCOL„Write( scColumn* col, 

i^PPCtstPtr ctsPtr, 
lOFuncPtr writeFunc ) 



{ 



} 



status Stat « scSuccess; 

EnterMonitor( scString{ "SCCOL_Write" ) ); 

try { 

ccri->StartWrite( ctxPtr, writeFunc ); 

scTBObj : :WriteNullOfoject( ctxPtr, writeFunc ); 

IGNORE.RERAISE; 

ExitMonitor( scString( "SCCOL^Write" ) ); 
return stat; 



Status scIMPLJXPORT SCCOL_Read( APPColumn appHame, 

scColumn«Sc col , 

scSet* enumTable, 

12 APPCtsPtr ctxPtr, 

lOFuncPtr readFunc ) 

III status Stat = scSuccess; 

fy EnterMonitor( scStrine( "SCCOL_Read" ) ); 

^3 try { 

m col - (scColuMin*)scTBObj : :StdrtRsad( enumTable, ctsPtr, readFunc ); 
\^ scAssert( scTBOb j : : StartRead ( enumTable. ctxPtr, readFunc ) — 0 ); 

^3 IGNORE„RERAISE; 

p EKitMonitor( scString( "SCCOL„Read*' ) ); 
CI return stat; 

/^^=========.===^==^^^^ SELECTION MESSAGES =-=:==*y 

i~ -J 

slltus scIMPL_EXPORT SCCOL_ClickEvaluate ( scColumn* col, 

const scMuPoint& pt, 
REALS. dist ) 



{ 



status stat « scSuccess; 

scMuPoint cmpt pt; 

EnterMonitor( scString( "SCCOL„ClickEvaluate" ) ); 
try { 

col->ClickEvaluata( cmpt, dist ); 
IGNORE_RERAISE; 

EKitMonitor( scString( "SCCOL„ClickEvaluate" ) ); 
return stat; 



} 



status scIMPL„EXPORT SCCOL„StartSelect ( scColumn* col, 

const scMuPointSc pt, 
HiliteFuncPtr DrawRect, 
APPDrwCtK mat, 
scSe's^^ction*& selectID ) 
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EKitMonitor( scString{ "SCAPPTXT„Delete" ) ); 
return stat; 

} 

status scIMPL„EXPORT SCFS.PasteAPPTeKt ( scColumn* col, 

stText ImportExport Sc appTeK t , 

scRedispList* redispList ) 

status Stat - scSuccess; 

EnterMonitor{ scString( "SCFS_PasteAPPText " ) ); 
try { 

col->PasteAPPText ( appTeKt, redispList ); 

} 

I(MORE„RERAISE; 

EKitMonitor( scString( "SCFS_PasteAPPTeKt" ) ); 
return stat; 

} 

/» 

status scIMPL_EXPORT SCSEL^PasteAPPTest ( scSelection* sel , 

stXext ImportEsportSt appText , 

scRedispList* redispList ) 

13 

, Status stat ^ scSuccess; 

:J EnterMonitor( scString{ "SCSEL„PasteAPPTest *' ) ); 
fU try { 

m sel->PasteAPPText ( appText, redispList ); 

^1 } 

IGNORE„RERAISE; 

ii ExitMonitorC scString( "SCS£L_PasteAPPTeKt*' ) ); 
"^"^ return stat; 

I. 
O 

flatus scIMPL_EXPORT SCSTR„GetAPPText ( scStream* stream. 
1^ stXext Import EKportSc apples t ) 

fa 

IZ. status stat ^ scSuccess; 
/*CLIPSTUFF»/ 

EnterMonitor( scString( "SCSTR_GetAPPText" ) ); 
try { 

stream->CctpyAPPTes:t ( appText ); 

} 

IGNORE.RERAISE; 

ExitManitor( scStringC "SCSTR_GetAPPText" ) ); 
return stat; 

} 

status scIMPL.EXPORT SCSEL„GetAPPTeKt ( scSelection* selection, 

stTextlmportExportSc appText ) 

status stat = scSuccess; 
/*CLIPSTUFF«/ 

EnterMonitor( scString( "SCSEL_GetAPPTeKt " ) ); 
try { 

seiection->CopyAPPTeKt ( appText ); 

} 

lONORE.RERAISE; 
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status scIMPL^EKPORT SCWriteTestFile ( scStream* stream, 

APPCtKPtr ctxPtr, 
lOFuncPtr writeFunc ) 

{ 

status Stat - scSuccess; 

EnterMonitorC scString( "SCWriteTextFile" ) ); 
try { 

stream->STRWriteTeKtFile( ctxPtr, writeFunc, false ); 
IGNORE„RERAISE; 

ExitMonitor( scString( "SCWriteTestFile" ) ); 
return stat; 

} 



status scIMPLJXPORT SCTestFileToScrap ( scScrapPtr& scrapH, 

APPCtsPtr ctKPtr, 
lOFuncPtr readFunc ) 

{ ^ 
status Stat - scSuccess; 

EttterMonitor( scStrincfC "SCTextFileToScrap" ) ); 

try { 

TypeSpec null Spec; 

fn scStream* stream scStream: :ReadTextFile ( nullSpec, ctxPtr, readFunc, 0 ) 

f\i scrapH = stream; 

} 

W ICMORE^RERAISE; 

%A ExitMonitor( scString( "SCTextFileToScrap" ) ); 
return stat; 

stitus scIMPL.EXPORT SCAPFDCr„Alioc ( stTextImportExport*S. apptext ) 
|x status stat = scSuccess; 

EnterMonitor( scString( "SCAPPIXHAlloc" ) ); 
apptext « 0; 
try { 

appteKt = tetXextlmportEKport : :MakeTeKtImportExport( 1 ); 
IGNORE„RERAISE; 



ExitMonitor( scString( "SCAPPTXT„Alloc" ) ); 
return stat; 



status scIMPL_EXPORT SCAPPTXr_Delete ( stXextlmportExport* apptext ) 
status stat ^ scSuccess; 

£nterMonitor( scString( "SCAPPIXI^Delete" ) ); 

try { 

apptext->release ( ) ; 

} 

IC1?0RE_RERAISE; 
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status scIMPL^EXPORT SCCOL_Unlink ( scColumn* col. 

^ scRedispList* redispList ) 

status Stat ^ scSuccess; 

EnterMonitor( scString( "SCCOL^Unlink" ) ); 
try { 

col->Unlink( redispList ); 
IGI50RE„RERAISE; 

ExitMonitar( scString( *'SCCOL„Unlink" ) ); 
return stat; 

} 

Status scIMPL^EXPORT SCFS„Split( scColumn* coll, 

scColumn* col 2 ) 

{ 

status Stat scSuccess; 

EnterMonitor( scString{ "SCFS.Split" ) ); 

try { 

^ coll->BreakChainC col 2 ); 

IGNORE„RERAISE; 

'.3 EsitMonitor( scString( "SCFS^Split ) ); 
fn retuorn stat; 

ii 



s^tus scIMPL_EXPORT SCCOL^GetStream ( scColumn* col, 
^'"^ scStream*S: stream ) 

fi status stat ^ scSuccess; 

J" EnterMonitor( scString( *'SCCOL„GetStream" ) ); 

W try { 

1^ stream - col->GetStream (); 

53 IGKOREJERAISE; 

ExitMonitor( scString( "SCCOL^GetStream" ) ); 
return stat; 

} 



ss = S5 as fi; 



status scIMPLEXPORT SCFS„ReadTextFile ( scColumn* col, 

TypeSpec spec, 

APPCtxPtr ctxPtr, 

lOFuncPtr readFunc , 

scRedispList* redispList ) 



{ 



status stat = scSuccess; 

EnterMonitor( scString( "SCFS_ReadTeKtFile" ) ); 
try { 

^ col->HeadTextFiie( spec, ctxPtr, readFunc, redispList ); 
IC1^0RE_RERAISE; 

EKitMonitor( scString( "SCFS.ReadTeKtFile" ) ); 
return stat; 
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status scIMPL„EXPORT SCCOL^QueryMargins ( scColumn* col. 
^ scXRect& xrect ) 

status Stat « scSuccess; 

EnterHcinitpr{ scString( "SCCOL^QueryMargins" ) ); 
try { 

col->QueryMargins( Krect ); 
IGNORE^RERAISE; 

EKitMonitor{ scString( "SCCOL^QueryMargins" ) ); 
return stat; 

} 

Status scIMPL.EXPORT SCCOL.Size( scColumn» col, 

scSizeS: size ) 

{ 

status Stat « scSuccess; 

EnterMonitor( scString( "SCCOL_Sise" ) ); 

try { 

col->QuerySize( size ); 
IGNORE„RER^iISE; 

ExitMonitor( scString{ "SCCOL_Size" ) ); 
return stat; 

m 

sfaAtus scIMPL_EXPORT SCOB J_Enumerate ( scTBOfoj* obj , 

longS, obj Enumerate ) 

'^■"^ status stat « scSuccess; 

a EnterMonitor( saString( "SCOBJ„Enumerate" ) ); 

f 

'1 try { 

if ( ofoj->IsClassC "scColumn" ) ) 

{ (scColuinn*)ofoj)->Enumerate( obj Enumerate ); 
1^. else if ( obj->IsClass( "scContUnit" ) ) 
f-^ ( (scStream*)obj )->DeepEnumerate( obj Enumerate ); 

I'f, else 

4 J raise ( scERRstructure ); 

} 

IGNORE^RERAISE; 

ExitMonitor( scString( "SCOBJJnumerate" ) ); 
return stat; 

} 

Status scIMPL_EXPORT SCCOL„Link( scColumn* coll, 

scColumn* col 2, 

^ scRedispList* redispList ) 

status stat = scSuccess; 

EnterMonitor( scString( "SCCOL_Link" ) ); 

try { 

coll->Link{ col2, true, redispList ); 
IGNORE^RERAISE; 

ExitMonitor( scString( "SCCOL_Link" ) ); 
return stat; 

} 
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try { 

delete enuiuTable, enumTable ^ 0; 
scColumn: ; Update ( redispList ); 

IGHORE_R£RAISE; 

ExitMonitor( scString( '"SCSET_FiniRead" ) ); 
return stat; 

} 

Status scIMPL_EXPORT SCSET^Abortf scSet*S. enumXable ) 
status Stat * scSuccess; 

EnterMonitor( scString{ " SC SET Abort t" ) ); 
try { 

enumTable->DeleteAll (); 
I(1?0RE„RERAISE; 

ExitMonitor( scString( "SCSET„Abortt " } ); 
return stat; 

} 

Status scIMPL„EXPORT SCOB J_PtrRestore ( scTBObj* obj^ 
fi scSet* enusolable 

in status Stat = scSuccess; 

•'^ EnterManitor( sc;Strincf( "SCOBJ_PtrRestore" ) ); 

id try { 

long 1, 

limit ^ enumTable->GetlsrumItems{) ; 

s for ( i « 0; i < limit; i-f-^- ) { 

n scTBObj* ptr = (scTB0b3*)enumTable->Get( i ); 

if ( ptr ) 

ptr->RestorePointers( enumXable ); 

II } 

U IONORE„RERAISE; 

C3 ExitMonitorC scString( "SCOBJJtrRestore*' ) ); 
return stat; 

} 

Status scIMPL„EXPORT SCCOL_,QueryInkExtents ( scColumn* col 
^ scXRectSc srect ) 

status stat = scSuccess; 

£nterMonitor( scStrin^C "SCCOL^QuerylnkEKtents" ) ); 
try { 

col->ComputeInkExtents ( ) ; 
xrect « col->GetInkEKtents(); 

IGMORE_RERAISE; 

EKitMonitor( scString{ "SCCOL_QueryInkEstents" ) ); 
return stat; 

} 
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try { 

scAsssrt( str == cslist .GetStreaKi( ) ); 
str->SetParaSpecList( cslist, rinfo ); 

IQHORE.RERAISE; 

EKitMonitor( scString{ "SCSTR^PARATSListSet " ) ); 
return stat; 

} 

status scIMPL_EXPORT SCEsternalSize ( scColumn* col. 
^ long& size ) 

status Stat - scSuccess; 

EnterMonitor( sc:String( '*SCEKternalSize" ) ); 
try { 

col->EsternalSize( size ); 
laNORE^RERAISE; 

ExitMonitor( scStringC "SCEKternaiSize" ) ); 
return stat; 

} 



Bf4tnB scIMPUXPORT SCTB.ZeroEnumerationf void ) 
\^ status stat scSuccess; 

in EnterMonitor{ scString( "SCTB.Zero Enumeration'* ) ); 
try { 

scColumn* col = scColumn : :GetBaseContextList () ; 
ly for ( ; col; col - coi->GetConteKt ( ) ) 
Hj col->2eroEnumeration() ; 

£3 ICMORE_RERAISE; 

m ExitMonitor( scString{ "•SCTB_ZeroEnuiueration" ) ); 
^"t return stat; 

id 

stitus sclMPLJXPORT SCSET^InitRead ( scSet*& enumXable, 
- ' long maKsize ) 



{ 



} 



status stat = scSuccess; 

EnterMonitor( scString( "SCSET^InitRead" ) ); 
try { 

enumTabie ^ SCNEW scSet; 
enumTafole->SetMumSlots( maxsize ); 
enumTable'->SetRetainMein( true ); 

I(^ORE„RERAISE; 

EKitMonitor( scStringC " SCSET JnitRead" ) ); 
return stat; 



Status scIMPL^EXPORT SCSET„FiniRead{ scSet* enumTabie, 
^ scRedispList* redispList ) 

status stat - scSuccess; 

EnterManitor( scString( "SCSET„FiniRead" ) ); 
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EnterMcmitor( scString( "SCSEL^PARATSList" ) ); 
try { 

sel->GetPardSpecList ( cslist ); 

} 

IGl^IORE^RERAISE; 

£KitMc.nitor( scString( "SCSEL„PARATSList" ) ); 
return stat; 

} 

Status scIMPL„EXPORT SCSEL„PARATSList ( scSelection* sel, 

scTypeSpecListSc tsList ) 

{ 

status Stat scSuccess; 

EnterMonitor( scString( "SCSEL„PARATSList" ) ); 
try { 

sel->GetParaSpecList ( tsList ); 

} 

IGNORE„RERAISE; 

EKitMonitor( scString( "SCSEL^PARATSList " ) ); 
return stat; 

} 

JSitus scIMPL^EXPORT SCSTR„PARATSList ( scStream* st3ream^ 
i,l scSpecLocListSt cslist ) 

t',"- status stat « scSuccess; 

EnterMonitor( scString( "SCSTR^PARATSList" ) ); 

U\ try { 

^"1 stream->GetParaSp^cList( cslist ); 

'■'^ } 

p IMORE^RERAISEj 

:^ ExitMonitor( scString( "SCSTR.PARATSList" ) ); 
l=J return stat; 

stStus scIMPL^EXPORT SCSTR_CHTSListSet ( scStream* str^ 
f3 const scSpecLocListSt csList^ 

scRedispList* redispList ) 

{ 

status stat « scSuccess; 

EaterMonitor( scString( "SCSTR^CHISListSet" ) ); 
try { 

scAssert( str -« csList .GetStreaisO ); 
str->SetCharSpecList C csList* redispList ); 

} 

IGNOREJERAISE; 

EKitMonitor( scString( "SCSTR^CHTSListSet" ) ); 
return stat; 

} 



Status scIHPL^EXPORI SCSTR^PARATSListSet ( scStream* str^ 

const scSpecLocListSs cslist, 
scRedispList* rinfo ) 

{ 

status stat = scSuccess; 

£nterMonitor( scStrins( *'SCSTR„PARATSListSet" ) ); 
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status scIMPL.EXPORT SCCOL^F low Just ify( scColumn* col, 

eVertJust attributes ) 



status Stat = scSuccess; 

EnterMonitor( sc:String( "SCCOL_F low Justify*' ) ); 
try { 

col->SetVJ( attributes ); 

} 

IGIsrOR£_^REHAISE; 

EKitMonitor{ scString( "SCCOL^FlowJustify" ) ); 
return stat; 



/* 



status scIMPLJXPORT SCSTR.ChCount ( scStream* stream, 
^ longSt count ) 

status stat scSuccess; 

EnterMonitor( scString( "SCSTR^ChCount " ) ); 
try { 

stream->ChCount( count ); 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( "SCSTR^ChCount " ) ); 
return stat; 

}0 



/'Ml 



s^tus scIHPL.EXPORT SCSEL^TSList ( scSelection* selection, 

scTypeSpecListS: tsList ) 

status stat = scSuccess; 
C3 EnterMonitor( scString( "SCSEL„TSList" ) ); 

n try { 

r, sslection->GetTSList ( tsList ); 
IJ IGliJORE^RERAISE; 

]Z EKitMonitor( scString( "SCSELJISList" ) }; 
return stat; 

status scIMPL„EXPORT SCSEL^CHISList ( scSelection* selection, 

scSpecLocListSt csList ) 



{ 



} 

/» 



status stat « scSuccess; 

EnterManitor( scString( "SCSEL^CHTSList" ) ); 
try { 

selection->GetCharSpecList( csList ); 
IGNORE„RERAISE; 

EKitMonitor( scString( "SCSEL.CHTSList" ) ); 
return stat; 



*/ 



status scIMPLJXPORT SCSEL.PARATSList ( scSelection* sel, 
^ scSpecLocListSc cslist ) 

status stat = scSuccess; 
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return stat; 

} 

status scIMPLJXPORT SCSTR„TSList ( scStream* stream, 
^ scTypeSpecListSs tsList ) 

status Stat ^ scSuccess; 

EnterMonitor( scString( "SCSTR_TSList" ) ); 
try { 

stream->STRGetTSList( tsList ); 
IGNOREJER^ISE; 

EKitMonitor( scStrin^C "SCSTR_TSList " ) ); 
return stat; 

} 



Status scIMPL„EXPORT SCSTR_ParaTSList ( scStream* stream, 
^ scTypeSpecListS: tsList ) 

status stat ^ scSuccess; 

EnterMonitor( scString( "SCSTRJaraTSList" ) ); 
try { 

stream->GetPdraTSList( tsList ); 
%2 IGNORE^RERAISE; 

f h 

fil ExitMonitorC scString( "SCSTR.ParaTSList " ) ); 
return stat; 



s ss =s rs as =s * / 



sMtus scIMPL_EXPORT SCSTR^CHISList ( scStream* stream, 
5^ scSpecLocListSe csList ) 

status stat - scSuccess; 

EnterMonitor( scString( "SCSTR^CHTSList" } ); 
U try { 

stream- >GetCharSpecLi St ( csList ); 

!f } 

O IGK[ORE_J^ERAISE; 

EKitMonitor( scString( "SCSTR^CHISList" ) ); 
return stat; 

} 

Status scIMPL_EXPORT SCCOL.SetDepthNVJ ( scColumn* col, 

MicroPoint depth, 
^ scRedispList *redispList ) 

status stat - scSuccess; 

EnterMonltor( scString( "SCCOL^SetDepthWJ" ) ); 
tr-f { 

coi->SetDepthNVJ ( depth, redispList ); 
IGNORE.RERAISE; 

EKitMojaitor( scString( "SCCOL_SetDepthWJ" ) ); 
return stat; 

} 
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status scIMPL„EXPORT SCHRGN^Rectln ( const HRgnHandle hrgH, 
^ const scXRectS xract ) 

status Stat = scSuccess; 

EnterMonitor( scString( "SCHRGMJectIn'* ) ); 
try { 

Stat - RectIiiHRgn( hrsH. xrect ) ? scSuccess ; scNoAction; 
ICMORE„RERAISE; 

ExitMonitar( scString{ "SCHRGN^Rectln" ) ); 
return stat; 

} 



status scIMPL_EXPORT SCCOL_Update ( scColumn* col. 

const scXRectSf xrect, 
^ APPDrwCtK mat ) 

status stat ~ scSuccess; 
■^^Z, EnterMonitor( scString( "SCCOL„Update" ) ); 

In try { 

f\l col->Draw ( xrect, mat ); 

k3 IGMORE^RERAISE; 

E3titMonitor( scString( "SCCOL„Update" ) ); 
^,2 return stat; 

status scIMPL„EXPORT SCCOL_UpdateLine ( scColumn* col, 

sclHimediateRedispE lineDamage^ 
U APPDrwCtK mat ) 

{]^^ 

status stat = scSuccess; 
C3 EnterMonitorC scString( "SCCOL_UpdateLine" ) ); 

try { 

coi->UpdateLine{ IxneDamage, mat ); 
IGNORE_.RERAISE; 

ExitMonitor( scString( "SCCOL^UpdateLine" ) ); 
return stat; 

} 



status scIMPL„EXPORT SCCOL.TSList ( scColumn* col, 
^ scTypeSpecListSc tsList ) 

status stat = scSuccess; 

EnterMonitor( scString( "SCCOL^TSList " ) ); 
tr^ { 

col->GetTSList( tsList ); 
IGNORE.RER^ISE; 

EKitMonitor( scString( "SCCOL TSList" ) ); 
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status scIMPLJXPORT SCHRGN_Translate ( HRgnHandle hrgH. 

MicroPoint 
MicroPoint y ) 

status Stat = scSuccess; 

EBterMonitor( scString( "SCfiRGlsF_Translate" ) ); 
try { 

TranslateHRgn( hr^H, 22. y ); 
IGNORE JERAISE; 

ExitMonitor( scString( "SCHRGN.Translate" ) ); 
return stat; 

} 



Status scIMPLJXPORT SCHRGM„Inset ( HRgnHandie hrgH. 

MicroPoint x, 
MicroPoint y ) 

{ 

status Stat = scSuccess; 

EnterMonitor( scString( "SCHRGasLInset" ) ); 
try { 

IzisetHRgn( hrgH, y. true }; 
Q ICajORE^RERAISE; 

l\] ExitMonitor( scString( "SCHRG]!^ Inset" ) ); 
' Z return stat ; 

yQ 



Status scIMPL„EXPORT SCHRGKLSetEmpty ( HRgnHandle hrgH ) 

status stat ^ scSuccess; 
"■4 EnterMonitorC scString( "SCHRGN.SetEmpty" ) ); 

' i - l 

'il try { 

SetEmptyHRgn ( hrgH ); 

13 IGKIORE_RERAISE; 

ExitMonitor( scStringC "SCHRGN_Set Empty" ) ); 
return stat; 

} 



Status scIMPL„EXPORT SCHRGN^SliverSize ( HRgnHandle hrgH, 
^ MicroPointS: sliverSis 

status stat = scSuccess; 

EnterMonitor( scString( "SCHRGM„SliverSize" ) ); 
try { 

sliverSise - RC^SliverSize( hrgH ); 
IGHORE.RERAISE; 

EKitMonitor( scString{ "SCHRGN„SliverSize" ) ); 
return stat; 

} 
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const HRgnHandle b. 
^ HRgnHandls dstRgnH ) 

status Stat = scSuccess; 

EnterMonitor( scString( '*SCHRGlsf„Sect " J ); 
try { 

SectHRgn ( a , fo , dstRgnH ) ; 
IGNORE„RERAISE; 

EstitMonitorC scString{ "SCPiRG^.Sect" ) ); 
return stat; 

} 



status scIMPL„EXPORT SCHRGlsUnion ( const HRgnHandle a. 

const HRgnHandle fo, 
^ HRgnHandle dstRgnH ) 

status Stat = scSuccass; 

EnterMonitor( scString( ''SCHRGN.Union" ) ); 
try { 

UnionHRgn( a, b, dstRgnH ); 

IC1?0RE„RERAISE; 

W ExitMonitor( scString( "SCHRGlSLUnion" ) ); 
y return stat; 

ru 

sjftus scIMPL_EXPORT SCHRGN_Diff ( const HRgnHandle a, 
^Z^ const HRgnHandle b, 

HRgnHandle dstRgnH ) 

status stat = scSuccess; 

EnterMonitor( scString( "SCHRGM^Dif f " ) ); 

III try { 

- DiffHRgn( a, b, dstRgnH ); 

13 I(130RE_„RERAISE; 

ExitMonitor( scString( **SCHRGIsr_Dif f " ) ); 
return stat; 

} 



status scIMPL^EXPORT SCHRGN„XorC const HRgnHandle a, 

const HRgnHandle b, 
^ HRgnHandle dstRgnH ) 

status stat ^ scSuccess; 

EnterMonitar( scString{ "SCHRGN„Xor" ) ); 

try { 

XorHRgn{ a, b, dstRgnH ); 
IGlsIORE_RERAISE; 

EKitMonitor( scString{ "SCHRC^„Xor" ) ); 
return stat; 

} 
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status scIMPL„EXPOET SCHR(^_PtIn( const HR^nHandle hrgH. 

const scMuPoiutSc pt ) 

{ 

status Stat =* scSuccess; 

EnterMDnitor( scString( "SGHRGtLPtIn" ) ); 
try { 

Stat « PtInHRgn( hrgH, pt ) ? scSuccess : scHoAction; 

} 

IGNORE„RERAISE; 

EKitMonitor( scString( "SCHRGN^Ptln" ) ); 
return stat; 

} 



status scIMPLJXPORT SCHRQN.RectC HRgnHandle hrgH. 

const scXRectSc nrsct ) 

{ 

status stat » scSuccess; 

EnterMonitor( scString( "SGHRGN_Rect" ) ); 
try { 

Rec:tHRgn( hrgH, xrect ); 

} 

IGNORE„RERAISE; 

_ EKitMonitor( scString( "SCHRGM^Rect " ) ); 
iJ return stat; 

in 

^tjtus scIMPL^EXPORT SCHRGN„Poly( HRgnHandle hrgH, 
""^1 const scVerteK* verts ) 

11 status stat scSuccess; 

EnterMonitor( scString( ''SCHRGN^Poly*' ) ); 

13 try { 

■■'^j PolyHRgn( hrgH^. verts ); 

h\ } 

IGMORE„RERAISE; 

r 

C3 ExitMonitor( scString( "SCHRGlsLPoly" ) ); 
7^ return stat; 



Status scIMPL_EXPORT SCHRGlsLCopy ( HRgnHandle dstRgn, 

const HRgnHandle srcRgn ) 

{ 

status stat = scSuccess; 

EnterMonitor{ scString( "SCHRGN_Copy" ) ); 
try { 

CopyHRgn( dstRgn^ srcRgn ); 

} 

IGMORE„RERAIS£; 

EKitMonitor( scString( "SCHRGN^Copy" ) ); 
return stat; 

} 



Status scIMPLJXPORT SCHRGlsI_Sect { const HRgnHandle a. 
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status scIMPLJXPORT SCHRGNJs[ew( HRgnHandle£= hrgH, 

MicroPoint sliverSise ) 

{ 

status Stat * scSuccess; 

EnterMonitor( scString( "SCHRGN_Hew" ) ); 

try { 
} 

IGlslORE^RERAISE; 

EKitMonitorC scString( "SCHRGH„New" ) ); 
return stat; 



Status scIMPL_EXPORT SCHRGNJispose ( HRgnHandle hrgH ) 

{ 

status stat - scSuccess; 

EnterMonitor( scStrine( "SCHRGNJispose" ) ); 
try { 

DisposeHRgn( hr^H ); 

} 

I(^ORE„RERAISE; 

iy" ExitMonitor( scString( "SCHRGNJispose" ) ); 
i'k return stat; 

j;; 

status scIMPL_EXPORT SCHRGN_Empty ( HRgnHandle hrgH ) 

13- 

status stat « scSuccess; 

EnterMonitor( scString{ "SCHRGM_Empty" ) ); 
y try { 

1:1 Stat = EmptyHRgn( hrgH ) ? scSuccess : scNoAction; 

1: } 

^ IGTORE^RERAISE; 

p EsitMonitor( scString( »SCHRGN„Empty" ) }; 
return stat; 

} 

Status scIMPL_EXPORT SCHRGH_,Equal ( const HRgnHandle a, 

const HRgnHandle b ) 

{ 

status stat = scSuccess; 

EnterMonitor( scString( "SCHRGH.Equal" ) ); 
try { 

stat ^ EqualHRgu( a, b ) ? scSuccess ; scfel^ction; 

} 

IGKfORE„RERAISE; 

EKitMonitor( scString( '^SCHRd^Jqual" ) ); 
return stat; 

} 
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EsitMonitor( scString( "SCCOL^ClearPoiy" ) ); 
return stat; 

} 

Status scIMPL^EXPORI SCCOL.CopyPoly ( scColumn* col, 

scVerteK«£c vert ) 

{ 

status Stat « scSuccess; 
/♦CLIPSTUFF*/- 

£nterMonitor( sc;String( "SCCOL_CopyPoly" ) ); 
try { 

co2->CopyPoly( vert ); 

} 

IGi50RE.RERAISE; 

EKitMonitor( scString( "SCCOL^CopyPoly" ) }; 
return stat; 

} 

Status scIMPLEXPORT SCCOL„PasteRgn ( scColumn* col. 

const HRgnHandle rgnH^ 
scRedispList* redispList ) 

{ 

status stat = scSuccess; 

ERterMonitor{ scStriiig{ ''SCCOLJPast^Rs^'' ) ); 
%J try { 

fn col->PasteRgn( rgnH, redispList ); 

%l } 

I(^ORE_RERAISE; 

£j ExitMonitorC scString( "SCCOL„PasteRgn" ) ); 
Z"^. return stat; 

ti 

^tus scIMPL„EXPORT SCCOL„ClearRgn ( scColumn* col, 
''~J scRedispList «redispList ) 

tJ 

s , status stat = scSuccess; 

'^Z Ent©rManitor( scString( "SCCOL_ClearRgn" ) ); 

P 

Q try { 

col->ClearShape( redispList ); 

} 

IGNORE„RERAIS£; 

EKitMonitor( scString( "SCCOL_ClearRgn" ) ); 
return stat; 



status scIMPLJXPORT SCCOL.CopyRgn ( scColumn* col, 

HR0nHandle& rgnH ) 

{ 

status stat ^ scSuccess; 

EnterMonitor( scStringC "SCCOL^CopyRgn" ) ); 
try { 

col->CopyRgn( rgnH ); 

} 

I(3srORE_RERAISE; 

EKitMonitor( scString( "SCCOL_CopyRgn" ) ); 
return stat; 
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} 

ICMORE^RERAISE; 

ExitMonitorC scStriugC "SCCOL.GetHorzFlex" ) ); 
return stat; 

} 

Status scIMPL_EXPORT SCCOL„GetF lowDi recti on ( scColumn* col, 

scFlowBirSt flodir ) 

{ 

status steit ^ scSuccess; 

EnterMonitor( scString( "SCCOL„GetFlowDi recti on" ) ); 
try { 

flodir = col->GetFlo^dir(); 

} 

IGNORE„RERAISE; 

EsitMonitor( scString( "SCCOL_GetFlowDirection" ) ); 
return stat; 



Status scIMPL„EXPORT SCCOL.SetF lowDi recti on ( scColumn* col, 

const scFlowDirSt flodir ) 

{ 

status Stat » scSuccess; 
y EnterMonitor( scStringC "SCCOL^SetFlowDi recti on" ) ); 

m try { 

col->FlowsetSetFlowdir( flodir ); 

} 

%3 IG]b50R£„RERAISE; 

^1 ExitMonitorC scString( "SCCOL_SetFlowDi recti on" ) ); 
"'j^ return stat; 

#ijf defined ( scColumnShape ) 

ftptus scIMPLJXPORT SCCOL„PastePoly ( scColumn* col, 
5T const scVertes* vert, 

scRedispList* redispList ) 

13 

£j status stat = scSuccess; 

EnterMonitor( scString( "SCCOL_PastePoly" ) ); 

try { 

// col">PastePoly ( vert, redispList ); 

} 

IGWOREJERAISE; 

ExitMonitor( scStringC "SCCOL_PastePoly" ) ); 
return stat: 



Status scIMPL_EXPORT SCCOL_ClearPoly ( scColumn* col, 

scRedispList* redispList ) 

{ 

status stat ^ scSuccess; 

EntsrMonitor( scString( "SCCOL^ClearPoly" ) ); 
try { 

col->ClearShape( redispList ); 

} 

IGKOREJERAISE; 

14 



File: Work\CrtPrt\Stonehnd\Scapi .cpp 



Pg: 13 



status Stat ^ scSuccess; 

EnterMonitor( scString( "SCCOL_ClsarV©rtFles" ) ); 
try { 

col~>SetVertFies ( false^ redispList ); 

} 

IGNORE_R£RAISE; 

£KitMcinitor( scString( "SCCOL_ClearVertFleK" ) ); 
return stat; 



status scIMPL^EXPORT SCCOL^SetHosrzFlex ( scColumn* coU 

scRedxspList* redispList ) 

{ 

status Stat « scSuccess; 

EnterMonitor( scString( "SCCOL^SetHorzFleK" ) ); 
try { 

col->SetHor2Flex ( trne^ redispList ); 

} 

IGNORE„RERAISE; 

EKitMonitor( scStrins( "SCCOL^SetHorzFlejs" ) ); 
rat urn stat; 

} 

:g|atus scIMPL„EXPORT SCCOL^ClearHorzElex ( scColumn* col, 

IS scRedispList* redispList ) 

fy status stat « scSuccess; 

.^3 EnterMonitor( scString( "SCCOL^ClearHorzFleg:" ) ); 

^vJ col->SetHor2Fl©K ( false, redispList ); 

IG1J?0RE_R£RAISE; 

S3 EKitMonitor( scString( "SCCOL^ClearHorsFles:'* ) ); 
""-J return stat; 

|y 

llatus scIMPL„EXPORT SCCOL^GetVertFlex ( scColumn* col, 
''■^ BoolS: tf ) 

{ 

status stat - scSuccess; 

EnterMonitor( scString( *'SCCOL„GetVertFieK" ) ); 
try { 

tf = col->GetVertFles( ); 

} 

KSSfORE^RERAISE; 

EKitMonitor( scStriug( "SCCOL^GetVertFlex" ) ); 
return stat; 

} 

status scIMPL„EXPORT SCCOL_GetHorzFlex ( scColumn* col, 

BoolSc tf ) 

{ 

status stat scSuccess; 

Enteri^onitor( scString( "SCCOL„GetHorzFlex" ) ); 



try { 

tf = col->GetHcrzFleK( ); 



13 



File: WorkxCrtPrt \Stonehnd\Scapi , cpp 



Pg: 12 



try { 

Stat ^ col->HasText ( ) ? scSuccess : scMoActioti; 

} 

IGNORE^REHAISE; 

ExitMonitor( scStriag( *'SCCOL_HasText" ) ); 
return stat; 

} 

// tests to see if there is more text than is in this column 
// this V5ould set the flag to true i£: 

there is tsKt in subsequent linked columns 
// there is unformatted text that will not fit in this column 

status scIMPL„£XPORT SCCOLJdoreTeKt ( scColumn* coU 

B00I& flag ) 

{ 

status stat = scSuccess; 

EnterMonitor( scString( "SCCOL„MoreTeKt" ) ); 
try { 

flag » co2->MoreText( ); 

} 

IGMORE.RERAISE; 

ExitMonitor( scString( "SCCOL„MoreTeHt " ) ); 
return stat; 

Cp 

Status scIMPLJXPORT SCCOL_LinePositions ( scColumn* col, 

=.3 scLinelnfoList* imelnfo, 

I J long& nLines, 

Bool St moreXext ) 

ij Status stat - scSuccess; 

1 EnterMonitorC scString( "SCCOL_LinePositions" ) ); 
P try { 

'^u col->LxneInfo ( linelnfo, nLmes, moreText ); 

} 

H I(^ORE_RERAISE; 

13 ExitMonitor( scString( "SCCOL„LinePositions" ) ); 
r-z return stat; 

f 

status scIMPL_EXPORT SCCOL„SetVertFlex ( scColuziui* col, 

scRedispList* redispList ) 

{ 

status stat « scSuccess; 

EnterMonitor( scString( "SCCOL_SetVertFlex" ) ); 
try { 

col->SetVertFiex ( true, redispList ); 

} 

IGNORE„RERAISE; 

ExitMonitor{ scStringC "SCCOL^SetVertFlex" ) ); 
return stat; 

} 

status scIMPL_£XPORT SCCOL_ClearVertFlex ( scColumn* col, 

scRedispList* redispList ) 
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} 



return statj 



status scIMPL„EXPORT SCSTR_Split( scStream* streaml, 

scContUnit* cu, 
scStream»Sc stredm2 ) 



{ 



status Stat ~ scSuccess; 

EnterMonitor( scString( "SCSTR„Split" ) ); 

try { 

streamZ ^ streaml->Split { cu ); 
IGMORE„RERAISE; 

EKitMonitor( scString{ "SCSTR^Split" ) ); 
return stat; 



/* 



compare streams for equality, this tests content and specs 
* scSuccess equality 

status scIMPL^EXPORT SCSTR^Compare ( const scStream* strl, 

const scStream* str2 ) 



{ 



status stat = scSuccess; 

EnterMonitor( scString( "SCSTR_„Compare " ) ); 
try { 

stat « strl->Compare( str2 ) ? scSuccess : scHoAction; 

> 

IGNORE_RERAISE; 

EsitMonitor( scStrine( "SCSTR_Compare" ) ); 
return stat; 



ptatus scIMPL_EXPORT SCC0L_SetSi2e { scCoiumn* col, 

H MicroPoxnt width, 

;j MicroPoint depth, 

p scRedispList* redispList ) 

status stat ^ scSuccess; 

EnterMonitor{ scString( "SCCOL.SetSize*' ) ); 



} 



try { 

If ( width < 0 ([ depth < 0 ) 
raise ( scERRinput ); 



} 



col->Resize( width, depth, redispList ); 



lObJORE^RERAISE; 

EKitMonitor( scString( "SCCOL_SetSize" ) ); 
return stat; 



yy is there any tent associated with this column 

status scIMPLJXPORT SCCQL„HasTeKt ( scColumn* col ) 
{ 

status stat =^ scSuccess; 

EnterMonitor( scString( "SCCOL_HasText" ) ) 
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} 

Status scIMPLJXPORT SCFS„PasteStream { scColumn* col, 

scStrsam* strearalD , 

^ scRedispList* redxspList ) 

status Stat - scSuccess; 

EnterMonitcrr( scString( "SCFS„PasteStresm" ) ); 
try { 

coi->FiowsetPasteStream( streamID, redxspList ); 
IGHORE^RERAISE; 

ExitMonitor( scString( "SCFS_.PasteStreaffi" ) ); 
return stat; 

} 

status scIMPL^EXPORT SCSTR„Clear ( scStream* stream, 

^ scRedispList* redispList ) 

status Stat scSuccess; 

scCoiumn* col; 
scTestl ine* txl; 

.^■^^ EnterHonitor( scString ( "SCSTR„Clear" ) ); 

^3 try { 

in if ( stream ) { 

txl stream->GetFirstline{); 
'2 if ( tKl ) { 

%d col « tKl->GetCoiumn( ); 

iJ if C col ) 

col ->FlowsetClearSt ream ( redispList ); 

else 

raise ( scERRstructure ); 

fj else if { stream->FindColumn( col ) ) 

!l col->FlowsetClearStream( redispList ); 

''■4 else 

iy /* if no layout structure associated with stream */ 

I s. stream- > STRFree ( ) ; 

II } 
else 

13 raise ( scUoAction }; 

IGMORE^RERAISE; 

EKitManitor( scStriiig( "SCSTR^Clear" ) ); 
return stat; 

} 



EKtr&cts a scContUnit from a scStreamLocation for use mth SCSTR_Split 

status scIMPLJXPORT SCSEL„GetContUnit ( scContUnit*£< mark, 

scContUnit*£c point, 

^ const scSelection* si ) 

status stat = scSuccess; 

EnterMonitor( scString( "SCSTR„GetContUnit" ) ); 
try { 

sl->GetContUnits( mark, point ); 
IGKTORE^RERAISE; 

EKitMonitor( scString( "SCSTR^GetContUnit " ^ ); 
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try { 

stream « scStream: :STRFromFile ( enumTable, ctsPtr, readFunc ) 
scAssert{ scTBObj : :StartRead{ enumXable, ctKPtr, readFunc ) = 

} 

IGNORE.REMISE; 

EsitMonitor{ scString( "SCSTR„Read" ) ); 
return stat; 

} 

Status scIMPL„EXPORT SCSTR_Write( scStream* stream, 

APPCtxPtr ctxPtr, 
lOFuncPtr writeFunc ) 

{ 

status stat ^ scSuccess; 

£nterMonitor( scString{ "SCSTR„Write" ) ); 

stream->STRWriteToFile( ctxPtr, wnteFunc ); 
scTBObj : :WriteNullObject( ctxPtr, writeFunc ); 

} 

IGNORE„RERAISE; 

EKitMonitor( scString( "SCSTR„Write" ) ); 
return stat; 

h 

ttktus scIMPL„EXPORT SCSTR.Cut ( scStream* streamID, 
I'll scRedispList* redispList ) 

i3 

status stat = scSuccess; 

^z. scColunin* col; 
scTeKtline* txl; 

l"^ EnterMonitor( scString( "SCSTR^Cuf' ) ); 

S3 try { 

"^J tsl - streamID->GetFirstlineC) ; 

if ( tKl ) 
'^'^ col ^ tKl->GetColuinn( ); 

else 

11 col » scColumn: :FindFlowset( streamID ); 

if ( col ) 

col->FlowsetCutStreain ( streamID, redispList ); 

else 

raise ( scERRstructure ); 

} 

IGHORE^RERAISE; 
return stat; 

> 



status scIMPL_EXPORT SCSTR„Capy{ const scStream* stream, 

scStream*£t newStream ) 

{ 

status stat - scSuccess; 

EnterMonitorC scString( "SCSTR„Copy" ) ); 

try { 

stream- >STRCopy( newStream ); 

} 

IGNORE_RERAISE; 

EsitMonitor( scStringC "SCSTR^Copy" ) ); 
return stat; „ 
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status scIMPL„£XPORT SCSCR_TSList { scScrapPtr scrap. 

scTypeSpecListSc tsList ) 

{ 

status Stat « scSuccess; 

EnterMonitor( scString( "SCSCR„TSList'* ) ); 
try { 

if ( scrap->IsClass( "scColumn" ) ) 

( (scColumn *) scrap ) ->GetTSList ( tsList ); 

else if ( scrap->IsClass{ "scContUnit" ) ) 

( (scStream*)scrap)->GetTSList ( tsList ); 

else 

Stat = scERRidentif ication; 

} 

IGNORE„RERAISE; 

ExitMonitor( scString( ''SCSCR^TSList" ) ); 
return stat; 

} 

status scIMPL_EXPORT SCSCR_Free( scScrapPtr scrap ) 
{ 

status Stat * scSuccess; 
long bytesFreed; 

EnterMonitor( scStrxng( "SCSCR_Free" ) ); 
13 try { 

^3 i^' ( ^ scrap ) 

^i: else'if ( scrap->IsClass{ "scColumn" ) ) 

f y ( (scColuian*)scrap)->F3reeScrap() ; 

Kl else if ( scrap->IsClass( "scContUnit" ) ) 

T^i ((scContUnit*) scrap )->FreeScrap( bytesFreed ); 

else 

"'J raise( scERRxdentif ication ); 

I" I(^ORE_RERAISE; 

C3 E2itMonitor( scStringC "SCSCR_Free" ) ); 
'^J return stat; 

y 

fiatus scIMPL.EXPORT SCCOL.Delete ( scColumn* col, 

" scRedispList* redispList ) 

{ 

status stat = scSuccess; 

EntezMonitor( scString( "SCCOL„Delete" ) ); 
try { 

col->Delete( redispList ); 
IGMORE„RERAISE; 

ExitMonitor( scStringC '*SCCOL„Delete*' ) ); 
return stat; 

} 

Status scIMPL_EXPORT SCSTR_Read( scStream*£t stream, 

scSe t * enumXab 1 e , 

APPCtKPtr ctxPtr, 
lOFuncPtr readFunc ) 

{ 

status stat ^ scSuccess; 

EnterMonitor( scString( "SCSTR_Read"' ) ); 
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lOFuncPtr 



writeFunc ) 



} 



status Stat = scSuccess; 

EnterMonitor( scString( "SCSCR.Write" ) ); 

try { 

if ( scrap->IsCiass( "scColumn" ) ) { 
scColumn* col - (scColumn*) scrap; 
col->2eroEnumeration ( ) ; 
col->StartWrite( ctxPtr, writeFuac ); 

else if ( scrap">IsClass( "scStream" ) ) { 
scStream* stream = (scStreain*) scrap; 
stream->STR2eroEnumeration ( ) ; 
streai!t->STHWriteToFile( ctsPtr, ??riteFunc ); 

} 

else 

raise( scERRidentif ication ); 
scTBOfoj : :WriteNullObject( otsPtr, writeFunc ); 

} 

IGHORE.RERAISE; 

EKitMonitor( scString( "SCSCR„Write" ) ); 
return stat; 



Status scIMPL.EXPORT 



SCSCR_ReadCol( scScrapPtrSc scrap. 



scSet* 
APPCtKPtr 
lOFuncPtr 



enumTable, 
ctKPtr, 
readFunc ) 



status Stat = scSuccess; 

EnterMonitor( scString( "SCSCR.ReadCol" ) ); 



m 



try { 

scColumn* col; 

col « (scColumn*) scTBObj :: St artRead( enumXable, ctKPtr, readFunc ); 
scAssert( scTBOb j : : StartRead ( enumXable, ctxPtr, readFunc ) 0 ); 
scrap col; 

} 

IGNORE_RERAISE; 

EsitMonitor( scString( "SCSCR„ReadCol " ) ); 
return stat; 



status scIMPL„EXPORT 



SCSCR„ReadStream{ scScrapPtr& scrapH, 

scSet* enumTable, 

APPCtsPtr ctKPtr, 

lOFuncPtr readFunc ) 



status stat ^ scSuccess; 

EnterMonitor( scString{ "SCSCR.ReadStream" ) ); 
scrapH ~ 0; 
try { 

scStream* stream - scStream; :STRFromFile( enumTable, ctxPtr, readFunc ) 
scAssert( scTBObj : rStartRead ( enumTable, ctxPtr. readFunc ) Q ) ; 
scrapH = stream; 

} 

lOiJORE^RERAISE; 

EKitMonitor( scString{ "SCSCR_ReadStream" ) ); 
return stat; 
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EnterMonitor( scString( "SCFS^GetRecompose" ) ); 
try { 

tf ^ c:ol->GetRecomposition ( ) ; 

} 

IGNORE JERAISE; 

EKitMonitorC scString{ "SCFS„Get Re compose" ) ); 
refarn stat; 

} 

status scIMPL„EXPORT SCFS_Recompose ( scCoiumn* col, 

scRedispList* redispList ) 

{ 

status Stat - scSuccess; 

EnterMonitor( scString( "SCFS^Recompose" ) ); 
try { 

col">RecoffiposeFlowset ( LONG_M^, redispList )^ 

} 

IGWORE„RERAISE; 

EKitMonitor( scString( "SCFS„Recompose" ) ); 
return stat; 

h 

Iflatus scIMPL EXPORT SCFS_Recoznpose ( scColumn* col, 

rlj long ticks. 

l'^ scRedispList* redispList ) 

status Stat * scSuccess; 
y En terMoni tor ( scString( "SCFS^Recompose*' ) ); 

try { 

^ col->RecomposeFlowset( ticks, redispList ); 

a } 

IGMORE_RERAISE; 

ExitMonitorC scString( "SCFS„Recompose*' ) ); 
H return stat; 

13 

l4 */ 



status scIMPL„EXPORT SCCOL„Kew( APPColumn appMaitie, 

scColumn*£E col , 
MicroPoint width, 
MicroPoint depth ) 

{ 

status Stat = scSuccess; 

EnterMonitorC scStringC "SCCOL_New" ) ); 

try { 

raise„if( width < 0 f| depth < 0, scERRinput ); 
col « SCKTEW scColuHin( appName, width, depth ); 

} 

IGlsFORE„RERAISE; 

EKitMonitor( scString( "SCCOL„New" ) ); 
return stat; 

} 

Status scIMPL_EXPORT SCSCR_Write( scScrapPtr scrap, 

APPCtKPtr , ctKPtr, 
6 
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try { 

deists rdlist, rdlist =0; 

} 

IGNORE„RERAISE; 

EKitMonitor( scString( "SCRDL_Dslste" ) ); 
return stat; 



/* Recompose a single column with sKtreme prejudice */ 

status scIMPLJXPORT SCCOL„Rs compose ( scColumn* col, 

scRedispList* redispList ) 

{ 

status Stat ^ scSuccess; 

EnterMonitor( scString( "SCCOL„Recompose" ) ); 
try { 

col->Rebreak( redispList ); 

} 

IGHORE^RERAISE; 

ExitMonitor( scString( "SCCOL_Recompose" ) ); 
rsturn stat; 

k 

Recompose a single column with extreztie prejudice »/ 

I:- ^ 

Silatus scIMPL_EXPORT SCRebreakCol ( scColumn* col, 

, n scRedispList* redispList ) 

"f-^ status stat = scSuccess; 

n EnterMonitor( scString( "SCRebreakCol " ) ); 
try { 

%4 col->Rebreak2( redispList ); 

} 

IC^ORE^RERAISE; 

1=^ EKitMonitor( scString( "SCRebreakCol " ) ); 
[j rsturn stat; 

fi 

Status scIMPL_EXPORT SCFS^SetRecompose ( scColumn* col, Bool tf ) 
{ 

status stat = scSuccess; 

EnterMonitor( scString( "SCFS.Set Recompose'* ) ); 

try { 

if ( col ) 

col~*>SetRecomposition ( tf ); 

} 

IGNORE^RERAISE; 

Es:itMonitor( scString( "SCFS_SetRacompose" ) ); 
rsturn stat; 

} 

Status sclMPLJXPORT SCFS_GetRecompose ( scColumn* col, 

B00I& tf ) 

{ 

status stat « scSuccess; ^ 
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} 

IGHORE^REmSE; 

Es:itMonitor{ scString( "SCCHTSJelete" ) ); 
return stat; 

} 

status scIMPL_EXPORT SCTSL_Alioc( scTypeSpecList*Sc tsiist ) 
{ 

status Stat ^ scSuccess; 

EnterMonitor( scString( "SCTSL^AHoc:" ) ); 

tslxst « 0; 

try { 

tsiist - SCNEW scTypeSpecList; 

} 

1GN0RE_RERAISE; 

E^itMonitor( scString( "SCTSL„Alloc" ) ); 
return stat; 

} 

hiatus scIMPL„EXPORT SCTSL„Delete ( scTypeSpecList*Sc tsiist ) 
1-^^ status stat = scSuccess; 

EnterMonitor( scStringC "SCTSL_Delete" ) ); 

IJ try { 

"-J delete tsiist, tsiist = 0; 

fi } 

IGNORE_RERAISE; 
fj ExitMonitor( scString( "SCTSLJelete" ) ); 
return stat; 

Wtatus scIHPL_EXPORT SCRDL_AllocC scRedispList*£c rdlist ) 
{ 

status stat ^ scSuccess; 

EnterMonitor( scString( "SCRDL^AHoc:" ) ); 

rdlist - 0; 

try { 

rdlist ^ SCMEW scRedispList ; 

} 

IGNORE.RERAISE; 

EKitMonitor{ scString( "SCRDL.Alioc" ) ); 
return stat; 

} 

status scIMPLJXPORT SCRDL„Delete { scRedispList*& rdlist ) 
{ 

status stat - scSuccess; 

EnterMonitor( scString{ "SCRDL„Delete" ) ); , 
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{ 

// MEMSetRest.rictioiis( meitiRetain ); 
return scSuccess; 

} 

Status scIMPL EXPORT SCENG UseRetainedMemory ( void ) 
{ 

// MEMSetRestrictionsC memUssRetained ); 
return scSuccess; 

} 

Status scIMPL.EXPORT SC£NG„ReleaseMemory ( void ) 
{ 

// MEMSetRestrictions( meniHoRestrictioas ); 
return scSuccess; 

} 

status scIMPL_EXPORT SCENG„ChangedTS ( TypeSpec ts, 

eSpacTask task ^ 
scRedispList* redispList ) 

{ 

status Stat = scSuccess; 

EnterMonitor( scString{ "SCENG^Chan^edTS" ) ); 
scCachedStyle: :StyleInvalidateCache ( ts ) ; 
W try { 

fy if ( task & eSCDoMl ) 

scColumn: :ChangedTS( ts^ task. redispList ); 

'1 } 

^W; IGlSfORE^RERAISE; 

EKitMonitor( scString( "SCEHG_ChangedTS" ) ); 
return stat; 

% 

y^tatus scIMPL_EXPORT SCCHTS^Alloc { scSpecLocList*& csiist, 
1^ scStream* stream ) 

i;^ status stat « scSuccess; 

EnterMonitor( scString( "SCCHrS__Alloc" ) }; 

csiist =0; 

try { 

cslist ^ SCNEW scSpecLocList ( stream ); 

} 

IGNORE.RERAISE; 

ExitMonitor( scString( "SCCHTS^AHoc" ) ); 
return stat; 

} 

status scIMPL EXPORT SCCHTS Delete ( scSpecLocList*& cslist ) 
{ 

status stat = scSuccess; 

EnterMonitor( scString( "SCCHTS.Delete" ) ); 
try { 

delete cslist, cslist - 0; 
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#define EnterMonitorC k ) 
#define EsitMonitor( s ) 
#endif 



void BRKInitMach( void ); 

void BRKFreeMach( void ); 



char* stoneVersion 



DATE„ 



„TIME_; 



SCEHG_Init( int bdseError ) 



status scIMPL_EXPORT 
{ 

// The following are pool definitions that are passed 
// to the initiaiiization of the memory manager. 
// The last pool is the default memory allocation pool 
// all others are fixed size pools, these are not sorted 
// at this time 
static scPoolInfo objPools[] = { 

{ sizeof( scTeKtline 0 }, 

{ sizeof( scContUnit )^ 0 }, 

{ si2:eof( scAbs tract Array ), 0 }, 

{0, 0 } 



#ifndef useCPLUSEXCEPTIONS 

f J if we are not using C++ exceptions 

// exception manager. 
)i scExceptContext: initialize ( 0 ); 
C^^ndif 



initialise our own 



'^=1 status Stat - scSuccess; 

ly gBaseError = baseError; 

n try { 

MEMInit( obj Pools ); 
^// scAssert( sizeof( CharRecord ) - 

O BRKlnitMachO; 

-.J scCachedStyle: :BuildCache( 16 ); 

/I ginited = true; 

m ) 

IGNORE.RERAISE; 
!^ return stat; 



// initialize memory manager 
( sizeof( long ) * 2 ) ); 
// initialize breaking machine 
// build internal spec cache 



status scIMPL„EXPORT 
{ 

status Stat ~ scSuccess 



SCENG_Fini( void ) 



} 

/* 



try { 

scAssert( ginited ); 
BRKFreeMach( ); 
scColumn: iFiniCTXList {) ; 
scCachedStyle: ;BeleteCache{ 

ginited ^ false; 
MEHFiniO; 

} 

IGNORE^RERAISE; 
return stat; 



status scIMPL_EXPORT SCEHG_RetainMemory ( 



void ) 
2 
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File: SCAPI .C 



$Header: /Projects/Toolbox/ct /SCAPI .CPP 3 5/30/97 8:45a Wmanis $ 

Contains: Application Program Interface for the 

Stonehand Composition Toolbox. For the most part 
this file is simply a bottle nect module. All 
documentation for the functions contained within 
are found in scappint.h. 

Written by: Man is 



Copyright (c) 1989-94 Stonehand Inc, of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



JSinclude "scappint.h" 
"^finclude "scpubobj .h" 



,_#include 
'^finclude 
v#include 
""finclude 
ffinclude 
"^^include 
"#include 
llinclude 
^.^include 
. iinclude 
■s^include 
|#include 



"scannota .h" 
"scapptes.h'* 
"sccoluran .h" 
"scexcept .h" 
"scstcach .h" 
"scglobda .h" 
"scmem.h" 
"scparagr .h" 
"scregion .h" 
"scset.h" 
"scstream.h" 
"sctextli .b" 



^^tatic int ginited; 
static int gBaseError; 
int scDebugTrace « 0; 



#if 0 

static int gInputLevel; 

//if scDebugTrace is set to a value >0 all calls into 

// the toolbox will be traced, may be useful for understanding 

// a behavior or pointing the finger i 

inline void EnterMonitor ( const scChar *str ) 
{ 

scAssert( gin i ted ); 

scDebugTrace ( 0, scString( "\n+fe\n" ), str ); 

} 

inline void ExitMonitor( const scChar *str ) 
{ 

scDebugTrace ( 0, scString( "-^s\n" )^ str ); 

} 

#else 
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SCDebugStr( buf ); 

} 

void SCDefaugBreak ( void ) 
{ 

DebugStrf "\pSCDEBUGBREAR" ); 

} 



C3 
%2 

m 
m 

iy 
C3 
Q 

iy 

£3 
C3 
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File: SC^UTLTC.C 

SHeader: /Projects/Toolbox/ct/SC„UimC.CPP 2 5/30/97 8:45a Vi^anis $ 
Contains: Think C untilities 
Written by: Man is 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
Ail rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

//#include "scport.h" 

//^include "capplica.h" 

//#include "constant .h'* 

//#include "tbutilities .h" 

#include <stdio.h> 

#include <stdlib,h> 

#include <string.h> 

f Include <Dialogs.h> 

#|nclude <SegLoad*h> 

^Include <QuickDraw.h> 

include <OSUtils.h> 

#£nclude "scTypes.h" 

Wf defined ( THINK.CPLUS ) Sc& IHIlsIK„CPLUS < 0x0700 

#include <pascal.h> 
f^lse 

'^"^ #include <Strings.h> 
#endif 

Bcplean gSCUseSysBreak ; 

ye^id SCDebugStr( const char *str ) 

IS 

char buf[256]; 

strcpy( bufj- str ); 

// if ( gApplication->TestDebuggerPresence C) ) { 
if (gSCUseSysBraak) 

SysBreakStr( c2pstr{ buf ) ); 

else 

DebugStr( c2pstr( buf ) ); 

} 

// else { 

// ParamTeKt( c2pstr( buf (StringPtr) , (StringPtr) " (StringPtr) " " ) ; 

// PositionDialogCALRT' , ALRTgeneral ) ; 

// InitCursorO ; 

// Alert (ALRTgeneral , NULL); 

// } 

} 

void SCAssertFailed{ const scChar »str, const scChar *file, int line ) 
{ 

char buf [256]; 

sprintf( buf, "ASSERT FAILED \"?Ss\" File Xs Line nd% str, file, line ); 
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#endif 
} 

/■* =t St K = = = » a = ffl ss K! » =: =s =: M = = = a « K s* =s « = =s S = sa s !S « =s = a se w S « =s i= K ES a; K 5^ 

void SCSysBeep( long duration ) 
{ 

#ifde£ _WIK32 

Beep( 500, duration ); 

#else 

UessageB&ep ( - 1 ) ; 

#endif 
} 

/* = = SB 3s « K ^ ss s£ « SB « B! =E SE = ts x= ss as SI a s « ss =s ^ =s ss « =: « sc sa ss rz as as sp ta s! « K 
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»««*«»»»»«»«»*«*»**»*»*«»»**»»««»«»»***»»****»****»«*««** 

File: SC_UTLWI.C 

SHeader: /Projects/ToolboK/ct/SC_UTLWI .CPP 2 5/30/97 8:45a Wmanis $ 
Contains: WIMDOWS versions of low level debugging stuff 
Written by: Manis 

Copyright (o) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition ToolboK software is the proprietary 
and confidential property of Stonehand Inc. 



»»»*»#*»*«*»*«**««»»»»****»*»»«*«*»»*»**»««*«**»»««»*»»*****»*»*/ 

#include "sctypes.h" 
^include "sceKcept.h" 

/* = =5 IK JS! K = = =r » SK « as =! == = = == s= =s » = » = = J= 3S ss 5B =s =s s St » » » s; =S « K =s ^ 

void SCDebugStr ( const scChar* cstr ) 

m 

OutputDebugStri ng( cstr ); 

I 

!void SCAssertFailed ( const scChar* assertStr, 

const scChar* file, 
int lineNuiti ) 

scChar buf [256] ; 
£3 if ( scStrlen( assertStr ) + scStrlen( file ) + 4 < 256 ) 

Q wsprintf( buf, scString( "ASSERT FAILED \"Zs\" file \"^s\" line #%d\n" ), 

-1 assertStr, file, lineNum ); 

■5 Tsr else 

H scStrcpy( buf, scStringC "ASSERT STRING TOO LONGl ! i !\n" ) ); 

;i SCDebugStr ( buf ) ; 

#if SCDEBUG < 1 

r a i se ( scERRassert F ailed ) ; 
#else 

SCDebugBreak ( ) ; 

// set doit to true if you want to raise an exception 
int doit = 0; 
if ( doit ) 

raise ( scERRassert Failed ); 

#endif 

} 

void SCDebugBreak ( void ) 
{ 

#if SCDEBUG > 1 
DebugBreak ( ) ; 

#ifdef „WIH32 

Beep( 500, 100 ); 

#else 

MessageBeep { - 1 ) ; 

#endif 
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status SysteitiMemoryObject : :SetHandleSize( Ions newsize ) 
{ 

#if defined! SCWINDOWS ) 

fSYSHandle - GlobalReAlloc( fSYSHandie, newsize, GMEM„MOVEABLE 1 GHEM„2ER0IHIT ) 

return fSYSHandle 1=0? scSuccess : scERRmem; 
#elif defined ( SCMACIOTOSH ) 

: :SetHandleSize( fSYSHandle, newsize ); 

return MemError() noErr ? scSuccess : scERRmem; 
#endif 



void «SysteinMemoryOfoject : :LockHandle( void ) 
{ 

#if defined ( SCWIHDOWS ) 

return GlofoalLock( fSYSHandle ); 
#elif defined ( SCMACIOTOSH ) 

HLockC fSYSHandle ); 

return *fSYSHandle; 
#endif 



void SysteinMemoryObject : :UnlockHandle( void ) 
{ 

#if defined ( SCWINDOWS ) 
n GlobalUnlockC fSYSHandle ); 
;#elif defined { SCMACIOTOSH ) 
'if HUnlock{ fSYSHandle ); 
^Pendif 

fi 
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/«*»«*«***»***»**««***»**»»»»*»«***»**»»»*»**»****************«** 

File: SC_SYSCO.C 

SHeader: /Projects/Toolbox/ct/SC„sySGO .CPP 2 5/30/97 8:45a V^manis $ 

Contains: Implementation of transfer of clipboard data 
to external format. 

Written by; Lucas 

Copyright (c) 1989-94 Stonehand Inc,^ of Cambridge, MA, 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

/* THESE ARE STUBS AND ARE BY m MEANS COMPLETE OR ROBUST »/ 

#include "sc types. h" 
#ifdef SCMACIMIOSH 
#include <Memory.h> 
#endif 

CiystemMemoryOb j ect : ; SystemMemoryOb j ect ( ) 

^lif defined ( SCWIHDOWS ) 

fSYSHandle - GlobalAlloc( 0, GPTR ); // since OTND allows only 64k bytes 
^-^l^elif defined ( SCMACIOTOSH ) 
'^J fSYSHandie - Ne^andle( 0 ); 
r fend if 

. lystemMemoryOb j ect : : '"SystemMemoryOb j ect ( ) 

H 

rtif defined ( SCWINDOWS ) 
n if ( fSYSHandle ) 
IZ GlobalFree( fSYSHandle ); 

^^#elif defined ( SCMACHsTIOSH ) 
if ( fSYSHandle ) 

DisposHandle( fSYSHandle ); 

#endif 

} 

void SystemMemoryOfoj ect : ; ReleaseMem ( ) 
{ 

fSYSHandle = 0; 

} 

long SystemMemoryObject : :HandleSi2e( void ) 
{ 

#if defined { SCWINDOWS ) 

return (size_t)GlobalSize ( fSYSHandle ); 
#elif defined ( SCMACINTOSH ) 

return GetHandleSize( fSYSHandle ); 
#endif 
} 
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case scTabFi 11 Align: 

case scMinMeasure: 
case scRunAroundBorder: 
case scFirstLine; 

return eSCRebreak; 



a 

m 
m 

w 
a 

CJ 

H 
hi 

C3 
C3 
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case scOptLsp: 
case scMaxLsp: 
case scMinWsp: 
case scOptWsp : 
case scMaxWsp; 
case scHyphenation: 
case scHyphLines: 
case scHyphExcep: 
case scHyphMinSize: 
case scPreHyphs; 
case scPostHyphs; 
case scHyphPropensity: 
case scHyphCaps: 
case scHyphAcrcs; 
case scHyphExtra 1 : 
case scHyphExtra2: 
default: 

return eSCRe tabu late; 

case scColor: 

case scRenderAttribute : 



case scLead: 

case scBaseline: 

case scAboveLead : 

case scBelowLead: 

case scIndLines: 

case scIndAmount : 

case scIndDepth: 

case scIndLeftBL: 

case scIndRightBL: 

case scIndentEKtral: 

case scIndentExtraZ: 

case scColNoBreak; 

case scReepNext; 

case scLinesBefore: 

case scLinesAfter: 

case scWidowOrphanEKtral: 

case scWidowOrphanEKtraZ: 

case scRag: 

case scForceJust: 

case scRagPattern : 

case scRagZone: 

case scRernMargins : 

case scHLeft: 

case scHRight; 

case scHLeftAmount : 

case scHRightAmount : 

case scRagExtral: 

case scRag£Ktra2: 

case scHPuncEs:tra 1 : 

case scHPuncExtra2 : 

case scDCShow; 

case scDCptSise: 

case scDCsetSize: 

case scDChOffset: 

case scDCvOf fset : 

case scDChBorder: 

case scDCvBorder: 

case scDCfont: 

case scDCcolor: 

case scMaKFillChars; 

case scFillPos; 

case scFillChar; 

case scFillAlign: 

case scMaxTabs: 

case scTafaPos: 

case scTabAlign: 

case scTabChar; 



// 
// 
// 
// 



case scULShow: 
case scULpos: 
case scULthick; 



return eSCRepaint; 
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File: SC -Speeding . c 

SHeader: /Projects/Tool box /ct/SC„SPCHG.CPP 2 5/30/97 8:45a Wtnanis $ 
Contains: 

When type specs change their are certain types of things that need 
to be done to brin^ the world back into equilibrium. These tasks 
typically involve REFORMATIIHG and REPAIlSn. Since a certain number 
of the formating computations are held with the characters themselves 
the reformatting requires two operations. We will call these 
RETABULATIOH - correcting the escapement stored with the characters - 
and the LINEBREARING - the act of breaking text into lines. 

Therefore when a spec changes one or more tasks may need to 
be performed, we want to determine the minimum set of tasks to 
perform to return the world to equilibrium. 

The tasks are performed in the following order: 

TABULATIOM 
LIME BREAKING 
PAIOTIHG 

Here a few examples of spec changes and what they should cause: 

color change - scREPAIOT 

3 word space change - scREBREAK £c scREPAINI 

% lead change - scREBREAK & scREPAHslT 

!f font change - scRETABULATE . scREBREAK S: scREPAIOT 

^ pomtsize change - scRETABULATE , scREBREAK £: scREPAIMT 

U setsize change - scRETABULATE , scREBREAK & scREPAIOT 

i pair/track kerning change - scRETABULATE , scREBREAK scREPAIHT 

hyphenation language change - scRETABULATE , scREBREAK Sc scREPAIOT 
•J # of consecutive hyph change- scREBREAK scREPAIOT 

Written by: Hanis 

J Copyright (c) 1989-94 Stonehand Inc.. of Cambridge, MA. 
,] All rights reserved. 

^ This notice is intended as a precaution against inadvertent publication 
1 and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

«-«««»«««««*«*»««»«««**««««»««*ft«««»««^»«*««««««*««««*«««»«»*«««*««»*«**«*/ 

#include "sccalibk.h" 

eSpecTask SpecTaskCalculate ( eSpecChange changeType ) 

{ 

switch ( changeType ) { 
case scHoblique: 
case scVoblique: 

return (eSpecTask) ( (int)eSCRetabuiate | {int)eSCRepaint) ; 

case scLanguage : 
case scFont: 
case scCharTransform: 
case scPointSize: 
case scSetSize; 
case scRotation: 
case scKern: 
case scTrack: 
case scMinLsp: 
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/* mapping on reading input buffer or file */ 

#ifndef noCMinputMap 

UCS2 CMinputMap( ushort ch ) 
{ 

return ch; 

} 

#endif /* noCMinputMap */ 

z****************************************************************************/ 

#ifndef noCMmakeKeyRecordTwo 

void CMmakeKeyRecordTwo ( scKeyRecord& keyRecord, 

UCS2 keyCode. 
GlyphSize val, 
TypeSpec spec ^ 

Boo 1 restores© 1 ect i on ^ 

scStreamLocationSc mark ) 

keyRecord.keycodeO « keyCode; 

keyRecord.replacedcharO ^ 0; 

keyRecord .escapement ( ) - val; 

keyRecord . spec 0 = spec; 
keyRecord . noop ( ) false; 
keyHecord.restoreselect () irestoreSelection; 

key Record, mark 0 ^ mark; 

^'Jendif /» noCMtuakeKeyRecordTwo */ 
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return ch; 
case scNoBreakHyph : 
return ' - * ; 



case scTabSpace; 

return 0; 
case scParaEnd: 

return 0; 
case scEndStream: 

return 0; 
case scHardReturn : 

return 0; 

case scTabSpace: 

return O^OObb; 
case scParaEnd; 

return 0K00b6; 
case scEndStream; 

return Ox 00a 5; 
case scHardReturn: 

return ' H ' ; 



case scEmSpace: 
case scEnSpace: 
case scFigureSpace : 
case scThinSpace: 
case scFixRelSpace: 
case scFiKAbsSpace: 
case scFiliSpace: 
case scVertTab: 
case sctJoBreakSpace : 
case scQuadCenter : 
case scQuadLeft: 
case scQuadRight: 
case scQuadJustify : 
case scEmptySpace : 
return ' ' ; 



'"4endif noCMctToAPP */ 

?7* defines whether keyboard input changes model & selection or selection 
13* only. Called from within Composition ToolboKt prior to keyboard input 
fi* to determine what is about to happen 

#ifndef noCMcontent 

int CMcontent( UCS2 ch ) 
{ 

switch ( ch ) { 

case scBackSpace ; 
case scForwardDelete : 
return -1; 

default: 

returti 1; 

case scLe ft Arrow: 
case scRightArrow: 
case scUpArrow: 
case scDownArrow; 
return false; 

} 

} 

#endif /* noCMcontent */ 

/***»*»*»*«*»»*»»»*«**«««**«*««***«««»**«****»*****»*********«***************/ 
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/»«#«**»«*»«»»»***»»***»»*»*»•«**»*»*****»********«************** 

File: SC-CharMap.c 

$Header: /Projects/ToolboK/ct/SC_CimP .CPP 6 5/30/97 8:45a V^anis $ 
Contains: Character mapping between client and toolbox. 
Written by: Manis 

Copyright (c) 1989-94 Stonehand Inc.. of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition ToolboK software is the proprietary 
and confidential property of Stonehand Inc. 

/*#«*«»*«»****»*****»»«**«**«**«»*»«**«»**«********************* 

to turn off any fo the functions in thismodule define one or 
more of the following values int SCAPPTypes .h. they will turn 
off the appropriate function. 

noCMctToAPP 
U noCMappToCT 
1 3 noCl^KakeReyRecordTwo 
fn noCMcontent 

fj***************************************************************^ 

E nc 1 ude " sccharex » h " 

^^efine CTL( ch ) ( (ch) - ) 

^^/«*«**»«**»»»*»»»«»»****»»******»*****»********************^^ 

14* this provides character mapping between Mac-keyfooard/application 
to the Composition ToolbOKt 

tiifndef noCMappToCT 

>0CS2 CMappToCT( UCS2 ch ) 

C| 

fi switch ( ch ) { 

case OkOD: return scParaSplit; /* mac enter »/ 

case 0x08: return scBackSpace; /* ztiac delete */ 

case 0x09: return scTabSpace; /* mac tab */ 
case OnOa: return scHardRetum; /* mac return */ 

default: return (UCS2)ch; 

} 

} 

#endif /« noCMappToCT »/ 

/#»»#*»»»***«***»****«««*«»»***»«»*******»*»«»******»**»*********************/ 

/* provides Conipositon Toolboxt to application mapping, 
« used pre AppDrawString for rationalize character mapping, 
» used to control characters passed thru, typically used 
» to control things like show invisibles, may be used for 
« other types of character conversion depending on output device 
*/ 

#ifndef noCMctToAPP 

UCS2 CMctToAPP( UCS2 ch ) 
{ 

switch ( ch ) { 
default: 
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{ 

return p_ == 0; 

} 

int operatori () const 
{ 

return p_ == 0; 

} 

int operator==( const ConstRefCountPtr<T>& p ) const 
{ 

return p_ -= p.p_; 

} 

int operatori «{ const ConstRefCountPtr<T>& p ) const 
{ 

return p_ 1= p.p__; 

} 

int operator==( const T* p ) const 
{ 

return p„ p; 

} 

int operator! const T* p ) const 
{ 

return p„ I = p; 

} 

protected : 



f§nplate< class T> 

j|6tss RefCountPtr : public ConstRefCountPtr<T> { 
gdcflic: 

Re f Count Ptr( T« ptr 0 ) : 
fy ConstRef CountPtr<T> ( ptr ){ } 

H '"RefCountPtrO { } 
iUr* ptr() const 

H { 

:?=^ return p„; 

} 

- T* operator->() const 

a { 

return p„; 

operator* () const 
{ 

Cj return *p„; 

^A^oid exch(Re£CountPtr<T> Sep) 
{ 

T« tmp = p.p_; 
p.p„ * P„; 
p_ - tmp; 

} 

#endif 
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// The following are classes to maintain safe reference count on 
// classes derived from Re f Count 

// T must have Re f Count as a public base class 
// T may be an incomplete typ6 

template<class T> 

class ConstRefCountPtr { 

public: 

ConstRefCountPtrO : p„(0) { } 
ConstRefCountPtr( T* p ) : p_( p ) 
{ 

if { P_ ) 

p„->incref (); 

} 

'^ConstRef CountPtr ( ) 
{ 

clear 0 ; 

} 

ConstRefCountPtr( const ConstRefCountPtr<T>S: p ) : 
P-.(P-P„) 

{ 

if (P-P») 

p,p_->incref 0 ; 

ConstRefCountPtr<T> &operator*( const ConstRefCountPtr<T> St p ) 
^ if ( this != S=p ) { 

if (p.p-) 

p.p_->incref (); 

f i 5 

clear (); 

t'i p„ - p.p__; 

f J return *this; 

'7 > 

'vj void moveTo( ConstRefCountPtr<T> Mst ) 

l.l { 

if ( this Scdst ) 
l"^ return; 

dst,clear() ; 



} 



dst.p„ ^ p_; 
p- = 0' 



void clear () 
{ 



if { p_ &Sc p„->decref 0) 

delete p„; 
P- ^ 0; 

} 



const T* ptr() const 
{ 

return p_; 

} 

const T* operator-> ( ) const 
{ 

return p„; 

} 

const TSc operator* () const 
{ 

return *p_; 

} 

int isWullO const 
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// Copyright (c) 1996, Stonehand Inc. All rights reserved. 

// 

#ifndef ^H.RHFCOT 
#de£ine _H_REFCOT 

// a base class for reference counting 

#ifdef „DEBUG 

void SCDefcrugBreak { void ); 
#endif 

class RefCount { 
public : 

RefCount 0 : refcnt„(0) 
{ 

#ifdef _DEBUG 

magic„ = Osbabaabab; 

#endif 

RefCount (const RefCount S<) : refcnt„(Q) 
{ 

#ifdef .DEBUG 

magic_ = Oxbabaabab; 

#endif 

} 

virtual -"RefCount () 

U { 

if ( refcnt„ ) 
.^r^ throw( -1 ); 

ri! ^ 

i-^^^ int decrefO // return 1 if it should be deleted 

:i { 

Mfdef „DEBUG 

□ static void* test « 0; 

if ( this test ) 
! SCDebugBreak ( ) ; 

^ndif 

""-•■4 return — refcnt_ <- 0; 

iJ > 

:rvoid increfO 
C3 { 
Ciifdef _DEBUG 

static void* test * 0; 
if ( this ^» test ) 
SCDebugBreak ( ) ; 

#endif 

++refcnt„; 
int ref cnt ( ) 

{ 

return refcnt„; 

} 

#ifdef JEBUG 

unsigned magic () 
{ 

return magic_; 

} 

#endif 

private : 
#ifdef „DEBUG 

unsigned magic_; 
#endif 

int refcnt„; 
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/* adler32.c — compute the Adler-32 checksum of a data staream 

* Copyright (C) 1995-1998 Mark Adler 

* For conditions of distribution and use, see copyright notice in zlib.h 
»/ 

/* @(#) $Id$ */ 
#include "zlib.h" 

#define BASE 65521L /* largest prime smaller than 65536 */ 
#deFiGe KMAX 5552 

/* HMAX is the largest n such that 255n(n+l)x2 + (n+l) (BASE-1) <- 2^^32-1 */ 

#define DOl(buf.i) {si buf[i]; s2 si;} 

#define D02(tou£,i) D01(buf,i); D01(buf ,i+l) ; 

#def ine D04(buf.i) D02(buf,i); D02(buf .i+2) ; 

#define D08(buf.i) D04{buf,i); D04(buf ,i+4) ; 

#define D016(buf) D08(buf.O}; D0S(buf,8); 

uLong ZEXPORT adler32 (adler , buf, len) 
uLong adler; 
const Bytef »buf; 
ulnt len; 

{ 

unsigned long si « adler & Onffff ; 
unsigned long s2 = (adler >> 16) Sc OKffff; 
int k; 

'^t if (buf «^ 2_HULL) return IL; 

ffl while (len > 0) { 

fy k = len < KHAX ? len : HMAX; 

'J len ~- k; 

while (k 16) { 
iy D016(buf); 
%4 buf -f- 16; 

k - 16; 

y 

« if (k !- 0) do { 

f1 si »buf++; 

s2 -f^ si; 
, } while (—k) ; 

ly si BASE; 

M s2 BASE; 

} 

:z return (s2 << 16) ( si; 
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/* compress. c — compress a memory buffer 

* Copyright (C) 1995-1998 Jean-loup Gailly. 

* For conditions of distribution and use, see copyright notice in zlib.h 
*/ 

/* §C#) $Id$ */ 
#include "zlifa.h" 

Compresses the source buffer into the destination buffer. The level 
parameter has the same meaning as in deflatelnit. sourceLen is the byte 
length of the source buffer. Upon entry, destLen is the total sise of the 
destination buffer, which must be at least 0.1% larger than sourceLen plus 
12 bytes. Upon ©Kit, destLen is the actual size of the compressed buffer, 

compress2 returns Z_OK if success, Z^MEM^H^RROR if there was not enough 
memory, Z_BUF„ERROR if there was not enough room in the output buffer, 
2_STREAMJRR0R if the level parameter is invalid. 

»/ 

int ZEKPORT compress 2 (dest, destLen, source, sourceLen, level) 
Bytef *dest; 
uLongf *destLen; 
const Bytef *source; 
uLong sourceLen; 
int level; 

{ 

2„stream stream; 
int err; 

^,3 stream. neKt^in = (Bytef*) source; 
m stream. avail m = (u Int) sourceLen; 
ifefdef MAXSEG„64K 

"'^ /* Check for source > 64R on 16-bit machine: */ 

%1 if ( (uLong) stream. evail_in j« sourceLen) return Z_EUF__ERROR; 

ri stream. next_out = dest; 

'"-^ stream.avail_out « (uInt)*tdestLen; 

Q if ((uLong) stream. aval l_out \^ *destLen) return Z„BUF_ERROR; 

stream. zalloc ^ (alloc„func)0; 
H stream. sfree - ( f ree„f unc ) 0 ; 
"^J stream. opaque ^ (voidpf)O; 

err = def latelnit (ScStream, level); 
^™ if (err l« Z_OK) return err; 

C3 

err - def late(fetream, Z.FWISH) ; 
if (err \- 2_STREM_£lsfD) { 
def lateEnd {^stream) ; 

return err 2_0K ? ZJUF^ERROR : err; 

»destLen - stream.total„out ; 

err - def lateEnd (&stream) ; 
return err; 

} 

int ZEXPORT compress (dest, destLen, source, sourceLen) 
Bytef »dest; 
uLongf *destLen; 
const Bytef »source; 
uLong sourceLen; 

^ return compress 2 (dest, destLen, source, sourceLen, Z_DEFAULT„COHPRESSION) 

} 
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if (buf 2_HULL) return OL; 
#ifdef DYKAMIC„CRC„TABLE 
if {crc_table„empty) 
make„crc„table ( ) ; 

#endif 

arc - era ^ Oxf ff f f f f fL; 

while (ien >=» 8) 

{ 

DOS (buf ); 
len — 8; 

} 

if (len) do { 

DO 1 (buf); 
} while (—ien); 
return crc ^ OxffffffffL; 
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Qs646ba8cOL, 0xfd62f97aL, 0x8ai65G9ecL, Oxl4015c4fL, 0K63066cd9L, 

0sfa0f3d63L. 0x8d060df5L, 0s3b5e20c8L, DK4c69105eL. 0sd56041e4L. 

Qxa2677172L, 0x3c03e4dlL. 0s4b04d447L. 0sd20d85fdL. OxaSQafoSSbL, 

QK35b5a8faL, 0x42b2986cL, 0xdfobbc9d6L, Oxacbcf 940L, 0K32d86cs3L, 

0K45df5c75L, 0Kdcd60dcfL, 0%abdl3d59L, Ox26d930acL, 0K5ide003aL, 

0Kc8d75180L. 02£bfd06116L, 0s2ib4f4b5L, 0KS6b3c423L, 0Kcfba9599L. 

OKbSbdaSOfL. 0K2B02b89eL. 0x5f 0588081, 0xc60cd9b2L, 0Kbl0be924L, 

0K2f6£7c87L. Ok58684c11L, 0Kcl611dabL, 0xb6662d3dL. 0x76dc4190L. 

0x01db7106L, Ox98d220bcL. 0^efd5102aL, 0K71bl8589L, 0K06b6b51fL, 

QK9fbfe4a5L, 0xe8b8d433L, 0s7807c9a2L^ 0K0£00f934L, 0x9609a88eL, 

0Kel0e9818L, 0s7f6a0dbbL, Ox086d3d2dL, 0k91646c97L. 0xe663Sc01L. 

0K6b6b51f4L, 0k1c6c6162L, 0s8S6530d8L, 0xf262004eL. 0K6c0695adL, 

0Klb01a57bL, 0s8208f 4clL, Osf50fc457L, 0K65b0d9c:6L, 0Kl2b7e950L, 

0K8bbeb8eaL. 0xfcb9887cL, 0x62ddlddfL, 0xl5da2d49L, 0x8cd37cf3L, 

Qxfbd44c65L, 0K4db26158L, 0K3ab551ceL, 0xa3bcQ074L, 0xd4bb30e2L, 

0x4adfa541L. 0x3ddS95d7L. 0Ka4dic46dL. 0xd3d6f4fbL, 0s:4369fe96aL, 

0K346ed9fcL, 0xad678846L, 0xda60b8d0L, 0x44042d73L, 0x33031de5L, 

0xaa0a4c5fL, 0xdd0d7cc9L, 0x5005713cL. 0x270241aaL, OxbeOblOlOL. 

Oxc90c2085L, 0xS768b525L, 0x206f85b3L, 0xb966d409L. 0Kce6i^49£L, 

Qx5edef90eL. 0x29d9c998L. Osb0dO9822L, 0xc7d7a8b4L, 0x59b33dl7L, 

0x2eb40d81L, 0xb7bd5c3bL, OxcObaScadL, 0Kedb88320L* 0x9abfb3b6L, 

0x03b6e20cL, 0x74bld29aL. 0xead54739L, 0x9dd277afL, ax04db2615L. 

0x73dcl683L, 0xe3630bl2L, 0x94643b84L, 0x0d6d6a3eL, 0x7a6aSaa8L, 

0xe40ecf0bL, Qx9309ff9dL, 0KOaOOae27L, 0x7d079eblL. 0xf00f9344L, 

Gx8708a3d2L. Oxie01f268L, 0x6906c2feL, 0K£762575dL, 0x806567cbL, 

0xl96c367iL, 0x5e6b06e7L, 0x£ed41b76L, 0x89d32beQL, 0xl0da7a5aL, 

0x67dd4accL, 0xf9b9df6fL. Ox8©b0eff9L. 0xi7b7be43L. Gx60b08ad5L, 

Qxd6d6a3e3L. 0xaldl937eL, 0x33d8c2c4L, 0x4fdff252L, 0Kdlbb67flL, 

r:^- 0xa6bc5767L. 0x3ffo506ddL, 0x48b2364bL, OxdSOdZbdaL, 0xaf0alb4cL, 

\T Dx3&034af6L. Ox41047a60L, Oxdf 60erfc3L. 0xa867df55L, Ox316e8eefL. 

y 0K4669be79L, 0xcb61b38cL, 0Kbc6&831aL, Ox256fd2aOL. 0K5268e236L. 

f:! 0xcc0c7795L, 0xbb0b4703L. Ox220216b9L. 0x5505262fL. 0xc5ba3bbeL. 

Qxb2bdOb28L, 0x2bb45a92L, 0x5cb36a04L, 0xc2d7ffa7L. Qxb5d0cf31L. 

0x2cd99e8bL. OsSbdeaeldL, 0x9b64c2b0L, 0xec63f226L, 0x756aa39cL, 

0x026d930aL, 0x9c0906a9L. 0xeb0e363fL. 0x72076785L, Ox05005713L, 

id 0x95bf4aS2L, 0xe2b87al4L, 0x7bbl2baeL, GxOcb61b38L, 0x92d28a9bL, 

~j OxeSdSbeOdL, 0x7c;dcefb7L. 0x0bdbdf2iL, 0x86d3d2d4L. 0xfld4e242L, 

.2 0x68ddb3f8L, 0xlfda836eL, 0x81bel6cdL. Oxf6b9265bL, 0x6fb077elL, 

0xl8b74777L, 0x8B085ae6L. 0KffOf6a7OL, Qx66063bcaL. OxllOlObScL, 

s 0x8f659effL, Oxf862ae69L, 0x616bffd3L, Oxl66ccf45L, OxaO0ae278L, 

0xd70dd2eeL, 0x4^0483541,. 0x3903b3c2L, 0xa7672661L, 0xd0&016f7L, 

:1 0x4969474dL, 0s;3fe6e77dbL, 0xa^dl6a4aL. 0xd9d65adcL, Ox40dfOb66L, 

"'^ 0x37d83bf0L. 0Ka9bcae53L, 0xdebb9ac5L. 0x47b2c:f 7fL, Ox30b5ff89L, 

ly 0xbdbdf21c:L, 0xcabac28aL, 0x53b39330L. Ox24b4a3a6L, 0xbad03605L, 

0xcdd70693L, 0x54de5729L, 0x23d967bfL, 0xb3667a2eL, 0xc4614ab8L, 

0x5d6Slb02L, 0K2a6f2b94L, Oxb40bbe37L, 0Kc30c8ealL, OxSaOSdflbL, 
'^f 0x2d02ef8dL 

C5; 
#endif 



* This function can be used by asm vBTsions of crc32() 
*/ 

const uLongf « ZEXPORT get„crc_tabl^ ( ) 
{ 

#ifdef DYHAMIC^CRCJTMLE 

if {crc„tabie_empty) make„crc:_table () ; 
#endif 

return (const xiLongf *)crc:„tablei 

} 

#define D01{buf) crc crc„table[ ( (int)crc {*buf++)) Sc Oxff] {crc » 8); 
#define D02(buf) DOl(buf); DOl(buf); 
#define D04(buf) D02(buf); D02(buf); 
#dafine D08(buf) D04{buf); 0O4(buf); 



uLong 2EXP0RT crc32 (crc, buf, len) 
uLons crc; 
const Bytef *buf; 
uint len; 

{ 



File: Work\CrtPrt\2conip\crc32 . c 



Pg: 1 



/* crc32.c — compute the CRC-32 of a data stream 

* Copyright (C) 1995-1998 Mark Adler , 

* For conditions of distribution and use, see copyright notice m zlxb.h 
»/ 

/* @(#) $Id$ 

#include "zlib.h" 

#define local static 

#ifdef DYNMIC„CRC^TABLE 

local int crc„table_empty « 1; 

local uLongf crc_table[256] ; 

local void make_crc_table OF ((void)); 

/* 

Generate a table for a byte-wise 32-bit CRC calculation on the polynomial: 
s'"32-^3^'^26+s'"23+K'"22+x"164-K^12+K"ll+K"^10+K^8+K"7+s"^5+K'"4+^^ 

Polynomials over GF(2) are represented in binary, one bit per coefficient, 
with the lowest powers in the most significant bit. Then adding polynomials 
is just esclusive-or, and multiplying a polynomial by k is a right shift by 
one. If we call the above polynomial p, and represent a byte as the 
polynomial q, also with the lowest power in the most significant bit (so the 
byte OKbl is the polynomial x^7+k"34-k-^1) , then the CRC is (q*K'^32) mod p, 
where a mod b means the remainder after dividing a by b. 

53 This calculation is done using the shift-register method of multiplying and 
^.3 taking the remainder. The register is initialized to zero, and for each 
m incoming bit, x^32 is added mod p to the register if the bit is a one (where 
x^32 mod p is p-t-K^32 - x'^26^. . . + 1) , and the register is multiplied mod p by 
X (which is shifting right by one and adding x^32 mod p if the bit shifted 
%1 out is a one). We start with the highest power (least significant bit) of 
[J q and repeat for all eight bits of q. 

The table is simply the CRC of all possible eight bit values. This is all 
C3 the information needed to g^^^^a^"^^ CRC's on data a byte at a time for all 
combinations of CRC register values and incoming bytes. 

•'focal void make„crc_table () 

H 

[tJ uLong c; 
int n, k; 

'"Z uLong poly; /* polynomial exclusive-or pattern */ 

13 z'* terms of polynomial defining this crc (except x^32) : */ 
13 static const Byte p[l - {0,1,2,4,5,7,8,10,11,12,16,22,23,26}; 

/* make exclusive-or pattern from polynomial (Gxedb8832QL) */ 
poly - OL; 

for (n = 0; n < sizeof (p)/siseof (Byte) ; n++) 
poly h IL << (31 - p[n]); 

for (n - 0; n < 256; n^+) 
{ 

c ^ (uLong)n; 

for (k « 0; k < 8; k-f-+) 

c ' c Sc 1 ? poly (c >> 1) : c >> 1; 
crc„tabl6[n] = c; 

crc„table_empty ==0; 

} 

#else 

* Table of CRC-32 's of all single-byte values (made by make_crc„table) 
*/ 

local const uLongf crc_table[256] - { 

OxOOOOOOOOL, 0x77073096L, 0xeeQe612cL, 0H990951baL, 0x076dc419L, 
0x706af48fL, 0xe963a535L, 0x9e6495a3L, 0x0edb8832L, 0x79dcb8a4L, 
0xe0d5e91eL, 0x97d2d988L, 0x09b64c2bL, 0x7ebi7cbdL, 0Ke7b82d07L, 
0x90bfld91L, 0xldb71064L, 0x6ab020f2L, 0sf3fo97148L, 0x84be41deL, 
0xladad47dL, 0x6ddde4ebL, 0xf4d4b551L, 0K83d385c7L, 0xl36c9856L, 
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s->Kiatch„length * MIN_MTCH-1; 
s->strstart++; 

if (bflush) FLUSHJLOCK(s. 0); 

} else if (s->matcii_dv©iiable) { 

/* If there was no match at the previous position, output a 

* single literal. If there was a match but the current match 

* is longer, truncate the previous match to a single literal. 
»/ 

Tracew( (stderr,"^c" , s->window[s->strstart-l] ) ) ; 
„tr__tall3^'„lit (s, s->wiixdow]; s->strstart-l] , bflush); 
if (bflush) { 

FLUSH_BLOCK„ONLY(s, 0); 

} 

s->strstart++; 
s->loolcahsad — ; 

if (s-'>strm^>avail_out ««« 0) return need_more; 
} else { 

/» There is no previous match to compare xi^ith, wait for 
« the nest step to decide. 
*/ 

s->match_ava liable « 1; 

s->strstart++; 

s - > lookahead - - ; 

} 

} 

Assert {flush 2_N0_FLUSH, "no flush?"'); 
f"l if (s*>match„available) { 

Tracew( (stderr , "%c" , s->window[s->strstart-l] ) } ; 
!f _tr„tally_lit (s, s->window[S">strstart-l] , bflush); 

VI S'->match_available « 0; 

ru } 

FLUSUJBLOCK{s. flush Z^FINISH); 
""-'^ return flush 2_FINISH ? finish„done : block_done; 
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/* Process the input block. 
for { 

/* Make sure that we always have enough lookahead, except 

* at the end of the input file. We need MXJ4ATCH bytes 

* for the neKt match, plus MIlsI_MATCH bytes to insert the 

* string following the nest match. 
*/ 

If (s->lookahead < MIH^LOOKMiEAD ) { 
£ill_window(s) ; 

if (s->lookahead < Mm_.LOOKMiEAD flush ZJ?0„FLUSH) { 
return need^more; 

} 

if (s->lookahead 0) break ; /« flush the current block *y 

} 

/* Insert the string window [strstart strstart+2] in the 

* dictionary > and set hash^head to the head of the hash chain; 
*/ 

if (s->lookahead >- MIlJ3_mTCH) { 

INSERT^STRING{s, s->strstart, liash^head); 

} 

/* Find the longest match, discarding those <- prev„length, 

s*->prev_length - s->inatch„length, s->prev„match ^ s->match_„start; 
s->match„length ^ MIN„MATCH-1; 

if (hash„head != HIL S<Sc s->prev_ length < 8->max_la2;yjsiatch ScSc 
s->strstart - hash^head M/^_DIST(s)) { 
/* To simplify the code, we prevent matches with the string 

* of window index 0 (in particular we have to avoid a match 

* of the string with itself at the start of the input file). 

if (s->strategy )« Z„HUFFMAM„ONLY) { 

s->match_length •'^ longest_„match (s, hash_head)? 

} 

/* longest„match() sets match_start */ 

if (s->match„length <- 5 (s->3trategy ZJILTERED || 
(s->match_length MIH_MATCH £^ 
s->strstart - s->match_start > TOO^FAR))) { 

/* If prev_„match is also MIi5?_MATCH, match_start is garbage 
* but we will ignore the current match anyway. 
*/ 

s->match„length = MINJJATCH-l; 

} 

} 

/» If there was a match at the previous step and the current 

* match is not better, output the previous match: 
*/ 

if (s->prev_length UWJ^TCH S:£^ s->2natch_ length <« s->prev_length) { 
uint ma%„insert s->strstart + S">lookahead - MIN^MATCH; 
y* Do not insert strings in hash table beyond this. 

check^match (s^ s->strstart--l, s->prev_match, s->prev„length) ; 

_tr_tally_dist(s^. s->strstart -1 s->prev_match* 
s->p3rev„length - MIH„MATCH. bflush); 

/* Insert in hash table all strings up to the end of the match, 

* strstart-1 and strstart are already inserted. If there is not 

* enough lookahead, the last two strings are not inserted in 

* the hash table. 
«/ 

s^>lookahead -= s->prev_length-l; 
S"->prev_length -« 2; 
do { 

if {++s->strstart <« maK^insert) { 

INSEI?T„STRING{s, s->strstart, hash_head); 

} 

} while ( — s->prev„length !« 0); 
s->match„available - 0; 
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*/ 

if (hash_bead H £c£< s->strstart - hash^head <- M^„OIST(s)) { 
/* To simplify the code, we prevent matches with the string 

* of window inden 0 (in particular we have to avoid a match 

* of the string with itself at the start of the input file). 
*/ 

if (s->strategy 1= Z^HUFFMMJHLY) { 

s->match length - long©st_match (s, hash^head); 

} 

/* longest„match ( ) sets match_start */ 

} 

if (s->match_length MMJlkTCH) { 

check„match{s, s->strstart s~>match_start, s->match_length) ; 

_tr_tally_dist (s, s->strstart - s->match_starti- 

s->match_len0th - MmjdATCH, bflush); 

s->lookahead ~= s->match„length; 

/* Insert new strings xn the hash table only if the match length 

* is not too lar-ge. This saves time but degrades compression. 
«/ 

#ifndef FASTEST 

if (s->match_length <« s->maK„insert_length 
s->lookahead >« MIH^H^TCH) { 

s->match_l©ngth — ; /* string at strstart already in hash table */ 
do { 

s->strstart++; 

raSEinLSTRING(s, s->strstart, hash„head); 

strstart never exceeds WSI2E-M^„MATCH, so there are 
* always MIK^MATCH bytes ahead. 

In 

fy } while ( — s->inatch„length NO); 

s->strstart+4-; 
'^"l } else 

llfcndif 

H i 

s->strstart s->matchjength; 
'""^ s->match_length « 0; 

s->ins„h * s->window[s->strstart] i 
fi UPDAT£_HASH(s, S">ins_h^ s->windowfs->strsta3rt+l] ) ; 

WU MIH^MATCH t« 3 

Call OPDATE_HASH() MIM„MATCH-3 more times 

Ifendif 

M /* If lookahead < MIHJ4ATCH, ins„h is garbage, but it does not 

f'^, * matter since it will be recomputed at next deflate call. 

ass, 

U } 

} else { 

/* match ^ output a literal byte */ 
Tracew((stderr^"%c", s->window[s->strstart] ) ); 
„tr_tally_lit (s, s->windo^[s->strstart] , bflush); 
s-> lookahead — % 
s->strstart++; 

} 

if (bflush) FLUSH„BLOCK{s, 0); 

} 

FLUSHJLOCK(s, flush Z^FIlslISH) ; 

return flush ^« 2_FINISH ? finish_done ; block done; 

} 

* Same as above, but achieves better compression . We use a lazy 

* evaluation for matches: a match is finally adopted only if there is 
« no better match at the nesct window position - 

*/ 

local bIock„state def late_slow(s, flush) 
deflate„state *s; 
int flush; 

{ 

IPos hash_h®aid - NIL; /* head of hash chain */ 

int bflush; z'* set if current block must be flushed *^ 
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for (;;) { 

/* Fill the window as much as possible: */ 
if {s->lookahead <- 1) { 

Assert (s->strstart < s->w„size+MAX_DIST(s) M 
s->faiock„start (long)s->w„size, "slide too late"); 

f ill_window(s) i 

if (s->loo]cahead 0 S^Sc flush Z„NO„FLUSH) return need„more; 

if (s->lookahead 0) break; /* flush the current block */ 

Assert {s->block_start OL, "block gone"); 

s->strstart s->lookahead; 
s->lookahead « 0; 

/* Emit a stored block if pending„buf will be full: */ 
max_start ^ s->block_start + mas„block_size; 

if (s->strstart Q j | (ulg)s->strstart man^start) { 

/* strstart 0 is possible when wraparound on 16-bit machine */ 

s->lookahead = (uint) (s->strstart - inaK.start ) ; 

s->strstart « (ulnt)mas„start ; 
FLUSH„BLOCK(s, 0); 

} 

y* Flush if we may have to slide, otherwise block„start may become 
* negative and the data will be ^one: 
*/ 

if (s->strstart - (uInt)s->block_start >= MAX_DIST(s) ) { 
FLUSH_BLOCK(s, 0); 

} 

FLUSHLBLOCK(s, flush Z^FINISH) ; 

return flush Z.FINISH ? finish^done : block^done; 



li* Compress as much as possible from the input stream, return the current 
block state. 

H « This function does not perform lazy evaluation of matches and inserts 
new strings in the dictionary only for unmatched strings or for short 
matches. It is used only for the fast compression options. 

ISocal block^state def late„fast (s, flush) 

def late_state *s; 
'^•^^ int flush; 

tj IPos hash„head = NIL; /* head of the hash chain */ 

int bflush; /* set if current block must be flushed »/ 

for (;;) { 

/* Make sure that we always have enough lookahead, except 
» at the end of the input file. We need MAX„MATCH bytes 

* for the next match^ plus MIN^MATCH bytes to insert the 
» string following the next match. 

«/ 

if (s->lookahead < MIN^LOOKAHEAD ) { 
f ill„window{s) ; 

if (s->lookahead < MIH^LOOKAHEAD flush Z^NO^FLUSH) { 
return need„more; 

^ if (s->lookahead 0) break; /* flush the current block */ 
} 

/* Insert the string window [strstart strstart+2] in the 

* dictionary, and set hash_head to the head of the hash chain: 

if (s->lookahead MIH_MATCH) { 

IljiSERT STRING(s, s->strstart, hashjead); 

} 

/* Find the longest match, discarding those prev_length. 
» At this point we have always match„length < MIN„MATCH 
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* -> more >- window„size - (MM.LOOKffiEAD-1 + WSI2E + MAX„DIST-1) 

* more ??indow„siz^ - 2«WSIZE + 2 

* In the eiG„MEM or MKP case (not yet supported), 

* wxttdow„size input„si2e + MIN„LOOKAHEAD ScSc 

« strstart + s->lookdhead input^sise more MIH_LOOKAHEAD . 

* Otherwise, window„size 2*WSIZE so more >= 2. 

» If there was sliding* more >« WSIZE. So in all cases, moi^ >- 2. 

Assert (more >- 2, "more < 2"); 

n ^ read„buf (s->strffl, s->window + s->strstart + s->lookahead, more); 
s->Iookahead n; 

/* Initialize the hash value now that we have some input: */ 
if {s->lookahead Umjmm) { 

s->ins„h = S'">window[s->strstart]; 

UPDATE_HASH(s, s->ins_h. s->windowts->strstart+l] ) ; 
#if MIN_lyIATCH !- 3" 

Call UPDATE JiABHO MINJ4ATCH-3 more times 

#endif 

/* If the whole input has less than MIH„MATCH bytes, ins„h is garbage, 

* but this xs not important since only literal bytes will be emitted. 

} while (s->lookahead < MIlsI^LOOKAHEAD S^S^ s->strm~>avail_in 0); 

} 

£St Flush the current block, with given end-of-file flag. 

m assertion: strstart is set to the end of the current match. 

define FLl^H_BLOCK_ONLY(s, eof) { N 

tr_flush.block(s, (s->block_start >- OL ? \ 
%J (charf *)te->window[ (unsigned )s->block„start] : \ 

eTi (charf *)Z„lsnJLL), \ 

n (ulg) ( (long)s->strstart - s->block_start) , \ 

(eof)); \ 

P s->block_start ^ s->strstart; \ 
flush„pending(s->strm) ; \ 
Tracev((stderr," [FLUSH]")); \ 

li 

M* Same but force premature enit if necessary. »/ 
?#de£ine FLUSH„BLOCK(s, eof) { \ 
!: FLUSH„BLOCK„OMLY(s, eof); \ 

C3 if (s->strm->avail_out 0) return (eof) ? f inish_started : need_more; \ 



» Copy without compression as much as possible from the input stream, return 

* the current block state. 

* This function does not insert new strings in the dictionary since 
» uncompressibie data is probably not useful. This function is used 

* only for the level=*0 compression option. 

« NOTE: this function should be optimized to avoid extra copying from 

* window to pending„buf . 
«/ 

local block^state def late„stored (s, flush) 
deflate„state «s; 
int flush; 

^ Stored blocks are limited to Osffff bytes, pending.buf is limited 

* to pending„buf_size, and each stored block has a 5 byte header; 
*/ 

ulg ma:H:_block_size = Oxffff; 
ulg maK_start; 

if (maK„block_size > s->pending_buf„size - 5) { 
maK_block„size = s->peRding_b^f-Size - S; 

} 



y* Copy as much as possible from input to output: 



File: Wark\CrtPrt\2coffip\deflate.c 



Pg: 14 



* Fill the window wlxen the lookahead becomes insufficient. 

* Updates strstart and lookahead. 
« 

* IN assertion: lookahead < MIK^LOOMHEAD 

* OUT assertions: strstart <= window„size-MIN_LOORAHEAD 

* At least one byte has been read, or availjn 0; reads are 

* performed for at least two bytes {required for the sip translate_eol 

* option — not supported here). 
*/ 

local void f ill„window(s) 
deflate_state *s; 

{ 

register unsigned n, m; 
register Posf *p; 

unsigned more; /* Amount of free space at the end of the window. */ 
uint wsize - s->w„si2re; 

do { 

more = (unsigned ) (s->window„size -(ulg)©--> lookahead -(ulg)s->st2rstart) ; 
/* Deal with 64R limit: */ 

if (more 0 StS: s->strstart 0 s->lookahead 0) { 
more « wsize; 

} else if (more (unsigned) (-1) ) { 

/* Very unlikely, but possible on 16 bit machine if strstart == 0 
* and lookahead — 1 (input done one byte at time) 
U «/ 
% 3 more — ; 

/* If the window is almost full and there is insufficient lookahead, 
» move the upper half to the lower one to make room in the upper half. 

\l } else if (s->strstart wsise+MAX_DIST(s) ) { 

2memcpy(s->window, s->window+wsize, (unsigned)wsize) ; 
^3 s->match_start wsize; 

s->strstart wsize; we now have strstart MAX„DIST */ 

U s->biock„start — (long) wsise; 

'"J Slide the hash table (could be avoided with 32 bit values 

J at the expense of memory usage). We slide even when level 0 

to keep the hash table consistent if we switch back to level > 0 
;f later. (Using level 0 permanently is not an optimal usage of 

ll zlib, so we don't care about this pathological case.) 

□ */ 

n - s->hash„sise; 

p &s->head[n] ; 

do { 

m = * — p; 

*p ^ (Pos)(m >= wsize ? m-wsize : MIL); 
} while ( — n) ; 

n « wsize; 
#ifndef FASTEST 

p - £!S'->prev[n] ; 
do { 

m * — p; 

*p ^ (Pos)(m >« wsize ? m-wsize ; NIL); 

/* If n is not on any hash chain, prev[n] is garbage but 

* its value will never be used. 

*/■ 

} while (--n) ; 



#endif 



more wsize; 

} 

if (s->stnn->avail_in " 0) return; 

If there was no sliding: 

* strstart <- WSIZE+MAX„DIST-1 lookahead <- MIN_LOOKAHEAD - 1 £c& 

* more ^» window„size - lookahead - strstart 
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/* The code is optimized for HASH„BITS >- 8 aud MAX_MATCH-2 multiple of 16 

* It is easy to get rid of this optimization if necessary. 
»/ 

Assert (s->hash_foits >- 8 MAX„M^TCH 258, "Code too clever"); 
Assert ((iilg)s->strstart s->window„si2e-MIM„L00KAHEAD, "need lookahead") 
Assert (cur_match < s~>strstart^ "no future"); 
match * s->window + cur_match; 

/» Return failure if the match length is less than 2: 
if (match[0] scanJO] )| match[l] !- scanfl]) return MIN_MATCH-1; 

The check at best_len-l can be removed because it will be made 

* again later. (This heuristic is not always a win.) 

* It is not necessary to compare scan [2] and match [2] since they 
» are always equal when the other bytes match, given that 

* the hash keys are equal and that HASH^BITS >* 8. 
*/ 

scan 2, match 2; 
Assert (*scan »match, "match[2]?" ) ; 

We check for insufficient lookahead only every 8th comparison; 

* the 256th check will be made at strstart+'258. 
«/ 

do { ^ 

} while {*+4.scan »-f'+match »+H-scan *++match 
1 3 *-h-fscan *++match St& »++scan *-f-+match 

I J *-i-+scan *++xaatch «++scan ^« *++match &Ss 

»+-fscan »++match S^Si *++scan *++match 
l-l scan < St rend) ; 

'^3 Assert(scan <- s->window+ (unsigned) (s->window„size-l) , "wild scan"); 
ri len - MAX_MATCH - (int) (strend - scan); 
13 if (len < MIN^MATCH) return MIN^MATCH - 1; 
s->match„start « cur„match; 

return len <^ s->lookahead ? len : s->lookahead; 

H 

liendif /* FASTEST 
l|endif ASMV */ 

Ciifdef DEBUG 

Check that the match at match^start is indeed a match. 

*/ 

local void check_match (s, start, match, length) 
deflate„state «s; 
IPos start, match; 
int length; 

^ /* check that the match is indeed a match */ 
if (zmemcmp(s->window + match, 

s->window start, length) !- EQUAL) { 
fprintf (stderr, " start ^u, match ^u, length %d\n", 
start, match, length); 
do { 

fprintf (stderr, "^c^c", s->window[match4-4.] , s->window[start++] ) ; 
} while (--length !- 0); 

z„error ( " inval id match " ) ; 

if (z„verbose > 1) { 

fprintf (stderr, "\\[^^d,%d]", start -match, length); 
do { putc(S">window[start++] , stderr); } while (—length l« 0); 

} 

} 

#else 

# define check^match (s, start, match, length) 
#endif 
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/* The funny "do {}'* generates better code on most compilers »/ 
/* Here, scan window+strstart+257 */ 

Assert (scan <- S">window^ (unsigned ) (S">window_si2e-l) , "wild scan"); 
i£ (»scan *matc:h) scan++; 

len - {WQiJiATCH - 1) - (int) (strend-scan) ; 
scan « St rend - (MK^M^^TCH-l) ; 

#else /* UNALI<a?ED„OK */ 

if (match [foestj en] !'=scan_end || 

match [best„len- 13 l«scan_endl Ij 

»match i ^ *scan \ \ 

*+4-match i«scan[l]) continue; 

/» The check at best_len-l can be removed because it will be made 
« again later* (This heuristic is not always a win.) 
« It is not necessary to compare scan [2] and match [2} since they 

* are always equal when the other bytes match, given that 
» the hash keys are equal and that HASH^BITS >- 8, 

*y 

scan 2, match^^; 

Assert (*scan *match, "match [2] ?") ; 

/* We check for insufficient lookahead only every 8th comparison; 

* the 256th check will be made at strstart+258 , 
*/ 

{ 

IJ } while (*++scan " *++match ScS^ *++scan »- *+-fmatch S^. 

1,1 *++scan *+-fmatch *++scan ««= »4-^match 

*-f+scan *++match ScSc »4-+scan *+-t-match S£c 
«++scan *++match Bc&. *+4-scan *+-i'match ScSc 
scan < strend); 

I J Assert (scan <« s->window+ (unsigned) (s->window„si2:e-l) , "wild scan*'); 

"J len = MAXJ^TCH - (int) (strend - scan); 

1 3 scan - strend - MAX„MATCH; 

I-#endif /» UHALIQn[ED„OK */ 

■*^J if (len > best Jen) { 

|:| s->match„start « cur_match; 

best„len « len; 
s"'^ if (len >« nice^atch) break; 

Clifdef UNALIGHEDJK 

f3 scan_end « * (ushf*) (scan+best„len-l) ; 

#else 

scan_endl - scan[best_len-l] ; 
scan„end « scan[best_len] ; 

#endif 

} wliile ((cur_match - prev[cur_match wmask]) > limit 
ScS^ --chain„length != 0); 

if ((ulnt)bestjen <« s->lookahead) return (ulnt)best_len; 
return s-> lookahead; 

} 

#else /* FASTEST */ 

/» : 

« Optimised version for level -» 1 only 

local uint longest„match(s, cur„match) 
def iate„state *s; 

IPos cur_match; current match */ 

^ register Bytef *scan = s->window + s->strstart; /* current string */ 
register Bytef *match; ^* matched string »/ 

register int len; length of current match »/ 

register Bytef »strend « s->window + s->strstart + MAX_MATCH; 
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register Bytef *scan - s->window + s->strstart; /* current string */ 
register Bytef *match; matched string */ 

register int len; 1^^^ of current match 

int best^len - s->prev„length; best match length so far */ 

int nice„match - s->nice^match; ^* stop if match long enough */ 

IPos limit - s->strstart > (IPos)MK_DIST(s) ? 

s->strstart - (IPds)MAX_DIST(s) : NIL; 
/« Stop when cur^match becomes <« limit. To simplify the code, 

* we prevent matches with the string of window index 0. 
«/ 

Posf »prev « s->prev; 
uint wmask « s->w„mask; 

#ifdef UNALIGWED.OR ^ ^ ^ ^ 

/* Compare two bytes at a time. Mote: this i© not always beneficial. 

* Try with and without -DUHALIGHED„OR to check. 

register Bytef »strend « s->window + s->strstart + MAX.MATCH - 1; 
register ush scau_start * * (ushf*)scan; 
register ush scan.end « *(ushf*) (scan+best„len-l) ; 
2,se 

register Bytef *strend s->window -h s->strstart + MI^_MliTCH; 
register Byte scan^endl « scan [best_len-l] ; 
register Byte scan„end * scan [best^len] ; 
#endif 

/* The code is optimized for HASHJITS 8 and MAX_MATCH-2 multiple of 16. 
» It is easy to get rid of this optimization if necessary. 

^1 Asiert(s->hash3its >« 8 MAX^MTCH 258, "Code too clever"); 

m /* Do not waste too much time if we already have a good match: */ 
Jls if (s->prev__len0th >- s->good„match) { 
chainjength >>- 2; 

vJ } 

Id /* Do not look for matches beyond the end of the input. This is necessary 
'Vi * to make deflate deterministic. 

if ((ulnt)nice_match > s->lookahead) nice^match « s->lookahead; 
Assert ((ulg)s->strstart <= s->window_size-MIN_LOOKAHEAD, "need iookahead"); 
'J do { 

Itj Assert (cur^atch < s->strstart, "no future"); 

match ^ S'->window + cur_match; 

C3 /* Skip to neKt match if the match length cannot increase 

fj « or if the match length is less than 2: 

*/ 

#if (defined (UNALIGNED.OK) S=S= MAX^MATCH 258) 

/* This code assumes sizeof (unsigned short) 2. Do not use 

* UNALIGl!3ED_0K if your compiler uses a different size, 
*/- 

if {»(ushf«) (match+best_len-l) i ^ scan.end H 
*(ushf*)match I scan_start) continue; 

/* It is not necessary to compare scan [2] and match [2] since they are 
» always equal when the other bytes match, given that the hash keys 
» are equal and that HASHJITS >- 8. Compare 2 bytes at a time at 

* strstart+3^ +5, ... up to strstart+257. We check for insufficient 

* lookahead only every 4th comparison; the 128th check will be made 

* at strstart+257 . If MAX„MATCH-2 is not a multiple of 8, it is 
« necessary to put more guard bytes at the end of the window, or 

* to check more often for insufficient lookahead. 
»/ 

Assert (scan [2] match[2]> "scan[23?"); 
scan++, match+'f; 
do { 

} while (*{ushf*) (scan-f-2) »{ushf*) {match+-2) &S 
»(ushf*) (scan-f-2) «^ * (ushf*) (match-i-2) 
«(ushf«) {soan+=2) »(ushf*) (match+-2) 
»(ushf«) (scan+«2) * (ushf*) (match-*^=2) ScSc 
scan < strend); 
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» this function so some applications may wish to modify it to avoid 
« allocating a large stnn-'>neKt_in buffer and copying from it. 

* {See also f lushjending ( ) ) . 
*/ 

local int read_buf (strm, buf, size) 
z^streamp sttiti; 
Bytef *buf; 
unsigned size; 

{ 

unsigned len « strm->avail„in; 

if (len > si2e) len « sise; 
if (len 0) return 0; 

stmi-->avail_in -= len; 

if (istrm->state->noheader) { 

strm->adler « adler32(atrm->adler, strni~>nei:t„in^ len); 

} 

2iaemcpy(buf ^ strm*>neKt_ln, len); 
stnn->nes:t„in len; 
strm->total_in +^ len; 

return (int) len; 

} 

* Initialize the "longest match" routines for a new zlib stream 

'^iical void Inuinit (s) 
def late„state *s; 

Id 

s->window_size « (ulg) 2L*s->w_size; 

S is? 

CLEAR_imSH(s); 

/« Set the default configuration parameters; 

^2 *^ 

s->maK„lazy_match « confisuration„tafole[s-> level ] .ma2s„lazy; 
s s->good„match ^ conf iguration_table [s~> level ] .goodjength; 

fi s->nice_match = conf i0uration_table[s->level] .nice^length; 

Ij S">maK_chain_length ^ con fi^uration^t able [s-> level ] .iaax_cha in; 

iJ s->strstart * 0; 
Is, S">block_start = OL; 
s->lookahead « 0; 

s->match_length - s->prev_length « MIM„MTCH-1; 
IJ s->niatch_available 0; 

s->ins„h ^0; 
#ifdef ASMV 

match„init{); /« initialize the asm code */ 
#endlf 
} 

* Set match_start to the lons^st match starting at the given string and 

» return its length. Matches shorter or equal to prevjength are discarded, 
» in which case the result is egual to prev_length and inatch_.start is 

* garbage. 

* IH assertions: cur_jaatch is the head of the hash chain for the current 

» string (strstart) and its distance is HAX_BIST, and prev„length >* 1 

* OUT assertion: the match length is not greater than s->lookahead. 
*/ 

#ifndef ASMV 

For 80k86 and 6802s:0, an optimized version will be provided in match. asm or 
» match. S, The code will be functionally equivalent. 
*/ 

local uint longest_match(s, cur^match) 
def late„state *s; 

IPos cur_match; current match 

{ 

unsigned chain_„length - S'->maK_chain„length;/* max hash chain length «/ 
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TRY_FREE(strtn, stnEi->state">haad) ; 
TRY_FREE(strm, strm- > state ->prev ) ; 
TRYlFREE(stnn, strB->state->window) ; 

2FREE (strm, stnn->state) ; 
strm->state ^ Z„MJLL; 

return status BUSY^STATE ? Z„DATA„ERROR : Z^OK; 

} 

« Copy the source state to the destination state. 

* To simplify the source, this is not supported for 16-hit MSDOS (which 

* doesn't have enough memory anyway to duplicate compression states). 
*/ 

int 2EXP0RT deflateCopy (dest. source) 
z„streamp dest; 
z streamp source; 

{ 

mde£ MAXSEG„64K 

return Z_STREAM„£RROR ; 
#else 

deflate_state *ds; 

d©£late_state *ss; 

ushf *overiay; 



if {source ZJsTULL | | dest Z.KfULl | | source->state Z„mL) { 
return 2„STREAM_ERR0R; 

ff\ ss « source -> state; 

' =f *dest - *source ; 

Q ds - (deflate_state *) ZALLOC(dest. 1, sizeof (def late„state) ) ; 

V- if (ds Z„MJLL) return Z_MEM_£RROR; 

^ dest->state = (struct interna Instate FAR *) ds; 

%J *ds - *ss; 

£ ds->strtti = dest; 

ds->window - (Bytef *) 2ALL0C{dest, ds->w„size, 2*sizeof (Byte) ) ; 
''4 ds">prev = (Posf *) ZALLOC(dest. ds->w„si2e, siseof (Pos) ) ; 
i-:^ ds->head - (Posf *) ZALLOC(dest. ds->hash„si2e. sizeof (Pos) ) ; 
ri overlay « (ushf «) ZALLOC(dest, d$->lit„bufsize, sizeof Cush)-^*2) ; 
IZ ds->pending„buf = (uchf *) overlay; 

n if (ds->window Z„HULL || ds->prev ZJULL || ds->head Z.HULL M 
ds->pending„feuf Z_l?ULL) { 
deflateEnd (dest); 
return Z^MEMJRROR; 

/* following zmemcpy do not work for i6-fait MSDOS */ 
zmemcpy{ds->window, ss->window, ds->w_size » 2 * sizeof (Byte) ) ; 
zmemcpy (ds*>prev, ss->prev, ds->w„size * sizeof (Pos) ) ; 
zmemcpy (ds-> head, ss->head, ds->hash_size * sizeof (Pos) ) ; 
zmemcpy(ds->pending„buf , ss->pending„buf , (ulnt)ds->pending.fouf„size) ; 

ds->pending„out - ds->pending„buf + (ss->pending„out - ss->pending„buf ) i 

ds->d_buf = overlay + ds->lit_bufsize/si2eof (ush) ; 

ds->l_buf - ds->pendine_buf + (1+sizeof (ush) )*ds->lit.bufsize; 

ds->l„desc.dyn_tree - ds->dyn„ltree; 
ds->d_desc,dyn_tree * ds->dyn_dtree; 
ds->bl_desc.dyn„tree ^ ds->bl„tree; 

return Z_OK; 
#endif 

} 

Read a new buffer from the current input stream, update the adler32 
* and total number of bytes read. All deflate () input goes through 
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} 



if Cstrm->avail„iii != 0 M s->lookahead I- 0 |t 

(flush 1- ZJJO^FLUSH S^Se s->status 1- FIOTSH^STATE)) { 
block.state bstate; 

bstate * (*(c:onfisuration„tablets->l®^®l] •^^^'^)) ^^i^®^) ' 

if (bstate =« finishes tart ad | 1 bstate finish^done) { 
s->status - FIHISH^STATEi 

if (bstate need_more | j bstate f inish^started) { 

if (strtn->avail„oiit 0) { , 

s->last„flush « -1; avoid BUF^ERROR next call, see above */ 

return Z„OK; ^ , ^ 

/* If flush Z HO„FLUSH avail„out 0, the neKt call 
» of deflate should use the same flush parameter to make sure 

* that the flush is complete. So we don't have to output an 

* empty block here, this will be done at neKt call. This also 

* ensures that for a very small output buffer, we emit at most 
« one empty block. 

*/ 

^ if (bstate block„done) { 

if (flush Z„PARTIAL.FLUSH) { 

„tr_align(s) ; 
} else { /* FULL„FLUSH or SYNC„FLUSH */ 

„tr„stored„block{s, {char*)0, GL, 0); 

/* For a full flush, this empty block will be recognized 
« as a special marker by inf late_sync() . 

i^ (flush Z.FULL^FLUSH) { 

CLEAR.HASH{s); forget history */ 

} 

flush_pending(strm) ; 
if (strm->avail_out 0) { ^ 

s->last„flush = "1; /* avoid BUF„ERROR at next calU see above */ 
return Z_OK; 

} 
} 

} 

Assert (strm->avail„out > 0, "bugZ"); 

if (flush I- Z„FIHISH) return Z„OR; 
if (s->noheader) return Z„STREAM„END; 

/« Write the zlib trailer (adler32) 
putShortMSB(s, (uint) (strm->adler >> 16)); 
putShortHSB(s, (uInt) (strm-'>adler Sc Oxffff)); 
flush„pending{strm); . , * 

/* If avail^out is zero, the application will call deflate again 
* to flush the rest, 

s->noheader write the trailer only once! */ 

return s->pending 1- 0 ? Z^OK : Z„STREAM„END ; 



int ZEXPORT def lateEnd (stm) 
z„streamp strm; 



{ 



int status; 

if (strm ZJIULL U strm->state Z.HULL) return Z_STR£AM„ERROR; 
status = strm->state->status; 

if (status !- IHIT„STATE status I - BUSY„STATE 
status FINISH„STATE) { 
return Z„STREAMJRROR; 

} 

/* Deallocate in reverse order of allocations: */ 
T2?Y_FREE(strm, strta->state->pending„buf ) ; 
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{ 

int oId„flush; /* value of flush param for previous deflate call */ 
def late„state *s; 

if (strm 2_MJLL | | strm->state Z„mJLL t 1 
flush > Z„FINISH I 1 flush < 0) { 
return 2„STREAH ERROR; 

} 

s = strm- > state; 

if (stnn->neKt_out 2JMLL | j 

(strm->nest_in 2„2sfULL strm->avaii_xn 1-0) |t 
(s->status FIHISH^STATE StS= flush l» Z^FINISH) ) { 

ERR„RETURN(strm. Z„STREA!1.ERR0R) ; 

} 

if (strfti->avail„out =^ 0) ERR_RETURK(strm, 2„BUF„EJ^R0R) ; 

s->strm « strm; /* just in case */ 
old„flush - s~>last„f lush; 
s->last_flush « flush; 

/* Write the zlib header «/ 
if (s->status IHIT„STATE) { 

uint header - (Z^DEFLATED + ( (s->w„bitS"8) <<4) ) << 8; 
uint level_flags « (s->level-l) >> 1; 

if (level_flags > 3} level^flags « 3; 
header |^ (level_flags << 6); 
if (s->strstart !- 0) header 1= PRESET„DICT; 
U header 31 - (header Z 31); 

hi s-> status « BUSY_STATE; 

' putShortMSB (s , header) ; 

id /* Save the adler32 of the preset dictionary: »/ 
C.l i£ (s->strstart I- 0) { 

putShortMSB{s, (uint) (strm->adier >> 16)); 
U putShortMSB(s, (uint) (strm->adler & O^ffff)); 

} 

strm'->ad2er = IL; 

^ } 

ly /« Flush as much pending output as possible */ 
if (s->pending i- 0) { 
f lush_pending (stna) ; 
if ( strm- >avai Lout 0) { 
13 y* Since avail_out i© 0, deflate t<?ill be called again with 

« more output space ^ but possibly with both pending and 

* avail„in equal to zero. There won't be anything to do, 

* but this is not an error situation so make sure we 

« return OK instead of BUF_ERROR at nest call of deflate: 

s-->last_flush =« -1; 
return 2 OK; 

} 

/* Make sure there is something to do and avoid duplicate consecutive 
» flushes. For repeated and useless calls with Z„FINISH* we keep 
* returning 2„STREAM_EtJD instead of Z„BUFF_ERROR. 
*/ 

} else If {strm->avail„in 0 flush <« old„flush 
flush Z„FINISH) { 
ERR_RETURlsF ( st rm . Z„BUF_ERROR) ; 

} 

/» User must not provide more input after the first FINISH: */ 
if (s->status — FINISH^STATE stria'->avail in 0) { 
ERR_RETURN(stnn, ZJUFJRROR); 

} 



/* Start a new block or continue the current one. 
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{ 

deflate„state «s; 
compress_func func; 
int err - Z_OK; 

if (strm 2_NULt | t strm->state Z.MILL) return 2„STREM„ERR0R; 
s str2H->state; 

if (level Z„DEFAULT„COMPRESSIOH) { 

level « 6; 

} 

if (level < 0 I I level > 9 jl strategy < 0 i ] strategy > 2_HiJFFMM5_OMLY) { 
return Z_STREAM„ERROR; 

} 

func « confi9uration_table[s~> level] .func; 

if (func 1= configuration„table[level] .func stm->total„in \^ 0) { 

/» Flush the last buffer: *y 

err - deflate (strm, 2_PARTIAL_FLUSH) ; 

} 

if (s->level 1== level) { 
s-> level = level; 

s->inax_lazy_jiiatch « confi9uration„tablef level] .maH„la2y; 
s->good„inatch * configuration_tabie [level ] .good^length; 

s->nic0_match configuration„table[ level] .nice_length; 

s->max„chain_length * configuration^tafole [level ] .max„chain; 

} 

s->strategy = strategy; 
return err; 

fif Put a short in the pending buffer. The 16-bit value is put in MSB order. 

IN assertion: the stream state is correct and there is enough room in 
%^ pending^buf . 

{]*/ 

Cpcal void putShortMSB (s, b) 
,^2 def late„state *s; 
uint b; 

fi putJcyte(Sr (Byte) (h >> 8)); 
;1 put_byte(s, (ByteHis ^ Osff)); 

J 

i^^* Flush as much pending output as possible. All deflate () output goes 
]J* through this function so some applications may wish to modify it 
C3» to avoid allocating a large strm->next„out buffer and copying into it. 
» (See also read„buf()). 

local void f lush„pending (strm) 
z„streamp strm; 

{ 

unsigned len « strm- > state-) pending; 

if (len > stna->avaii_out) len - st3rm->avail_out; 
if (len '^'^ 0) return; 

zraemcpy(stna->neKt_out, str2n->state->pending„out^ len); 

stm->next_out +- len; 

strm->state*>pending_out len; 

strm- >t Ota l_out +«= len; 

strm->avail_out len; 

strm->state->pending len; 

if (strm->state->pending ^= 0) { 

strm->state->pendin0_out « strm->state*>pending„buf ; 

} 

} 

int ZEXPORT deflate (strm, flush) 
s^streamp strm; 
int flush; 
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const Bytef *dxctionary; 
uint dictLsngth; 

def late_state *s; 

uInt length - dictLength; 

Mint n; 

IPos hasii3^ai^ 0^ 

if (strm Z^NULL \ \ stnn->state Z.NULL | 1 dictionary ^= 2_MJLL 1 | 
stnn->stat$->status U IMIT^STATE) return Z_STREAM„ERROR; 



s = strm~>state; 

strni->adler = adler32Cstrjti->adler, dictionary, dictLensth) ; 

if (length < MIl?_MATCH) return Z„OK; 

if (length > imjflST(s)) { 

length - MAX„DIST(s); 
#ifndef USE_DICT_HEAD 

dictionary dictLength - length; /* use the tail of the dictionary «/ 
#endif 

} 

2memcpy(s-> window, dictionary, length); 
s->strstart « length; 
s->folock_start = (long) length; 

/* Insert all strings in the hash table (except for the last two bytes) . 

* s->iookahead stays null, so s->ins_h will be recomputed at the next 

* call of fill„window. 

n *^ 

'^f s~>ins_h « s->window[0] ; 

UFdkTEJihSH{Sr s->ins_h, s->window[ 1] ) ; 
in for (n « 0; n <- length - MIlsf_MATCH; n++) { 
fy INSERILSTRraG{s, n, hashjead); 

if (hash„head) hash„h^ad « 0; /* to makie compiler happy */ 
[J return Z_OK; 

^nt ZEXPORT deflateReset (strm) 
2_streamp strm; 

./^ def late_state *s; 

11 if (strm Z^MLJLL j | stnn->state Z„MJLL | | 

■r,^ stOT->2alloc Z^lsfULL || strm->zfree =- Z_HULL) return Z_STREAM„ERROR; 

S3 st3rm->total_in - strm->total_out = 0; 

stnn->msg - Z„NLJLL; use zfree if we ever allocate msg dynamically */" 
strm->data„type « Z_Ut5KN0V^t^f; 

s « (def late_state *)strm->state; 
s->pending « 0; 

s->pending„out « s->pending_buf ; 

if (s->noheader < 0) { 

s->nohead0r - 0; was set to -1 by deflate(.,., Z„FIHISH); 

} 

s->status - s->noheader ? BUSY„STATE : IKIT„STATE; 
strm->adler « 1; 
s->last.flush - Z„NO„FLUSH; 

_tr„init (s) ; 
Im^init (s) ; 

return Z_OR; 

} 

int ZEXPOHT def lateParams(strm, level, strategy) 
2_streamp strm; 
int level ; 
int strategy; 
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*/ 

if (version ^« 2_HULL 1| version [0] my„version [0] 1| 

stream„si2e f* si^eof (z^stream) ) { 
return Z^VERSIOi? ERROR; 
} 

if {stxw. Z_HULL) return Z_STR£AM_£RROR; 

stitn->ins3' * 2„MJLL; 

if (strm->2alloc Z_HULL) { 

strm->zaHoc zcalloc; 

stnn~>opague - (voidpf)Oi 

} 

if (strm->zfree Z„M3LL) strm->zfree ^ ^cfree; 

if (level Z_DEFAULT„COMPRESSIOM) level - 6; 
#ifdef FIvSTEST 

level - 1; 
#endif 

if (windowBits < 0) { /* undocumented feature: suppress zlib header 
noheader =1; 
mndowBits « --windowBits; 

} 

if (irteitiLevel < 1 ll memLevel > MK^MEM.LEVEL j| method !« ZJEFLATED || 
WindowBits < 8 jj windowBits > 15 H l^vel < 0 H level > 9 U 

strategy < 0 H strategy > Z„HUFFMAN„ONLY) { 
return 2„STREAH^£RR0R; 

} 

"^f s - (deflate_state *) ZALLOC(stna, U siseof (def late„state) ) ; 

U if (s Z„NULL) return 2J1EM„ERR0R; 

ifl str2n->state - ^struct internal_state FAR *)s; 

hi s-->strm strm; 

s-> noheader noheader; 
I J s->w„bits = ?9indowBits; 

s->w„si2e ^ 1 << s->w„bits; 
..^ s->w__.3nask s->w„si2e - 1; 

r s->hash„bits ^ memLevel +7; 

s->hash_sise ^ 1 << s->hash_foits; 
!'1 s->hash„mask « s->hash„size - 1; 

s->hash_shift = ( (s->hash3its+MIH„MATai-l)/HIbl.MATCH) ; 

yj 

U s->window ^ (Bytef *) ZALLOC(stmi, s->w_size, 2*sizeof (Byte) ) ; 

s->prev (Posf *) ZALLOC(strm^ s->w„size, sizeof (Pos) ) ; 
'^'^ s->head « (Posf *) ZALLOC(strm, s->hash„si2e, sizeof (Pos) ) ; 

s->lit_bufsi2e * 1 << (memLevel + 5); /* 16K elements by default 

overlay * (ushf *) ZALLOC(strm, s->lit3yfsi2e^ sizeof (ush)+2) ; 
s->pendiflg„buf = (uchf *) overlay; 

s->pending_buf_size = (ulg)s->lit„bufsa.ze » (sizeof (ush)+2L) ; 

if (s->window Z^i^ULL \ \ s->prev Z„3sIULL |1 s->hedd Z„mLL 1| 
s->pending_buf 2„MJLL) { 
strm->msg « (char*)ERR„MSG{Z„MEM_ERROR) ; 
deflateEnd (strm); 
return 2 MEM„ERROR; 

} 

s->d_buf ^ overlay s->lit_b«f3i2e/sizeof (ush) ; 

s->l„buf ^ s->pending_buf + ( 1+sizeof (ush) )*s->lit_bufsize; 

s->ievel « level; 
s->strategy ^ strategy; 
s->inethod - (Byte)method; 

return def lateReset (strm) ; 

} 

int ZEXPORT def lateSetDictionary (strm, dictionary, dictlen^th) 
z^streamp strm; 
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struct static_tree_,d8sc_s {int dummy;}; /* for bug^y compilers */ 

* Update a hash value with tha giv^n input byta 

* IbJ assertion: all calls to to UPDATEJASH are made with consecutive 

* input characters, so that a running hash key can be ccmiputed from the 

* previous key instead of complete recalculation each time. 
«/ 

#define UPDATE jmSH(s.h,c) (h - ( ( (h)<<S">hash„shift) (c)) ^ s->hash_mask) 



* Insert string str in the dictionary and set match^head to the previous head 
« of the hash chain (the most recent string with same hash key) . Return 

* the previous length of the hash chain. 

* If this file is compiled with -DFASTEST, the compression level is forced 

* to 1, and no hash chains are maintained. 

* m assertion: all calls to to INSERT_STRIHG are made with consecutive 

* input characters and the first MI£J„MATCH bytes of str are valid 

* (except for the last MIK„MATCH-1 bytes of the input file). 

#ifdef FASTEST 

#de£ine INSERT„STRIHGCs, str> raatch^he^ad) \ 

(UPDATE„HASH(s, s->ins_h, s->window{ (str) + {MIR.MATCH-1) ] ) , \ 

match_h^ad « s->head[s->ins_h] , \ 

s->head [s->ins„h] (Pos)(str)) 
#else 

i^efine mSERT„STRIi3G(s, str, match_head) \ 

(UPDATE^HASHfs. s->ins,h. s->window[ (str) + (MIll.MATCH-1) ] ) , \ 
%1 s->prev[ (str) & s->w_mask] ^ match_head « s->head[s->ins_fa] ^ \ 
fn s-'>head[s->ins_h] ^ (Pos)(str)) 
^#pndif 

h> Initialize the hash table (avoiding B4K overflow for 16 bit systems), 
O p3rev[] will be initialized on the fly, 

Ciiefine CLEAR„HASH(s) \ 

s s->head[s->hash„size-l] * NIL; 

f=j zmemzBro( (Bytef *)s->head, (unsigned) (s*->hash„size-l)*sizeof (*S">head) ) ; 

.Ulat 2EXP0RT daf latelnit_{strm, levels version^ stream_size) 
a z_streamp strm; 

int level ; 
M const char *version; 
C3 int stream„size; 
1 

return def latelnit2„(strm. level, Z^DEFLATED, MAXJft?BITS, DEF„MEM„LEVEL , 
Z_DEFAULT„STRATEQY, version, stream„size) ; 
To do: ignore stm->next_in if v?e use it as window */ 

} 

int ZEXPORT def latelnit2_(strm, level, method, windowBits, memLevel, strategy, 
version, stream_si2e) 
2_streamp strm; 
int level; 
int method; 
int windowBits; 
int memLevel; 
int strategy ; 
const char »version; 
int stream^size; 

{ 

def late_state *s; 
int noheader « 0; 

static const char* my_version = ZLIB„VERSION; 
ushf *overlay; 

/* We overlay pending_buf and d„buf+i_buf . This works since the average 
* output size for (length, distance) codes is <- 24 bits. 
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Compression function. Returns the block state after the call. */ 

local void fill^window OF ( (def late„state *s)); 

local block„state def late„stored OF ( (def late„state *s, mt tlush)); 

local block„state deflate„fast OF ( (def late„state *s, mt flush)); 

local block„state deflate^slow 0F( (def late„state *s, mt flush)); 

local void Im^inxt 0F( (def late^state *s)); 

local void putShortMSB 0F( (deflate^state *s, uint b)); 

local void flush sending OF ( (2_streamp strm)); 

local int read„buf 0F( (z„streamp strm, Bytef *buf, unsigned size) 

#ifdef ASMV , , .... 

void match^init OF((void)); /* asm code initialization 
uInt longest^match OF ( (def late^state *s, IPos cur^match)); 

local uInt longest_match 0F{ (def late^state *s, IPos cur„match)); 
#eixdif 

#ifdef DEBUG _ * u 

local void check„match 0F( (def late^state *s, IPos start, IPos match, 

int length)); 

#endif 



« Local data 
*/ 

#def ine NIL 0 

/* Tail of hash chains «/ 

Iflfndef TOOJAR 

m define TOO„FAR 4096 

■■'i^cnd i f 

Iff Matches of length 3 are discarded if their distance exceeds TOOJFAR */ 
#4efine MIH_LOOKAHEAD CMAK„MATCH+MIN„MATCH+1) 

i:7* Minimum amount of lookahead, except at the end of the input file. 
Jl* See deflate.c for comments about the MIK^MATCH-^-l . 

% Values for maK„lazy match, good.match and mas_chain_length, depending on 
the desired pack level {0..9). The values given below have been tuned to 
SSt exclude worst case performance for pathological files. Better values may be 
'HJ» found for specific files. 

I = f^ 

!fypedef struct config.s { , . ^ ^ *u 

'^^ ush good„length; /* reduce lazy search above this match length */ 

ush max lazy; /* do not perform lazy search above this match length */ 
Fi ush nicejength; quit search above this match length */ 
ush max„chain; 
compress_func func; 
} config; 

local const config conf iguration_table [ 10] ^ { 

;hain 

0, deflate„stored}, store only */ 
4, deflate„fast}, /» maximum speed, no lazy matches */ 
8, deflate„fast}, 
32, defiate^fast}, 

16, deflate.slow}, lazy matches */ 
32, deflate„slow}, 
128, deflate_slow}, 
w^, *^w, 256, def late_slow}, 
128, 258, 1024, def lateral ow}, 

258, 258, 4096, def late^sio^}}; /* maximum compression «/ 

:;ode requires maxjazy MIN„MATCH and maK„chain >- 4 
levels <« 3) good is ignored and lazy has a different 



/» 




good lazy 


nice 


/» 


0 »/ 


{0. 


0, 


0, 


/* 


1 */ 


{4. 


4, 


8, 


/» 


2 »/ 


{4. 


5, 


16, 




3 


{4, 


6, 


32, 




4 */ 


{4. 


4, 


16, 




5 


{8. 


16, 


32, 


/* 


6 */ 


{8, 


16, 


128, 


/« 


7 */ 


{8. 


32, 


128, 


/» 


8 */ 


{32, 


128, 


258, 


/« 


9 «/ 


{32, 


258, 


258, 


/* 


Mote 


: the deflate 0 




For deflate„fast() 




meaning. 







#define EQUAL 0 

result of memcmp for equal strings */ 
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/* deflate.c — compress data using the deflation algorithm 

* Copyright (C) 1995-1998 Jean-loup Gailly. 

* For conditions of distribution and use^ see copyright notice in slib.h 
*/ 



* The "deflation*' process depends on being able to identify portions 

* of the input text ?fhich are identical to earlier input (within a 

* sliding window trailing behind the input currently being processed). 
* 

* The most straightfo3:^ard technique turns out to be the fastest for 
« most input files: try all possible matches and select the longest. 

* The key feature of this algorithm is that insertions into the string 

* dictionary are very simple and thus fast, and deletions are avoided 

* completely. Insertions are perfortaed at each input character, whereas 

* string matches are performed only when the previous match ends. So it 

* is preferable to spend more time in matches to allow very fast string 

* insertions and avoid deletions. The matching algorithm for small 

* strings is inspired from that of Rabin St Karp. A brute force approach 

* is used to find longer strings when a small match has been found, 
« A similar algorithm is used in comic (by Jan -Mark Warns) and freeze 

* (by Leonid Broukhis) . 

* A previous version of this file used a more sophisticated algorithm 

* (by Fiala and Greene) which is guaranteed to run in linear amortised 

* time, but has a larger average cost, uses more memory and is patented. 

* However the FScG algorithm may be faster for some highly redundant 

^:=f files if the parameter maK„chain„length (described below) is too large. 

h % ACKHOWLEDGEMEOTS 

Iff 

fif The idea of lazy evaluation of matches is due to Jan-^Mark Warns, and 
I found xt in 'freeze' written by Leonid Broukhis » 
Thanks to many people for bug reports and testing. 

I }¥ 

l^f REFERENCES 

IJt Deutsche L, P. , "DEFLATE Compressed Data Format Specification". 

£ » Available in ftp://ds.internic.net/rfc/rfcl951.tKt 

r> A description of the Rabin and Rarp algorithm is given in the book 
^"-^ "Algorithms" by R. Sed^ewick, Addison -Wesley, p252. 

Fiala ^E.R., and Greene ^D.H, 
IZ* Data Compression with Finite Windows, Coxctm.ACM, 32,4 (1989) 490-595 

£3*/ 



/* @(#) $Id$ */ 
#include "deflate.h" 



const char def late^copyright [] « 

" deflate 1.1.3 Copyright 1995-1998 Jean-loup Gailly 

/» 

If you use the zlib library in a product, an acknowledgment is welcome 
in the documentation of your product. If for some reason you cannot 
include such an acknowledgment, I would appreciate that you keep this 
copyright string in the executable of your product. 



* Function prototypes. 
»/ 

typedef enum { 

need_;ttore, /* block not completed, need more input or more output */ 

blockjone, /* block flush performed */ 

f inish„started, /* finish started, need only more output at nest deflate */ 
finish„done /* finish done, accept no more input or output */ 
} block„state; 

typedef folock^state (*compress_f unc) 0F( (def late„state »s, int flush)); 
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#endif 

# define „tr_tally_lit (s, c, flush) \ 
{ uch cc « (c); \ 

s->d„fouf ts->last.lit] = 0; \ 

s->l_byf [s->last„lit-f-i-] « cc; \ 

s->dyn_ltree[cc] .Freq++; \ 

flush = (s->last lit s->lit_b^fsizi^~l) ; n 

} 

# define _tr_tally„dist (s, distance, length, flush) n 
{ uch len = (length); \ 

ush dist « (distance); \ 
s->d_buf [s-MastJit] dist; \ 
s->l_buf {s->last_lit++] - lea; \ 
dist — ; \ 

s->dya„ltreeLlength„code[len]+LITERALS+l] .Freq^^; \ 

s->dyn_dtree[d„code(dist) ] .Fret3[++; \ 

flush « (s->last„iit s->lit3ufsi2e-l) ; \ 

} 

#el3e 

# define _tr_tally„lit (s, c, flush) flush _tr_tally(s, 0, c) 

# define _tr_tally„dist (s, distance, length, flush) \ 

flush - „tr_tally(s, distance, length) 

#endif 



#end if 
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* - I can't count above 4 
*/ 

uint lastjit; /* running index in l„buf */ 

ushf *d_buf; , ^ ^ ^ u r- v 

/* Buffer for distances. To simplify the code, d^bi^f and l^buf liave 
» the same number of elements. To use different lengths, an extra flag 

* array would be necessary. 
»/ 

ulq opt^len; bit length of current block with optimal trees */ 

ulg staticjen; bit length of current block with static trees »/ 

uInt matches; number of string matches in current block */ 

int last^eobjen; /* bit length of EOB code for last block */ 

#ifdef DEBUG ^ ^ , ^ . 

ulq compressedjen; /* total bit length of compressed file ^^^^f 32 */ 
ulg bits.sent; bit length of compressed data sent mod 2 32 */ 

#endif 

ush bi„buf; , , 

/» Output buffer, bits are inserted starting at the bottom (least 

« significant bits). 
*/ 

int bi„valid; ^ , ^ ^ t-j i.-* 

Number of valid bits in hi_bn£ , All bits above the last valid bit 

* are always zero. 
C3 *^ 

^pFAR deflate„state; 

c n 

l^f Output a byte on the stream. 

IN assertion: there is enough room in pending.buf . 

|#.iiefine put_byte(s, c) {s->pending„buf [s->pendxng++] - (c);} 
6i^efine MIN LOOKAHEAD (MAJU^ATCH+MINJdATC^^ 

^* Minimum amount of lookahead, except at the end of the input file. 
See deflate.c for comments about the MIlsLMATCH-i- 1 . 

l#iefine MAX„DIHT(s) { (s)->w„si2e-MIN„L00KAHEAD) 

In order to simplify the code, particularly on 16 bit machines, m^tch 

distances are limited to MAX^DIST instead of WSIZE. 
C3»/ 

in trees. c 

void tr_init OF ( (def late^state *s)); . ^ . ^^ 

int Itr„tally 0F( (def late^state «s, unsigned dist, unsigned Ic)); 

void „tr_fiush_block OF ( {def late.state *s, charf *buf, ulg storedjen, 
int eof)); 

void „tr„align 0F{ (def late„state »s)); ^ ^ ^ ^ ^ , . 

void „tr„stored_block 0F( (def late„state *s, charf *buf. ulg stored_len, 

int eof )) ; 

#define d„code{dist) \ 

((dist) < 256 ? „dist_code[dist] : „dist_code[25&+( (dist)»7) ] ) 
/* Mapping from a distance to a distance code, dist is the distance - 1 an(t 

* must not have side effects. _dist„code[256] and „dist_code[257] are never 

* used. 
»/ 

#ifndef DEBUG 

/» Inline versions of _tr_tally for speed: */ 

#if defined (GEN.TREESJi) i| ! def ined (STDC) 

extern uch _length„codei] ; 

extern uch „dist_code [1 ; 
#else 

extern const uch _length„code[ ] ; 
e-atern const uch _dist_code[ 3 i 
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uint prev„length; 

/* Length of the best match at previous step. Matches not greater than this 

* are discarded. This is used in the lazy match evaluation. 
*/ 

uint max„chain_length; 

To speed up deflation^ hash chains are never searched beyond this 

* length. A higher limit improves compression ratio but degrades the 

* speed. 
*/ 

uInt iRax_lazy„match; 

/* Attempt to find a better match only when the current match is strictly 
» smaller than this value. This mechanism is used only for compression 

* levels 4. 
*/ 

define maK„insert_length maK_lazyjsiatch 

/* Insert new strings in the hash table only if the match length is not 

* greater than this length. This saves time but degrades compression, 

* max_insert_length is used only for compression levels 3. 
*/ 

int level; /* compression level (1..9) */ 
int strategy; /» favor or force Huffman coding*-^ 

uInt good_match; 

Use a faster search when the previous md^tch is lons^r than this */ 

int nice_match; Stop searching when current match exceeds this 

/* used by trees. c: 
/* Didn't use ct„data typedef belov? to supress compiler warning */ 
struct ct„date_s dyn„ltree [HEAP„SIZE] ; /* literal and length tree */ 
struct ct_data„s dyn„dtree[2*D_C0DES+l] ; /* distance tree *x 
struct ct_data_s bl_tree[2*BL„C0DES+l] ; /* Huffman tree for bit lengths »/ 

, struct t3ree_desc_s l_desc; /* desc. for literal tree */ 

^ struct tree_desc„s d„desc; /« desc. for distance tree *y 

13 struct tree_desc_s bl_desc; /* desc. for bit length tree */ 

U ush bl„count[Mffi„BITS-hl]; 

/* number of codes at each bit length for an optimal tree 

|y int heap[2*L_C0DES4-l] ; /* heap used to build the Huffman trees */ 

int heap^len; /* number of elements in the heap */ 

int heap_max; element of largest frequency */ 

/* The sons of heap[n] are heap[2*n] and heap[2*n+l]. heap[Q] is not used. 
» The same heap array is used to build all trees. 
«/ 

uch depth [ 2*L„C0DES-f 1 ] ; 

Depth of each subtree used as tie breaker for trees of equal frequency 

*/ 

uchf *l_buf; /* buffer for literals or lengths */ 

uInt lit„bufsi%e; 

/« Size of match buffer for literals/lengths. There are 4 reasons for 

* limiting lit^bufsise to 64K; 
» - frequencies can be kept in 16 bit counters 

* - if compression is not successful for the first blocks all input 

* data is still in the window so we can still emit a stored block even 

* when input comes from standard input. (This can also be done for 

* all blocks if lit^bufsize is not greater than 32K.) 

* - if compression is not successful for a file smaller than 64K, we can 

* even emit a stored file instead of a stored block (saving 5 bytes) . 
« This is applicable only for zip (not gsip or slib) . 
» - creating new Huffman trees less frequently may not provide fast 

* adaptation to changes in the input data statistics. (Take for 

* example a bindery File with poorly compressible code followed by 

* a highly compressible string table.) Smaller buffer sizes give 

* fast adaptation but have of course the overhead of transmitting 

* trees more frequently. 



r 
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typedef ush Pos; 
typedef Pos FAR Posf ; 
typedef unsigned IPos; 

/* A Po$ is an inden m the character window. We use short instead of xnt to 
* save space in the various tables, IPos is used only for parameter passing. 



typedef struct interna l„state { 

z.streamp strm; pointer hack to this zlib stream 

int status; /* as the name implies */ 

Bytef *pending_buf ; /* output still pending */ 
ulg pending_buf_si2e; size of pending^buf 

Bytef *pending„out; /* next pending byte to output to the stream «/ 

int pending; /* nb of bytes in the pending buffer «/ 

int noheader; /* suppress zlib header and adler32 */ 

Byte data„type; UlslKNCM?, BINARY or ASCII */ 

Byte method; ^* STORED (for zip only) or DEFLATED 

int last_flush; value of flush param for previous deflate call 



/* used by deflate.c: */ 

uint w_size; /* LZ77 window size (32K by default) */ 

uint w^bits; ^* log2(w„si2e) (8.. 16) */ 

uInt w_mask; /* w„size - 1 */ 



Bytef »window; , r. ^ ■ ^ 

/* Sliding window. Input bytes are read into the second half of the window, 

* and move to the first half later to keep a dictionary of at least wSize 

* bytes. With this organization, matches are limited to a distance of 

* wSize-MAX„MATCH bytes, but this ensures that 10 is always 

* performed with a length multiple of the block size. Also, it limits 

* the window size to 64K, which is quite useful on MSDOS- 
« To do: use the user input buffer as sliding window. 



*/ 

ulg window_size; , 

y* Actual size of window: 2*wSize, except when the user input buffer 

* is directly used as sliding window. 
*/ 

Posf *prev; 

/* Link to older string with same hash index. To limit the size of this 
» array to 64K, this link is maintained only for the last 32K strings. 

* An index in this array is thus a window index modulo 32K. 
*/ 

Posf *head; /* Heads of the hash chains or MIL. */ 

uint ins„h; /* hash index of string to be inserted */ 

uint hash„size; /* number of elements in hash table */ 

uint hash„bits; y* 1 og 2 (hashes ize) 

uint hash^mask; /* hash„size-l */ 



uint hash^shift; 

/* Number of bits by which ins„h must be shifted at each input 

* step. It must be such that after MIN„MATCH steps, the oldest 

* byte no longer takes part in the hash key. that is: 

* hash^shift * MIN^MATCH >« hash^bits 
*/ 



long block_start; 

Window position at the be^innin^ of the current output block. Gets 
* negative when the window is moved backwards. 
«/ 



uInt matchjength; /* length of best match */ 

IPos prev match; previous match »/ 

int match available; /* set if previous match exists */ 

uint strstart; /* start of string to insert */ 

uint match^start; start of matching string */ 

uint lookahead; number of valid bytes ahead in window «/ 
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/* deflate.h — internal compression state 
* Copyright (C) 1995-1998 Jean-loup Gailly 

« For conditions of distribution and use, see copyright notice m zlib.h 
»/ 

/* WARNING; this file should *not* be used by applications. It is 
part of the implementation of the compression library and is 
subject to change. Applications should only use zlib.h. 

«/ 



/* @(#) $Id$ 

#ifndef „DEFLATE_H 
#define „DEFLAT£„H 

#include "zutil.h" 



* Internal compression state. 



#define LEHGIH„CODES 29 , ^ _ ^^^^^^ ^ 

number of length codes, not counting the special END„BLOCK code 

#define LITEHALS 256 

/» number of literal bytes 0..255 

#define L CODES (LITERALS+l+LENGIH^CODES) 

/* number of Literal or Length codes, inclixdinq the ENDJLOCK code */ 

.Refine DECODES 30 

f4f number of distance codes 

f^ikefine BL^CODES 19 

iyjf number of codes used to transfer the bit lengths */ 

yiiefine HEAP„SIZE ( 2*L j:OD£S+ 1 ) 
[J^ maximum heap size 

!#define MAX„BITS 15 

l4» All codes must not exceed MAXJITS bits 

'^#iefine INIT_STATE 42 
= Mefine BUSY_.STATE 113 
"fdefine FIHISH^STATE 666 
Stream status 

''7* Data structure describing a single value and its code string. */ 
typedef struct ct_data_s { 
union { 

ush freg; frequency count »/ 

ush code; /* bit string */ 

} fc; 
union { 

ush dad; z'* father node in Huffman tree *^ 

ush len; /* length of bit string */ 

} dl; 
} FAR ct_data; 

#define Freq fc.freg 
#defiRe Code fccode 
#define Dad dl .dad 
#def ine Len dl .len 

typedef struct static„tree_desc_s static„tree_desc; 

typedef struct tree„desc_s { 

ct_data *dYn tree; the dynamic tree */ 

int max„code; /* largest code with non zero frequency »/ 

static_tree„desc »stat_desc; /* the corresponding static tree »/ 
} FAR tree„desc; 
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int *errnum; 

{ 

char *m; 

gz_stream *s = ( gz_st ream* ) file; 

if (s == NULL) { 

*errnum - Z_STREAM_ERROR; 

return (const char* ) ERR_MSG ( Z_STREAM_ERROR) ; 

) 

*errnum = s->z_err; 

if (*errnum == Z_OK) return (const char*)""; 

m = (char*) (*errnum == Z_ERRNO ? zstrerror (errno) : s->stream 
.msg) ; 

if (m NULL II *m == '\0') m = (char* ) ERR_MSG (s->z_err) ; 
TRYFREE{s->m3g) ; 

g->insg = (char*) ALLOC ( St rlen(s->path) + strlen (m) +3); 

strcpy (s->msg, s->path); 

strcat (s->msg, ": "); 

strcat (s->msg, m) ; 

return (const char* ) s->msg; 
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if (c == EOF) s->z_err = Z_DATA_ERROR; 
X += ( (uLong)c)«24; 
return x; 



Flushes all pending output if necessary, closes the compresse 
d file 

and deallocates all the (de) compression state. 

V 

int ZEXPORT gzclose (file) 
gzFile file; 

{ 

int err; 

gz_stream *s = (gz_stream* ) f ile; 

if (s == NULL) return Z_STREAM__ERROR; 

if (s->mode == 'w' ) { 
#ifdef NO_DEFLATE 

return Z_STREAM_ERROR; 

err = do_flush (file, Z_FINISH) ; 

if (err != Z_OK) return destroy ( (gz_streain* ) file) ; 

putLong (s->file, s->crc); 

putLong (s->file, s->stream. total_in) ; 

#endif 
} 

return destroy ( (gz_stream* ) f ile) ; 

} 

Returns the error message for the last error which occured on 

the 

given compressed file, errnum is set to zlib error number. If a 

n 

error occured in the file system and not in the compression lib 
rary, 

errnum is set to Z_ERRNO and the application may consult errno 
to get the exact error code. 

*/ 

const char* ZEXPORT gzerror (file, errnum) 
gzFile file; 
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} 



Returns 1 when EOF has previously been detected reading the g 

iven 

input stream, otherwise zero. 

*/ 

int ZEXPORT gzeof (file) 
gzFile file; 

{ 

gz_stream *s = (gz_streain* ) f ile; 

return (s == NULL || s->mode != 'r') ? 0 : s->z_eof; 

} 



Outputs a long in LSB order to the given file 

*/ 

local void putLong (file, x) 
FILE *file; 
uLong x; 

{ 

int n; 

for (n = 0; n < 4; n++) { 

fputcl (int) (X & Oxff), file); 
X »= 8; 

} 

} 



Reads a long in LSB order from the given gz_stream. Sets z_err 
in case 

of error. 

*/ 

local uLong getLong (s) 
gz_stream *s; 

1 

uLong x == (uLong) get_byte (s ) ; 
int c; 

X += ( (uLong)get_byte (s) )«8; 
X += ( (uLong)get_byte(s) )«16; 
c = get_byte (s) ; 
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size gzreacl(file, S">outbuf/ (ulnt)size); 
if (size <= 0) return -IL; 
offset -= size; 

} 

return { z_of f_t ) S">stream, total_out ; 

} 



Rewinds input file. 

V 

int ZEXPORT gzrewind (file) 
gzFile file; 

{ 

gz_stream = (gz_stream^ ) f ile; 

if (s NULL M s->mode *r*) return -1; 

s->z__err = Z_OK; 
s->z_eof = 0; 
S"->stream.avail_in - 0; 
S">streain.next_in = s->inbuf; 
S">crc crc32(0L, Z_NULL, 0); 

if (s->startpos 0) { not a compressed file 
rewind (S">file) ; 
return 0; 

} 

(void) inf lateReset ( 6tS">stream) ; 

return fseek{s->f ile, s~>startposA SEEK_SET); 

} 



Returns the starting position for the next gzread or gzwrite 
on the 

given compressed file. This position represents a number of byt 
es in the 

uncompressed data stream, 

z_off_t ZEXPORT gztell (file) 
gzFile file; 

{ 

return gzseek(file, OL, SEEK_CUR) ; 
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zmeinzero (S">inbuf , Z_BUFSIZE) ; 

} 

while (offset > 0) { 

uint size Z_BUFSIZE; 

if (offset < Z_BUFSIZE) size = (ulnt ) of f set ; 

size ^ gzwrite (f ile, s->inbuf, size); 
if (size ===== 0) return -IL; 



offset ~= size; 

} 

return ( z_of f_t ) s->stream* total_in; 

#enciif 
} 

Rest of function is for reading only ^/ 

compute absolute position ^/ 
if (whence — SEEK_CUR) { 

offset s->stream. total_out; 

} 

if (offset < 0) return -IL; 



if (s*>transparent ) { 
map to fseek 
s->stream, avail_in = 0; 
s~>stream.next_in = S">inbuf; 

if (fseek(s->file, offset, SEEK_SET) < 0) return -IL; 

s->stream* total_in = s->stream* total_out = (uLong) of f set; 
return offset; 

} 

/'^ For a negative seek, rewind and use positive seek */ 
if ( (uLong) of f set >= s->stream* total_out ) { 

offset -= S">stream» total_out; 
} else if (gzrewind (f ile) < 0) { 

return -IL; 

} 

offset is now the number of bytes to skip, ^/ 

if (offset 1- 0 S">outbuf Z_NULL) { 
S">outbuf = ( Byte ^) ALLOC (Z^BUFS I ZE ) ; 

} 

while (offset > 0) { 

int size = Z__BUFSIZE; 

if (offset < Z BUFSIZE) size - (int) offset; 
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int err = do_flush (file, flush); 

if (err) return err; 
fflush(S">file) ; 

return S">z_err Z_STREAM_END ? Z__OK : s->z_err; 

} 

#endif NO__DEFLATE 

Sets the starting position for the next gzread or gzwrite on 
the given 

compressed file. The offset represents a number of bytes in the 
gzseek returns the resulting offset location as measured in 
bytes from 

the beginning of the uncompressed stream, or -1 in case of erro 

r . 

SEEK_END is not implemented, returns error. 

In this version of the library, gzseek can be extremely slow 

z__off__t ZEXPORT gzseek (file, offset, whence) 
gzFile file; 
z_off_t offset; 
int whence; 

{ 

gz^stream === {gz_stream^ ) f ile; 

if {s NULL I 1 whence — SEEK_END | | 

S">z_err Z_ERRNO I 1 S">z_err Z_DATA_ERROR) { 
return -IL; 

} 

if (s->mode 'w' ) { 
#ifdef NO_DEFLATE 

return -IL; 

^ e 1 s e 

if (whence == SEEK_SET) { 

offset -= s->stream. total_in; 

; 

if (offset < 0} return -IL; 

/* At this point, offset is the number of zero bytes to wr 

ite. */ 

if (s->inbuf == Z_NULL) { 

s->inbuf = (Byte* ) ALLOC (Z_BUFS I ZE ) ; /* for seeking */ 
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local int do_flush (file, flush) 
gzFile file; 
int flush; 

{ 

uint len; 
int done = 0; 

gz_stream *s = (gz_streain* ) f ile; 

if (g NULL 11 s->mode != 'w') return Z_STREAM_ERROR; 
s->stream.avail_in = 0; /* should be zero already anyway */ 

for ( ; ; ) { 

len = Z_BUFSIZE - s->stream. avail_out; 

if (len !- 0) { 

if ( (uInt) fwrite{s->outbuf , 1, len, s->file) != len) { 
s->z_err = Z_ERRNO; 
return Z_ERRNO; 

} 

s->stream.next_out = s->outbuf; 
s->stream.avail_out = Z_BUFSIZE; 

} 

if (done) break; 

s->z_err = deflate (& (s->stream) , flush); 

/* Ignore the second of two consecutive flushes: */ 

if (len == 0 && s->z_err == Z_BUF_ERROR) s->z_err = Z_OK; 

/* deflate has finished flushing only when it hasn't used 

up 

* all the available space in the output buffer: 
V 

done = (s->stream.avail_out != 0 I I s->z_err == Z_STREAM_E 

ND) ; 

if (s->z_err != Z_OK && s->z_err != Z_STREAM__END) break; 

} 

return s->z_err == Z_STREAM_END ? Z_OK : s->z_err; 

} 

int ZEXPORT gzflush (file, flush) 
gzFile file; 
int flush; 

{ 

gz_stream *s = (gz_stream* ) f ile; 
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if (len <= 0) return 0; 

return gzwrite (f ile, buf, len); 

} 

#endif 



Writes converted to an unsigned char, into the compressed 

file. 

gzputc returns the value that was written, or -1 in case of err 

or. 

^/ 

int ZEXPORT gzputc (file, c) 
gzFile file; 
int c; 

{ 

unsigned char cc = (unsigned char) c; required for big endi 
an systems ^/ 

return gzwrite (f ile, &cc, 1) 1 ? (int) cc : -1; 

} 



Writes the given null-terminated string to the compressed fi 
le, excluding 

the terminating null character. 

gzputs returns the number of characters written, or -1 in ca 
se of error. 
V 

int ZEXPORT gzputs (file, s) 
gzFile file; 
const char ^s; 

{ 

return gzwrite (file, (char^)s, (unsigned) strlen (s) ) ; 

} 



Flushes all pending output into the compressed file. The para 

meter 

flush is as in the deflate!) function. 
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int ZEXPORTVA gzprintf (gzFile file, const char ^format, args ^ 
/ ...) 

{ 

char buf [Z_PRINTF_BUFSIZE] ; 
va_list va; 
int len; 

va_start ( va, format ) ; 
#ifdef HAS_vsnprintf 

(void) vsnprintf (buf , si2eof(buf), format, va); 
#else 

(void) vsprintf (buf , format, va); 
#endif 

va_end (va) ; 

len = strlen(buf); some *sprintf don't return the nb of byt 
es written ^/ 

if (len <= 0) return 0; 

return gzwrite ( f ile, buf, (unsigned) len) ; 

} 

#else not ANSI C 

int ZEXPORTVA gzprintf (file, format, al, a2, a3, a4, a5, a6, a7, 
a8, a9, alO, 

all, al2, al3, al4, al5, al6, al7, al8, al9 

, a20) 

gzFile file; 

const char * format; 

int al, a2, a3, a4, a5, a6, a7, a8, a9, alO, 

all, al2, al3, al4, al5, al6, al7, al8, al9, a20; 

{ 

char buf [Z_PRINTF_BUFSIZE] ; 
int len; 

#ifdef HAS_snprintf 

snprintf {buf , sizeof(buf), format, al, a2, a3, a4, a5, a6, a7, 

a8 

a9, alO, all, al2, al3, al4, al5, al6, al7, al8, al9, 

a20) ; 
#else 

sprintf(buf, format, al, a2, a3, a4, a5, a6, a7, a8, 

a9, alO, all, al2, al3, al4, al5, al6, al7, al8, al9, 

a20) ; 
#endif 

len = strlen{buf); old sprintf doesn't return the nb of byt 
es written ^/ 
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gzwrite returns the number of bytes actually written (0 in case 
of error) . 
^/ 

int ZEXPORT gzwrite (file, buf, len) 
gzFile file; 
const voidp buf; 
unsigned len; 

I 

gz_stream ^s {gz_stream* ) f ile; 

if (s NULL II s->mode !- ^w') return Z_STREAM_ERROR; 

S">stream.next_in = (Bytef^)buf; 
s->stream.avail_in ^ len; 

while {s->streain* avail_in != 0) { 

if {s->stream,avail_out — 0) { 

s->streain«next_out - s->outbuf; 

if (f write (s->outbuf, 1, Z_BUFSIZE, s->file) !- Z_BUFS 

IZE) { 

S">2_err = Z_ERRNO; 
break; 

} 

S">stream,avail_out = Z_BUFSIZE; 

} 

s->z__err = deflate ( 6^ (s->stream) , Z_NO_FLUSH); 
if (s->z__err != Z_OK) break; 

} 

s->crc = crc32 (s->crc, (const Bytef *)buf, len); 
return (int) {len - s->stream. avail__in) ; 

} 



Converts^ formats, and writes the args to the compressed file 
under 

control of the format string, as in fprintf, gzprintf returns t 
he number of 

uncompressed bytes actually written (0 in case of error) • 

^/ 

lifdef STDC 
linclude <stdarg.h> 
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Reads one byte from the compressed file, gzgetc returns this 

byte 

or -1 in case of end of file or error. 

V 

int ZEXPORT gzgetc (file) 
gzFile file; 

{ 

unsigned char c; 

return gzread(file, &c, 1) 1 ? c : -1; 

1 



Reads bytes from the compressed file until len-1 characters 

are 

read^ or a newline character is read and transferred to buf, or 

an 

end"Of-file condition is encountered. The string is then termi 
nated 

with a null character, 

gzgets returns buf, or Z_NULL in case of error. 

The current implementation is not optimized at all. 

char ^ ZEXPORT gzgets (file, buf, len) 
gzFile file; 
char ^buf; 
int len; 

{ 

char *b = buf; 

if (buf — Z_NULL I I len <= 0) return Z__NULL; 

while (—"len > 0 gzread(file, buf, 1) 1 ^buf++ != '\n 

n ; 

^buf = *\0'; 

return b — buf len > 0 ? Z___NULL : b; 

} 



tifndef NO_DEFLATE 



Writes the given number of uncompressed bytes into the compre 
ssed file. 
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break; 

} 

} 

s->stream* next_in = s->inbuf; 

} 

s->z_err = inflate (& (s->stream) ^ Z_NO_FLUSH) ; 

if (s->z__err Z_STREM[_END) { 

Check CRC and original size ^/ 
s->crc ^ crc32 (s-">crc, start, (ulnt) (S">stream,next_ou 

t " start) ) ; 

start ^ S">stream,next_out; 

if (getLong{s) != s->crc) { 

s->z_err - Z_DATA_ERROR; 
} else { 

(void) getLong (s) ; 

The uncompressed length returned by above getlo 



ng ( ) may 
of 



^ be different from s->stream. total^out ) in case 

concatenated .gz files. Check for such files: 

check_header ( s ) ; 

if (s->z__err Z_OK) { 

uLong total_in = s->stream. total__in; 

uLong total_out = s~>stream. total_out ; 

inf lateReset (s->stream) ) ; 
s->stream, total___in = total_in; 
s->stream* total_out = total_out; 
S">crc = crc32(0L, Z^NULL, 0); 

} 



} 



} 

if {s->z_err != 2_0K | | s->z_eof ) break; 

} 

s->crc = crc32 (S"->crC/ start, {uint) {s->stream.next_out - star 

t)); 

return (int) (len - S">stream.avail__out ) ; 

} 
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MSDOS) 

if (s NULL II s->mode !- 'r') return Z_STREAM__ERROR; 

if (s->z__err — Z_DATA_ERROR M s->z_err — Z^ERRNO) return -1 

if (S">z_err Z_STREAM_END} return 0; EOF 

next_out {Byte^)buf; 
s->stream,next__out = (Bytef*)buf; 
s->stream» avail_out " len; 

while (s->stream,avail_out 0) { 

if (S">transparent) { 

Copy first the lookahead bytes: ^/ 
uint n = s->stream.avail_in; 

if (n > S">stream,avail_out ) n = s->stream.avail_out; 

if (n > 0) { 

zmemcpy (S">stream.next_out, s->streain* next_in^ n) ; 
next_out n; 

s->streain.next_out = next_out; 
s->stream.next_in +== n; 
S">stream.avail_out n; 
s->stream.avail_in -= n; 

} 

if {s->stream*avail_out > 0) { 

S">stream.avail_out -= f read (next__out , 1, s->strea 

m.avail^out, 

S">file) ; 

} 

len -= s->st ream. aval l___out; 
s->stream, total_in (uLong)len; 
s->stream. total_out (uLong)len; 
if (len 0) s->z_eof ^ 1; 
return (int)len; 

} 

if (s->streain.avail_in ===== 0 !s">z_eof} { 
errno ^ 0; 

s->stream.avail_in - fread(S">inbuf , 1, Z_BUFSIZE, s-> 

file) ; 

if (s->streain,avail_in === 0) { 
s->z_eof = 1; 
if (ferror { s*>f ile) ) { 
S">z err = Z ERRNO; 
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TRYFREE(s->msg) ; 

if (s->stream, state NULL) { 
if (s-'>mode 'w' ) { 
#ifdef NO_DEFLATE 

err - Z_STREAM_ERROR; 

#else 

err def lateEnd (& (s->stream) ) ; 

#endif 

} else if (s->mode ===== 'r') { 

err =^ inf lateEnd (5c (S">stream) ) ; 

} 

} 

if (s->file != NULL f close ( S">file) ) { 
#ifdef ESPIPE 

if (errno !== ESPIPE) fclose is broken for pipes in HP/U 

X ^/ 
#endif 

err = Z_ERRNO; 

} 

if (S">z_err < 0) err ^ s->2_err; 

TRYFREE(s->inbuf ) ; 
TRYFREE(s-^>outbuf ) ; 
TRYFREE(S">path) ; 
TRYFREE(s) ; 
return err; 

} 



Reads the given number of uncompressed bytes from the compres 
sed file. 

gzread returns the number of bytes actually read (0 for end of 
file) . 
^/ 

int ZEXPORT gzread (file, buf, len) 
gzFile file; 
voidp buf; 
unsigned len; 

{ 

gz_stream ^s = {gz_stream^ ) f ile; 

Bytef *start = (Bytef*)buf; starting point for crc computat 

ion 

Byte •^next_out; stream* next_out but not forced far (for 
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return; 

} 

} 

method = get_byte{s); 
flags = get_byte(s); 

if (method != Z_DEFLATED | I (flags & RESERVED) != 0) { 
s->2_err = Z_DATA_ERROR; 
return; 

} 

/* Discard time, xflags and OS code: */ 

for (len = 0; len < 6; len++) (void) get_byte (s) ; 

if ((flags & EXTRA_FIELD) != 0) { /* skip the extra field */ 
len = (ulnt)get_byte (s) ; 
len += ( (ulnt)get_byte(s) )«8; 

/* len is garbage if EOF but the loop below will quit anyw 

ay */ 

while (len— != 0 && get_byte(s) != EOF) ; 

} 

if ((flags & ORIG_NAME) != 0) { /* skip the original file name 

*/ 

while ((c = get_byte(s)) != 0 && c != EOF) ; 

} 

if ((flags & COMMENT) != 0) { /* skip the .gz file comment * 

/ 

while ((c = get_byte(s)) != 0 && c != EOF) ; 

} 

if ((flags & HEAD_CRC) != 0) { /* skip the header crc */ 
for (len = 0; len < 2; len++) (void) get_byte (s) ; 

} 

s->z_err = s->z_eof ? Z_DATA_ERROR : Z_OK; 

} 

* Cleanup then free the given gz_stream. Return a zlib error code 
Try freeing in the reverse order of allocations. 

V 

local int destroy (s) 
gz_stream *s; 

{ 

int err = Z_OK; 

if (!s) return Z STREAM ERROR; 
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if (s"->stream.avail_in ~ 0) { 
s->z__eof = 1; 

if (ferror (s->file) ) s->z_err - Z_ERRNO; 
return EOF; 

} 

s->streara.next_in = s->inbuf; 

} 

S'">streain, avail_in — ; 

return ^ (s->stream,next_in) 4-4-; 

} 



/ 



Check the gzip header of a gz^stream opened for reading. Set 
the stream 

mode to transparent if the gzip magic header is not present; s 
et s->err 

to Z_DATA_ERROR if the magic header is present but the rest of 
the header 

is incorrect, 

IN assertion: the stream s has already been created sucessfull 
s->stream.avail_in is zero for the first time, but may be n 

on-zero 

for concatenated .gz files. 

^/ 

local void check_header (s) 
gz_stream *s; 

{ 

int method; method byte 
int flags; flags byte ^/ 

uint len; 
int c; 

Check the gzip magic header ^/ 
for {len - 0; len < 2; len++) { 
c = get___byte (s) ; 
if (c gz_magic [len] ) { 

if (len 0) s->stream. avail_in-f+, s->stream.next_in- 

if (c !- EOF) { 

S">stream.avail_in-f4", s->stream.next_in — ; 

s->transparent === 1; 

} 

S">z__err - S">stream. avail___in !- 0 ? Z_OK : Z_STREAM_E 

ND; 
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return gz^open (name, mode, fd) ; 



^ Update the compression level and strategy 

int ZEXPORT gzsetparams (file, level, strategy) 
gzFile file; 
int level; 
int strategy; 

{ 

gz_stream ^s = (gz_stream^ ) f ile; 

if {s — NULL M s->mode !- 'w') return Z_STREAM_ERROR; 

Make room to allow flushing ^/ 
if (s->stream.avail_out ==0) { 

s->stream* next_out = s->outbuf; 

if (f write (s->outbuf, 1, Z__BUFSIZE, s->file) Z__BUFSIZE) 

{ 

S">z_err = Z_ERRNO; 

} 

s->stream.avail_out = Z_BUFSIZE; 

} 

return def lateParams {& (s->stream) , level, strategy); 



Read a byte from a gz_stream; update next_in and avail_in* Re 
turn EOF 

for end of file. 

IN assertion: the stream s has been sucessfully opened for read 
ing* 
^/ 

local int get_byte(s) 
gz^stream ^s; 

{ 

if (s->z_eof) return EOF; 
if (s-">stream.avail_in 0) { 
errno = 0; 

S">stream. avail in - f read { S">inbuf , 1, Z_BUFSIZE, s->file 
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agio [1] f 

Z^DEFLATED, 0 /^flags*/, 0,0,0,0 /^time*/, 0 /^xflags 

OS^CODE); 

s->startpos = lOL; 

We use lOL instead of ftell (s->f ile) to because ftell c 

auses an 

^ f flush on some systems. This version of the library doe 

sn't use 

^ startpos anyway in write mode, so this initialization i 

s not 

^ necessary, 
^/ 

} else { 

check_header (s) ; skip the .gz header ^/ 
s->startpos = (ftell (s->file) - s->stream.avail_in) ; 

} 

return (gzFile)s; 

} 

Opens a gzip (-gz) file for reading or writing. 

^/ 

gzFile ZEXPORT gzopen (path, mode) 
const char ^path; 
const char "^mode; 

{ 

return gz_open (path, mode, -1) ; 

} 



Associate a gzFile with the file descriptor fd* fd is not dup 
^ed here 

to mimic the behavio(u)r of fdopen. 

gzFile ZEXPORT gzdopen (fd, mode) 
int fd; 

const char ^mode; 

{ 

char name [20] ; 

if (fd < 0) return (gzFile) Z_NULL; 

sprintf (name, "<fd:%d>", fd) ; for debugging ^/ 
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if (s-">inode 'w' ) { 
#ifdef NO__DEFLATE 

err - Z_STREAM_ERROR; 

#else 

err = def latelnit2 (& (s->stream) , level, 

Z^DEFLATED, -MAX^WBITS, DEF_MEM_LEVEL, 

strategy) ; 

windowBits is passed < 0 to suppress zlib header ^/ 
S">stream.next_^out - s»>outbuf - (Byte^ ) ALLOC (Z^BUFSIZE) ; 

#endif 

if (err !- Z_OK | | s->outbuf Z^NULL) { 
return destroy (s), (gzFile) Z_NULL; 

} 

} else { 

s->stream.next_in - s->inbuf - (Byte^ ) ALLOC ( Z^BUFSIZE) ; 

err = inf latelnit2 ( & (s->streara) , -MAX^WBITS); 

windowBits is passed < 0 to tell that there is no zlib 

header. 

^ Note that in this case inflate ^requires^ an extra "dum 

my" byte 

^ after the compressed stream in order to complete decomp 
ression and 

^ return Z_STREAM_END. Here the gzip CRC32 ensures that 4 
bytes are 

^ present after the compressed stream, 
V 

if (err !- Z_OK | | S">inbuf — Z_NULL) { 
return destroy (s), (gzFile) Z_NULL; 

} 

} 

s->stream.avail_out - Z^BUFSIZE; 
errno = 0; 

s->file - f d < 0 ? F__OPEN(path, fmode) : (FILE* ) fdopen (fd, fmo 

de) ; 

if (s->file — NULL) { 

return destroy (s), (gzFile) Z_NULL; 

} 

if (s-->mode *w' ) { 

Write a very simple •gz header: 

V 

fprintf (s->f ile, "%c%c%c%c%c%c%c%c%c%c", gz__magic [0] , gz_m 
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int strategy Z_DEFAULT_STRATEGY; compression strategy 
char *p = ( char ^) mode ; 
gz_stream *s; 

char fmode[80]; copy of mode, without the compression level 

V 

char *m = fmode; 

if (!path II [mode] return Z_NULL; 

s = (gz_stream ALLOC (sizeof (gz^stream) ) ; 
if (!s) return Z_NULL; 

s->stream. zalloc = (alloc^func) 0; 
s->stream. zf ree = (free_func) 0; 
s->stream. opaque = (voidpf)O; 
s->stream.next_in = s->inbuf = Z__NULL; 
s->stream. next_out = s->outbuf = Z__NULL; 
S">3tream,avail__in s->stream.avail_out = 0; 
s->file = NULL; 
s->z_err = Z_OK; 
s->z_eof = 0; 

s->crc = crc32(0L, Z_NULL, 0); 
s*>msg = NULL; 
S">transparent = 0; 

S">path = ( char* ) ALLOC ( st rlen (path ) +1 ) ; 
if (s->path NULL) { 

return destroy (s), (gzFile) Z_NULL; 

} 

strcpy {s->path, path); /* do this early for debugging 

s-">mode = ' \ 0 ' ; 
do { 

if (*p ™ 'r') s->mode = 'r'; 

if (-^p ^w' II *p *a') s->mode = *wS- 

if {*p >- EcS. *p <= { 

level - *p - '0'; 
} else if (*p — 'fM { 

strategy - Z_FILTERED; 
} else if (*p 'hM { 

strategy - Z_HUFFMAN_ONLY; 
} else { 

*m-f+ = *p; copy the mode 

} 

} while (*p'f+ SlSl m != fmode 4- sizeof (fmode) ) ; 

if (s->mode — '\0') return destroy (s), (gzFile) Z_NULL; 
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int 


z err; 




error cooe lor lasu SLream operation / 


int 


z eof ; 


/ ^ 


seu xr ena or xiipuu / 


FILE 


*f lie; 


1^ 


♦gz riie ^/ 


Byte 


^inbuf ; 


/ 4- 


input buffer / 


Byte 


^outbuf ; 




output Dutrer ^/ 


uLong 


crc; 




crc32 of uncompressed data ^/ 


char 


*msg; 




error message ^ i 


char 


^path; 




pauu name ror aeDuggxiiy unxy / 


int 


transparent 


; 1 if input file is not a .gz file 


char 


mode; 




'w* or ^r' 


long 


startpos; 


/ 


* start of compressed data in file (header 


skipped) 








} gz_strearri; 








local gzFile 


gz_open 




OF ((const char *path, const char ^rnode, 


int fd) ) ; 








local int do_ 


_f lush 




OF((gzFile file, int flush)); 


local int 


get byte 




0F( (gz_stream ^s) ) ; 


local void 


check header OF ( (gz_stream ^s)); 


local int 


destroy 




0F( (gz stream ^s) ) ; 


local void 


putLong 




0F{(FILE ^file, uLong x) ) ; 


local uLong 


getLong 




0F{ (gz__stream ^s) ) ; 



Opens a gzip (.gz) file for reading or writing. The mode para 

meter 

is as in fopen ("rb" or "wb") • The file is given either by file 
descriptor 

or path name (if fd -1) - 

gz_open return NULL if the file could not be opened or if the 
re was 

insufficient memory to allocate the (de) compression state; errn 

o 

can be checked to distinguish the two cases (if errno is zero, 

the 

zlib error is Z_MEM_ERR0R) . 

^/ 

local gzFile gz_open (path, mode, fd) 
const char ^path; 
const char ^mode; 
int fd; 

{ 

int err; 

int level - Z DEFAULT COMPRESSION; compression level ^/ 



File: Work\CrtPrt\zlib\gzio.c 



Pg: 1 



/* gzio.c — 10 on .gz files 

* Copyright (C) 1995-1998 Jean-loup Gailly. 

* For conditions of distribution and use, see copyright notice in 

zlib.h 
* 

* Compile this file with -DNO_DEFLATE to avoid the compression co 
de. 

*/ 

/* @(#) $Id$ */ 
tinclude <stdio.h> 
#include "zutil.h" 

struct internal_state {int dummy;}; /* for buggy compilers */ 

#ifndef Z_BUFSIZE 

# ifdef MAXSEG_64K 

# define Z_BUFSIZE 4096 /* minimize memory usage for 16-bit DOS 
V 

# else 

# define Z_BUFSIZE 16384 

# endif 
#endif 

tifndef Z_PRINTF_BUFSIZE 

# define Z_PRINTF_BUFSIZE 4096 
#endif 

#define ALLOC (size) malloc(si2e) 
#define TRYFREE(p) {if (p) free(p);} 

static int gz_magic[2] = {Oxlf, OxBb}; /* gzip magic header */ 
/* gzip flag byte */ 

tdefine ASCII_FLAG 0x01 /* bit 0 set: file probably ascii text * 
/ 

#define HEAD_CRC 0x02 /* bit 1 set: header CRC present */ 
Idefine EXTRA_FIELD 0x04 /* bit 2 set: extra field present */ 
#define ORIG_NAME 0x08 /* bit 3 set: original file name present 
*/ 

tdefine COMMENT 0x10 /* bit 4 set: file comment present */ 

#define RESERVED OxEO /* bits 5.. 7: reserved */ 

typedef struct gz_stream { 
z stream stream; 
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int inf late„blocks„free(s, 2) 
inflate_biock3_statef *s; 
z„streamp z; 
{ 

inf late_blocks„reset (s, z, 2_HULL); 
ZFREE(z, s->wiRdaw); 
ZFREE(z, s->hufts); 
ZFREE(z, s); 

Tracev( (stderr, "inflate: blocks freedxn")); 
return 2_0R; 

} 



void inflate_set_dic:tionary(s, d, n) 

inf late„blo<^ks_stat0f *s; 

const Bytef *d; 

uint n; 

{ 

zmeimcpy(S''>wiiidow, n); 

s->read « s->write = s->window + n; 

} 



/* Returns true if inflate is currently at the end of a block generated 

* by Z_SWC__FI.USH or Z„FULL_FLUSH . 

* M assertion: s ZJ^WLL 
*/ 

,.int inf late_blocks_sync__point (s) 
tinf late„blocks_statef «s; 

ff^_ return s->rtiode LEHS; 
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2->msg = (char*) "invalid bit length repeat"; 
LEAVE 

c = c 16 ? s->sub. trees. blens[i - 1] : 0; 
do { 

s->sub. trees. blens[i++] * c; 
} while (--j); 
s->sub. trees. index ^ i; 

} 

} 

s->sub, trees, tb « Z_MLL; 

{ 

uint bl, bd; 
inflate^huft *ti , *td; 
in£late_codes_statef *c; 

bl * 9; /* must be <* 9 for iookahead assumptions */ 

M 5; /* must be <^ 9 for iookahead assumptions */ 

t = s^>sub. trees. table; 

t = inflate_trees_dynamic(257 + (t S= Oxlf), 1 + {(t >> 5) Oslf), 

s->sub, trees .blens^ Scbl, Scbd, Sctl, Sttd, 
s->hufts* 2); 

2FREE(z^ s->sub. trees. blens ) ; 

if (t I- 2_0K) 

{ 

if (t (uInt)Z_DATA_ERROR) 

s->mode - BAD; 
r - t; 
I LEAVE 

\ Tracev((stderr^ ^'inflate: trees okxn")); 

' if ((c - inflate„codes„new(bl, bd, tl, td, z)) 2_MJLL) 

^ { 

I r = Z„MEM.ERROR; 

; LEAVE 

: } 

^ s->sub. decode. codes - c; 

I } 

s->mode = CODES; 

case CODES: 

^ UPDATE 

I if ((r - inflate^codesCs. r)j f= Z„STREAMJE^sIB ) 

I return inf late_f iush(8^ t)v 

^ r = 2„0K; 

inflate„codes„free(s->suh, decode. codes, z); 

1 LOAD 

\ Tracev( (stderr. "inflate: codes end, Xlu total outvn", 

' z->total_out + (g >= s->read 7 q ~ s->read : 

(s->end " s->read) + (q * s->window) ) ) ) ; 

if (!s->last) 

{ 

s->mode - TYPE; 
break; 

} 

s->mode DRY; 
case DRY: 
FLUSH 

if (s->read s->write) 
LEAVE 

s->mode - DONEj 
case DONE: 

r - Z„STREAM„EHD; 

LEAVE 
case BAD: 

r - Z„DATA„ERROR; 

LEAVE 
default : 

r = 2„STREAM„ERR0R; 

LEAVE 

} 

} 
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if C(t Qslf) > 29 II ((t >> 5) & Oslf) > 29) 
{ 

s->mode « BAD; 

Z">msg = (char*) "too many length or distance symbols"; 

r - ZJATAJRROR; 

LEAVE 

} 

#endif 

t « 258 + (t Ok1£) + ((t >> 5) Sc OKlf); 

if ((s->sub. trees. blens « (uIntf*)ZALLOC(s, t, sizeof (ulnt) ) ) Z„MULL) 
{ 

r - Z„MEM„ERROR; 
LEAVE 

} 

DUMPBITS(14) 

s->sub. trees. indsK » 0; 

Tracev( {stderr, "inflate: table si2:es ok\n")); 

s->mode * BTREE; 
case BTREE: 

while {s->sub. trees. index < 4 + (S'->sub. trees. table >> 10)) 
{ 

is[EEDBITS(3) 

s->sub. trees. blens[border[s->sub. trees. indeK+-f-] 3 = (ulnt)b Sc 7; 
DUMFBITS(3) 

} 

while {s->sub. trees .index < 19) 

s->sub - trees . blens [border [s->sub . trees . inde^++ ] ] « 0 ; 
s->sub. trees, bb ==7; 

t " inflQte_trees_bits(s->sub, trees, blens* &s->sub .trees. bb, 
|3 Scs -> sub. trees. tb^ s->hufts^ s); 

,3 if (t i- Z„OK) 

ZFHEE(2, s->siib. trees. blens ) ; 
fU r - t; 

:.3 If (r Z„DATA_ERROR) 

s->mode = BAD; 
LEAVE 

fj s->sub. trees , index ==0; 

Tracev( (stderr, "inflate: bits tree ok\n")); 

s->mode « DTREE; 
Q case DTREE; 

^^tj while (t - s->sub. trees. table, 

c.s s->sub. trees .index < 258 + (t & Oxlf) + ((t >> 5J Oxlf)) 

{ 

i'- mflate^huft »h; 

n uint i, c; 

'-''^ t - s->sub. trees .bb; 

MEEDBITS(t) 

h s->sub. trees. tb + ((lalnt)b inf late_mask [t] ) ; 

t - h->bits; 

c « h->base; 

if (c < 16) 

{ 

DUMPBITSCt) 

s->stib. trees. blens[s->sub. trees. indes^+] ^ c; 

} 

else /* c 16. . 18 */ 
{ 

i c IS ? 7 : c - 14; 
j « c 18 ? 11 : 3; 
HEEDBITS(t + i) 
DUMPBITS(t) 

j +- (ulnt)b & inf late_mask[i3 ; 
DUHPBITS{i) 

i = s->sub. trees. index; 
t = s->sub -trees stable; 

if (i + j > 258 + (t & Oxlf) + ({t » 5) & Oxlf) M 
(c 16 i < 1)) 

{ 

ZFREE{2, s->sub. trees .blens) ; 
s->3!node - BAD; 
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s->last ? " (last)' 
DUMPBITS(3) 
t - k Sc 7; 
DUMPBITS(t) 
s->mode = LEisFS; 
break; 
case 1 : 

Tracev( (stderr, inflate: 

s->last ? " (last)' 

{ 

uint hi, bd; 

inflate huft *tl^ *td; 



/* 00 to byte boundary 

/* get length of stored block 

/* fixed »/ 

fixed codes block%s\n", 

"")); 



inflate„trees_fixed(Scbl, Scbd, Sttl, S^td, z); 

s->siib. decode -codes - inf late_codes„new(bI , bd, tl , td^ s); 

if (s->siib, decode. codes 2_lsIULL} 

{ 

r - 2 MEM„ERROR; 
LEAVE 



} 



} 



X* dynamic */ 
dynamic codes block/^sNn", 



/■» illegal 



DUMPBITS(3) 
s->inode = CODES; 
break ; 
case 2: 

Tracev( (stderr. "inflate: 

s->last ? " (last)" 
DUMPBITS(3) 
s->mode - TABLE; 
break ; 
case 3: 

DUMPBITS(3) 
s->mode « BAD; 

z->ms0 = (char*) "invalid block type"; 

r = Z„DATAJRROR; 

LEAVE 

} 

break ; 
case LE1^3S: 
MEEDBITS(32) 

if (arh] » 16) Sc Oxffff) l« (b & Oxffff)} 
{ 

s->mode BAD; 

2->msg * (char*) "invalid stored block lengths"; 

r - Z3ATA.ERR0R; 

LEAVE 

} 

s->sub.left = (ulnt)b & Oxffff; 



/* dump bits */ 

stored length ^ii\n", s->sub .left ) ) 
(s->last ? DRY : TYPE); 



b - k « 0; 

Tracev{ (stderr, "inflate: 
s->mode ^ s->sub.left ? STORED 
break; 
case STORED; 
if (n -= 0) 

LEAVE 
NEEDOUT 

t « s->sub.left; 
if (t > n) t - n; 
if (t > m) t « m; 
2meracpy(g, p^ t); 
p t; n t; 
g t; m t; 
if ((s->sub,left -= t) 0) 
break; 

Tracev( (stderr, "inflate: 

z->total„out + (q >- s->read ? q - s->read 
(s->end - s->read) + (q - S">window) ) ) ) ; 
s->mode ^ s->last ? DRY : TYPE; 
break; 
case TABLE: 
HEEDBITS{14) 

s->sub. trees. table - t ^ (ulnt)b & OKSfff; 
#ifndef PK21P_BUG„W0RKAR0IM) 



stored end, %lu total out\n". 
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if (s->inode BTREE \\ s->mode DTREE) 

ZFREE(z, s->sub. trees. biens) ; 
if (s->mode — CODES) 

i n f 1 at e„codes_f ree ( s - > sub , decode . codas , 2 ) ; 
s->mode! - TYPE; 
s->bitk - 0; 
s->bitb = 0; 

s->read = s->write « s->window; 
if (s->checkfn Z^NULL) 

2:->adler - s->check - (*s->chec:kfn) (OL. (const Bytef »)Z_.lsIULL, 0); 
Tracev( (stderr, "inflate: blocks resetxn" )) ; 

} 



inflate_bloc:^s„st5tef «inf late.blocks_new(2, w) 

z^streamp z; 

check_func c; 

uint w; 

{ 

inf late_blocks_stat^f *s; 

if ({s » (inflate_blocks_statef *)ZALLOC 

(z,l>si2eof (struct inflate„blocks„states))) Z_mJLL) 
rsiturn s; 
if ((s->hufts - 

(inflate„huft *)ZALL0C(2. sizeof (inf late„huft) , mm}) Z^NULL) 

{ 

ZFRE£(z, s); 
13 return Z_IILJLL; 

IT. if ((s->window ^ (Bytef *)ZALLOC(z, 1, w)) ZJ51JLL) 

V.l { 

rU 2FREE(z, s~>hufts); 
.3 ZFREE(z, s); 
J'"! return Z„i^IULL; 
} 

s->end - s->window + w; 
fl s->checkfn « c; 
s->mode = TYPE; 

Tracev( (stderr, "inflate: blocks allocated\n") ) ; 
C3 inflate_blocks„raset (s^ z, Z_KULL); 
return s; 

iJ 

Clnt inflate„blocks(s, z, r) 
-Unf late31e>cks„statef *s; 
'""f^streamp z; 
int r; 

uInt t; ^* temporary storage */ 

uLong b; /* bit buffer */ 

uInt k; /* bits in bit buffer 

Bytef *p; /* input data pointer */ 

uInt n; /* bytes available there */ 

Bytef *q; /* output window write pointer */ 

uInt m; /» bytes to end of window or read pointer 

/* copy input/output information to locals (UPDATE macro restores) «/ 
LOAD 

/» process input based on current state */ 

while (1) switch (s->2iiode) 

{ 

case TYPE: 
NEEDBITS(3) 
t * (ulnt)b Sc 7; 
s->last ^ t Sc I'r 
switch (t >> 1) 

^ case 0: stored 

Tracev((stderr, ^'inflate: stored block%sNn", 
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/* inf block. c interpret and process block types to last block 
« Copyright (C) 1995-1998 Mark Adler 

* For conditions of distribution and use, see copyright notice in 2lib,h 

#include "zutil.h" 
^includB "infblock.h" 
#inciude "inf trees, h" 
#include "inf codes. h" 
4^inclnde "infutil.h" 

struct inflate_codes_state {int dusimy;}; /* for buggy compilers »/ 

/* simplify the use of the inf late_.huft type with some defines 
#de£ine exop ??ord .what .EMp 
#define bits word .what .Bits 

/* Table for deflate from PKZIP's appnote .tst . */ 

local const uint border [] - { /* Order of the bit length code lengths */ 
16. 17, 18, 0, 8, 7, 9, 6, 10, 5, 11, 4, 12, 3, 13, 2, 14, 1, 15} 

/* 

Notes beyond the 1.93a appnote.tKt: 

1. Distance pointers never point before the beginning of the output 
stream. 

2. Distance pointers can point back across blocks, up to 32k away. 

3. There is an implied maximum of 7 bits for the bit length table and 
15 bits for the actual data. 

£3 4, If only one code exists, then it is encoded using one bit. (Zero 
would be more efficient, but perhaps a little confusing.) If two 
li codes exist, they are coded using one bit each (0 and 1). 

5. There is no way of sending zero distance codes--a dummy must be 
[iJ sent if there are none, (History: a pre 2.0 version of PRZIP would 

store blocks with no distance codes, but this was discovered to be 
1% too haarsh a criterion.) Valid only for 1.93a. 2.04c does allow 
ly 2ero distance codes, which is sent as one code of zero bits in 
'■'•^J length. 

n 6, There are up to 286 literal /length codes. Code 256 represents the 
''^^ end-of-block. Note however that the static length tree defines 
!^ 288 codes just to fill out the Huffman codes. Codes 286 and 287 
Cj cannot be used though, since there is no length base or extra bits 
'^uj defined for them, Similarily, there are up to 30 distance codes. 

However, static trees define 32 codes (all 5 bits) to fill out the 
Huffman codes, but the last two had better not show up in the data. 

7. Unzip can check dynamic Huffman blocks for complete code sets. 

r1 The exception is that a single code would not be complete (see #4) . 

8. The five bits following the block type is really the number of 
'^"^ literal codes sent minus 257. 

9. Length codes 8,16,16 are interpreted as 13 length codes of 8 bits 
(1+64-6). Therefore, to output three times the length, you output 
three codes (U14-1), whereas to output four times the same length, 
you only need two codes (1+3). Htnm. 

10. In the tree reconstruction algorithm. Code ^ Code + Increment 
only if BitLength(i) is not zero. (Pretty obvious.) 

11. Correction: 4 Bits: # of Bit Length codes - 4 (4-19) 

12. Note: length code 284 can represent 227-258, but length code 285 
really is 258, The last length deserves its own, short code 
since it gets used a lot m very redundant files. The length 
258 is special since 258 - 3 (the min match length) is 255. 

13. The literal /length and distance code bit lengths are read as a 
single stream of lengths. It is possible (and advantageous) for 
a repeat code (16, 17, or 18) to go across the boundary between 
the two sets of lengths. 

*/ 



void inf late„blocks_reset (s, z, c) 
inf late„blocks„statef *s; 
z„streamp z; 
uLongf *c; 
{ 

if (c Z^lEjJULL) 
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/* infblock.h — header to use inffolock.c 

* Copyrieht (C) 1995-1998 Mark Mler 

* For conditions of distribution and use, see copyright notice in zlib.h 
*/ 

/» WAKNIHG: this file should *not* be used by applications. It is 
part of the implementation of the compression library and is 
subject to change. Applications should only use zlib.h. 

«/ 

struct inf late„blocks„state; 

typedef struct inf late_blocks„state FAR inf late_blocks„statef ; 

extern inf late„blocks„statef * inf late_blocks„new 0F(( 
z_streamp 

check_func c, >'* check function 

uint w)); window size */ 

extern int inf late.blocks 0F(( 
inf late„biocks_statef », 
2_streaiap , 

int)); initial return code */ 

extern void inf late„blocks_reset 0F(( 
inflate„blocks„statef *, 
z_streamp , 

uLongf »)); /* check value on output »/ 

.extern int mf late„blocks_free 0F(( 
CJ inf late„blocks„statef 
^^3 2_streamp)); 

Jextem void inf late_set„dictionary 0F(( 
inf late„blocks_statef «s, 
const Bytef «d^ /* dictionary 
uInt n)); /* dictionary length */ 

'■yxtern mt inf late„blocks„sync„point 0F(( 
13 inf late„blocks_statef *s)); 
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OllTBYTE(c->sufo.lit) 
c->mode ^ START; 

oase WASH: /* o: got eob, j^ossifoly more output */ 

if (k > 7) return unused byte, if any */ 

^ Assert (k < 16, "inf iate^codes grabbed too many bytes") 
k ~« 8; 
n++; 

p— ; /* can alt^fays return one */ 

} 

FLUSH 

if (s->read 1= s->write) 

LEAVE 
c->mode = WD; 
case END: 

r - 2_STREAM„EHD; 
LEAVE 

case BADCODE: /* k: got error */ 

r - 2.DATA„ERR0R; 

LEAVE 
default: 

r - Z„STREAM„ERROR; 

LEAVE 

#ifdef NEED„DIIMHY„RE1URM ^ ^i.- *x 

return Z_STREAM„ERROR; /* Some dumb compilers complain without this */ 

#endif 

^'fpid inflate„codes„free(c, z) 
aiiflate„codes_statef »c; 
^C-Streamp 2; 

J J 2FREE(z, c); 

"1 Tracev/(stderr, "inflate: codes free\n")); 

1 
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break ; 

} 

if (e & 32) /* end of block */ 

{ 

Tracew( (stderr, "inflate: end of block\n")); 

c->mode ^ WASH; 

break; 

} 

c->mode BADCODE; /* invalid code */ 

z->msg « (char*) "invalid literal /length code"; 
r « Z.DATA„ERROR; 
LEAVE 

case LEl^IEXT: /* i: getting length extra (have base) »/ 

j ^ c->sub. copy .get; 
NEEDBITS(j) 

c->len (ulnt)b & inf late_mask [j ] ; 
DUMPBITS(j) 

C'->sub. code, need ^ c->dbits; 
c->sub. code. tree « c->dtree; 

Iracew( (stderr, "inflate: length %u\n", c->len}J; 

c->]iiode ^ DIST; 
case DIST; x» i: get distance nest */ 

j c->sub .code, need; 
NEEDBITS(j) 

t = c->sub. code. tree + ((ulnt)b inf late„mask{j ] ) ; 

DUMPBITS(t->bits) 

e » (uint) (t->esop) ; 

if (e Sc 16) /* distance 

{ 

13 c->sub. copy. get ^ 0 IS; 

c->sub.copy .dist « t~>base; 
:J c->mode - DISTEXT; 
Cn break; 

fiJ } 

"Z if ((e & 64) 0) /* next table 

n { 

Sv'r^ c->sub .code .need = e; 
'^^J c->sub. code. tree « t + t->base; 
break; 

} 

^ c->mode * BADCODE; /* invalid code */ 

13 z->msg ^ (char*) "invalid distance code"; 
;i r = 2„DATA ERROR; 
, LEAVE 

vJ case DISTEXT: /* i: getting distance extra */ 

l-i: j ^ c->sub. copy .get; 
NEEDBITS(j) 

Zi c->sub.copy.dist (ulnt)b inf late_inask[j ] ; 
O DUMPBITS{j) 

Tracevv( (stderr, ^'inflate: distance Zn\n'' , c-'>sub.copy ,dist) ) 

c->inode « COPY; 

case COPY: /* o: copying bytes in window, waiting for space */ 

#ifndef _TURBOC /» Turbo C bug for following expression */ 

f ^ (ulnt)(q - s->window} < c->sub .copy ,dist ? 

s~>end - (c->sub .copy.dist - (q - s->window) ) : 
q - c->sub. copy.dist; 

#else 

£ ^ q ^ c->sufo .copy.dist; 

if ((ulnt)(q - s-'>window) < c->sub .copy.dist) 

f « s->end - (c->sub. copy.dist - (uint) (q - s->window) ) ; 

#endif 

while (c->len) 
{ 

NEEDOUr 
OUTBYTE(*f++) 
if (f s->end) 
f - s->window; 
c->len — ; 

} 

c->mode « START; 
break ; 

case LIT: o: got literals waiting for output space */ 

HEEDOUT 
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Tracev({stderr, "inflate; codes new\n"n: 

} 

return c; 

} 



int inflate_codes(s, z, r) 
inflate„blooks„statef »s; 
z„streamp z; 
int r; 
{ 

^l^t j ; temporary storage »/ 

inflatejuft *t; y'* temporary pointer */ 

^3i3it e; /■* extra bits or operation */ 

uLong b; /* bit buffer */ 

^l3at k; /* bits in bit buffer 

Bytef *p; /* input data pointer 

^^^^ bytes available there */ 

Bytef *q; output window write pointer 

uint m; /* bytes to end of window or read pointer 

Bytef *f ; pointer to copy strings from */ 

inflate_codes„statef *c s->sub .decode. codes; /« codes state *^ 

/* copy input/output information to locals (UPDATE macro restores) */ 
LOAD ^ 

/* process input and output based on current state 

while (1) switch (c->mode) 
f4 ^* waiting for "i:'*=input, "o:"«output. "k: "-nothing */ 

--^ case START: /* k: set up for LEH */ 

#£Fndef SLOW 

fn if (m >- 258 ScSc n >- 10) 

{ 

^ ; UPDATE 

j3 ^^^^i^^late„fast(c->lbits, c->dbits, c->ltree, c->dtree, z); 

if (r i= Z_OK) 

J? { 

c->mode - r Z^STREAMJKTD ? WASH : BADCODE; 
break; 

H >' 

mdif /* I SLOW */ 
|J c->sub. code, need « c->lbits; 
il o->sub. code, tree = c->ltree; 
IZ c-'>mod© = LElsf; 

O case LEN: y^* i: get length/1 iteral/eob next »/ 

13 3 ' c-> sub, code. need; 
NEEDBITS(j) 

t - c->sub, code, tree + ((ulnt)b & inf late.mask [j ] ) ; 

DUMPBITS(t->bits) 

e « (ulnt) (t->es:opj ; 

if (e 0) /* literal */ 

{ 

c->sub.lit = t->base; 

Tracew{(stderr. t->base >« 0x20 &Sc t">base < 02?7f ? 
"inflate: literal 'Xc'\n" : 

"inflate: literal QzZQ2x\n" . t->base)); 

c->mode = LIT; 

break; 

} 

xf (e 16) /* length */ 

c-> sub. copy. get - e & 15; 
C">len « t->base; 
c->mode - LENEXI; 
break ; 

} 

If ((e & 64) 0) neKt table «/ 

c->sub , code , need - e; 

c->sub. code, tree = t + t->base; 
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/* inf codes. c — process literals and length/distance pairs 
* Copyright (C) 1995-1998 Mark Adler 

t/^^ '^^^^^'^^^^^ distribution and use, see copyright notice in zlib.h 

#include "zutil.h" 
#include "inf trees. h*' 
#include "infblock .h" 
#include "inf codes. h" 
#include "infutil.h" 
#include "inffast.h" 

/* simplify the use of the inflate„huft type with some defines */ 
#define esrop word.what .Exop 
#defiae bits word, what .Bits 



START, 


/» 


X 


LEN, 


/» 


i 




/» 


i 


DIST, 




i 


DISTEXT, 




i 


COPY, 




0 


LIT, 


/« 


0 


WASH, 


/* 


o 


END, 




K 


BADCODE} 




K 



inf iate„codes_mode; 



=input, "o:"=^output, "x : "^nothing */- 



/* waiting for "i : 
set up for LEN */' 
get length/1 iters 1/eob next */ 
getting length extra (have base) »/ 
get distance next «/ 
getting distance estra «/ 

copying bytes in window, waiting for space «/ 
got literal, waiting for output space */ 
got eob, possibly still output waiting */ 
got eofo and all data flushed */ 
got error »/ 



4% inflate codes private state */ 
s^uct inf late„codes_state { 



fff* mode */ 

^^fiif late„codes jaode mode; 



/* current inf late_codes mode «/ 



i>* mode dependent information «/ 
^Jilnt len; 
Jjinion { 
^J: struct { 

;j inflate„huft *tree; /* pointer into tree */ 

J uint need; bits needed */ 

} code; /* if LEN or DIST, where in tree */ 

uInt lit; /* if LIT, literal */ 

'"4 struct { 

A uInt get; /* bits to get for extra «/ 

uInt dist; /» distance back to copy from */ 

:^ } copy; /* If EXT or COPY, where and how much */ 

;4 sub; /» submode */ 

/* mode independent information */ 

Byte Ibits; /* Itree bits decoded per branch */ 

Byte dbits; /« dtree bits decoder per branch */ 

infiate_huft *ltree; /* literal/length/eob tree */ 

inflate_huft »dtree; /* distance tree »/ 



inflate_codes„statef *inf late_codes„new(bl , bd, tl, td, zl 
uInt hi, bd; 
inflate_huft *ti; 

inflate_huft «td; /* need separate declaration for Borland C+-i- */ 

2_streamp z; 

{ 

inf late_codes„statef *c; 

if ((c (inf late_„codes_statef *) 

^ ZALLOC(z,l,sizeof (struct inf late„codes„state) ) ) l« 2„lsnjLL) 

c->mode = START; 
c->lbits ^ (Byte)bl; 
c->dbits - (Byte)bd; 
c->ltree = tl; 
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} 

} 

else if (e & 32) 
{ 

Tracew( (std^rr. "inflate: * end of block\n")); 

UbJGRAB 

UPDATE 

return Z STREAM ElsTD; 

} 

else 
{ 

z->msg * (char*) "invalid literal /length code"; 

UNGRAB 

UPDATE 

return Z„DATA_ERROR ; 

} 

} while (1); 
} while (m >« 258 n >- 10); 

/* not enough input or output — restore pointers and return */ 

UNGRAB 

UPDATE 

return 2_0K; 

} 
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/« get extra bits for length */ 
e Sc= 15; 

c ^ t->base ^ ((ulnt)b & in£late_mask [e] ) ; 
DUMPBITSCe) 

Tracew((stderr, 'inflate: » length %u\n", c)); 

/* decode distance base of block to copy */ 
GRABBITS(15) ; /* max bits for distance code */ 

e ^ (t « td + {(ulnt)b Sc ffid))->exop; 
do { 

DUMPBITS(t->bits) 
if (e Sc 16) 

/« get esstra bits to add to distance base */ 
e 15; 

GRABBITS(e) /* get extra bits (up to 13) */ 

d = t->base -i- ((ulnt)b & inf late_inask[e] ) ; 
DUMPBITS(e) 

Tracew{(stderr, "inflate: * distance %u\n". d)); 

/» do the copy */ 
m -= c; 

if ({ulnt)(g - s->window) >« d) offset before dest 

{ /« just copy 

r « q - d; 

*q++ « ^r^-i-; a — ; minimum count is three, */ 

«q4.+ = »is-+; c — ; /* so unroll loop a little */ 

else else offset after destination */ 
{ 

e « d - (ulnt)(q - s->window); bytes from offset to end *^ 

r s-'>end - e; /* pointer to offset »/ 

if (c > e) /* if source crosses, */ 

^ c e; copy to end of window */ 

do { 

»q++ « »r+-f; 
} while (--e) ; 

r ^ s->window; /* copy rest from start of window */ 

} 

do { copy all or what's left */ 

»q4.+ ^ *r++; 
} while ( — c); 
break; 

} 

else if ((e Sc S4) 0) 
{ 

t t->base; 

e = {t ((ulnt)b S: inf late^mask [e] ) ) ->eKop; 

} 

else 

z->msg = (char*) "invalid distance code"; 

UNGRAB 

UPDATE 

return Z.DATA.ERROR; 

} 

} while (1) ; 
break ; 

} 

if ((e & 64) 0) 
{ 

t *^ ~ t~v^base * 

if ((e = (t ((ulnt)b & inflate_mask[e]))->eKop) — 0) 
{ 

DUMPBITS(t->bits) 

Tracew((stderr, t->base 0k20 Sc& t->base < 0x7f ? 
"inflate: * literal '%c'\n" : 

"inflate: * literal Os?£025S\n'^ t->base)); 

*q4-+ ^ (Byte)t->base; 

m--; 

break ; 
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inffast.c — process literals and length/distance pairs fast 

* Copyright (C) 1995-1998 Mark Adler 

* For conditions of distribution and use, see copyright notice m slib.h 
«/ 



#include *'zutil.h" 
#include "inftrees.h" 
^include "infblock.h" 
#include "inf codes, h" 
#include "infutil.h" 
#include "inffast.h" 

struct inflate„codes_state {int dunimy;}; /* for buggy compilers */ 

/« simplify the use of the xnf late^h^^ft type with some defines */ 
#define exop word .what .EKOp 
#define bits word .what .Bits 

/* macros for bit input with no checking and for returning unused bytes */ 
#deflne GRABBITS(3) {while(k< (j ) ) {bl (uLong)HEKIBYrE)«k;k+«8;}} 
#define IMGRAB {c-2->avail„in-n;c« (k>>3) <c?k>>3:c;n+-c;p— c;k-=c<<3; } 

/* Called with number of bytes left to write in window at least 258 
(the maKimum string length) and number of input bytes available 
at least ten. The ten bytes are sis bytes for the longest length/ 
distance pair plus four bytes for overloading the bit buffer. */ 



int inflate_fast(bl. 
,.ulnt bl, bd; 
l2lnflate„huft *tl ; 
tSnflate^huft «td; /» 
finf late_blocks_statef 

•^3 inflate^huft »t; 
|_j uint e;. 
r", uLong b; 
'''"j uInt k; 
C3 Bytef »p; 

uInt n; 
Jn:. Bytef *q; 

uInt m; 
""J uInt ml; 
|;j uInt md; 

ulxit c; 

uInt d; 
f3 Bytef »r; 



bd, tU td, s, z) 



need separate declaration for Borland C+-f */ 
*s; 



/* temporary pointer «/ 

X* extra bits or operation */ 

/* bit buffer */ 

/* bits in bit buffer 

/* input data pointer */ 

bytes available there */ 
/* output window write pointer 
/* bytes to end of window or read pointer */ 
/* mask for literal/length tree */ 
/* mask for distance tree */ 
/* bytes to copy 

/« distance back to copy from */ 
/* copy source pointer */ 



/* load input, output, bit values */ 
LOAD 



/* initialize masks 
ml » infiate„mask[bl] ; 
md « inflate„mask[bd] ; 

do until not enough input or output space for fast loop */ 
{ /» assume called with m >= 258 n >= 10 

/* get literal/length code «/ 

GRABBITB(20) raax bits for literal /length code */ 

if {(e - (t « tl + ((ulnt)b St ml))->eKop} 0) 

{ 

DIMPBITS(t->bits) 

Tracew((stderr, t->base 0x20 8<& t->base < 0x7f ? 
"inflate: * literal '5^c*\n" : 

"inflate; * literal 0x^02x\n", t->base)); 

»q++ ^ (Byte)t->base; 

m--; 

continue; 

} 

do { 

DUMPBm(t->bits) 

if (e S= 18) 

{ 
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/* inffast.h — header to use inffast.c 

* Copyrisht (C) 1995-1998 Mark Adler 

* For conditions of distribution and use^, see copyright notice in zlib.h 
»/ 

WARNIl^G: this file should *not* be used by applications. It is 
part of the implementation of the compression library and is 
subject to change. Applications should only use zlib.h. 

extern int inflate^fast 0F(( 
uint, 
ulnt^ 

inflate_huft *. 
inflate^huft 

inf late„blofCks_.statef *^ 
2„streamp ) ) ; 
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{{{80, 5}}, 2}, {{{37, 5}}, 385}, {{{83, 5}}, 25}, {{{91, 5}}, 6145}, 
{{{81, 5}}, 7}, {{{39,5}}, 1537}, {{{85,5}}, 97}, {{{93,5}},24577}, 
{{{80,5}},4}, {{{88, 5}}, 769}, {{{84,5}}, 49}, {{{92,5}}, 12289}, 
{{{82,5}}, 13}, {{{90, 5}}, 3073}, {{{86,5}}, 193}, {{{192, 5}}, 24577} 
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{{{34, 7}}, 99}, {{{0,8}}, 127}, {{{0,8}}, 63}, {{{0,9}}, 222}, 
{{{82,7}}, 27}, {{{0,8}}, lU}, {{{0,8}}, 47}, {{{0,9}}, 190}, 
{{{0,8}}, 15}, {{{0,8}}, 143}, {{{0,8}}, 79}, {{{0,9}},254}, 
{{{96, 7}}, 256}, {{{0,8}}, 80}, {{{0,8}}, 16}, {{{84,8}}, 115}, 
{{{82, 7}}, 31}, {{{0,8}}, 112}, {{{0,8}}, 48}, {{{0,9}}, 193}, 
{{{80,7}}, 10}, {{{0,8}}, 96}, {{{0,8}}, 32}, {{{0,9}}, 161}, 
{{{0,8}},0}, {{{0,6}}, 128}, {{{0,8}}, 64}, {{{0,9}}, 225}, 
{{{80,7}},6}, {{{0,8}}, 88}, {{{0,8}}, 24}, {{{0,9}}, 145}, 
{{{83, 7}}. 59}, {{{0,8}}, 120}, {{{0,8}}, 56}, {{{0,9}}, 209}, 
{{{81,7}}, 17}, {{{0,8}}, 104}, {{{0,8}}, 40}, {{{0,9}}, 177}, 
{{{0,8}}, 8}, {{{0,8}},136}, {{{0,8}}, 72}, {{{0,9}}, 241}, 
{{{30,7}},4}, {{{0,8}}, 84}, {{{0,8}}, 20}, {{{85,8}},227}, 
{{{83, 7}}, 43}, {{{0,8}}, 116}, {{{0,8}}. 52}, {{{0,9}}, 201}, 
{{{81,7}}, 13}, {{{0,8}}, 100}, {{{0,8}},36}, {{{0,9}}, 169}, 
{{{0,8}}, 4}, {{{0,8}}, 132}, {{{0,8}}, 68}, {{{0,9}}, 233}, 
{{{80, 7}}, 8}, {{{0,8}}, 92}, {{{0,8}}, 28}, {{{0,9}}, 153}, 
{{{84, 7}}, 83}, {{{0,8}}, 124}, {{{0,6}}, 60}, {{{0,9}}, 217}, 
{{{82,7}},23}, {{{0,8}}, 108}, {{{0,8}>,44}, {{{0,9}}, 185}, 
{{{0,8}}, 12}, {{{0,8}}, 140}, {{{0,8}},75}, {{{0,9}}, 249}, 
{{{80, 7}}, 3}, {{{0,8}}, 82}, {{{0,8}}, 18}, {{{85, 8}}, 163}, 
{{{83, 7}}, 35}, {{{0,8}}, 114}, {{{0,8}}, 50}, {{{0,9}}, 197}, 
{{{81, 7}}, 11}, {{{0,8}},98}, {{{0,8}}, 34}, {{{0,9}}, 165}, 
{{{0,8}}, 2}, {{{0,8}}, 130}, {{{0,8}}, 66}, {{{0,9}}, 229}, 
{{{80, 7}}, 7}, {{{0,8}}, 90}, {{{0,8}}, 26}, {{{0,9}}, 149}, 
{{{84, 7}}, 67}, {{{0,3}}, 122}, {{{0,8}}, 58}, {{{0,9}}, 213}, 
{{{62. 7}}, 19}, {{{0,8}}, 106}, {{{0,8}}, 42}, {{{0,9}}, 181}, 
{{{0,8}}, 10}, {{{0,8}}, 138}, {{{0,8}}, 74}, {{{0,9}}, 245}, 
{{{80, 7}}, 5}, {{{0,8}}, 86}, {{{0,8}}, 22}, {{{ 192,8}}, 0}, 
{{{83,7}},51}, {{{0,8}}, 118}, {{{0,8}}, 54}, {{{0,9}}, 205}, 
=1 {{{81,7}}, 15}, {{{0,8}}, 102}. {{{0,8}}, 38}, {{{0,9}}, 173}, 
; {{{0-8}}, 6}, {{{0,8}}, 134}, {{{0,8}}, 70}, {{{0,9}}, 237}, 
J {{{80, 7}}, 9}, {{{0,8}}, 94}, {{{0,8}}, 30}, {{{0,9}}, 157}, 
n {{{84, 7}}, 99}, {{{0,8}}, 126}, {{{0,8}}, 62}, {{{0,9}}, 221}, 
n {{{82, 7}}, 27}, {{{0,8}}, 110}, {{{0,8}}, 46}, {{{0,9}}, 189}, 
: {{{0,8}}. 14}, {{{0,8}}, 142}, {{{0,8}}, 78}, {{{0,9}}, 253}. 

{{{96, 7}}, 256}. {{{0,8}}, 81}, {{{0,8}}, 17}, {{{85,8}}, 131}, 
J {{{82, 7}}, 31}, {{{0,8}}, 113}, {{{0,8}}, 49}, {{{0,9}}, 195}, 
J {{{80, 7}}, 10}, {{{0,8}}, 97}, {{{0,8}}, 33}, {{{0,9}}, 163}, 
Z. {{{0,8}}, 1}, {{{0,8}}, 129}, {{{0,8}},65}, {{{0,9}}, 227}, 
- {{{80, 7}}, 6}, {{{0,8}}, 89}, {{{0,8}}, 25}, {{{0,9}}, 147}, 

{{{33,7}},59}, {{{0,8}}, 121}, {{{0,8}}, 57}, {{{0,9}}, 211}, 
1 {{{81, 7}}, 17}, {{{0,8}}. 105}, {{{0,8}}, 41}, {{{0,9}}, 173}, 
1 {{{0,8}}, 9}, {{{0,8}}, 137}, {{{0,8}}, 73}, {{{0,9}}, 243}, 
^ {{{80, 7}}, 4}. {{{0.8}}, 85}, {{{0,8}}, 21}, {{{80, 8}}, 258}, 
y {{{83, 7}}, 43}, {{{0,8}}, 117}, {{{0,8}}. 53}. {{{0,9}}, 203}, 
* {{{81, 7}}, 13}, {{{0,8}}, 101}, {{{0,8}}, 37}, {{{0,9}}, 171}, 

{{{0,8}}, 5}, {{{0,8}}, 133}. {{{0,8}}, 69}, {{{0,9}}, 235}, 
; {{{30, 7}}, 8}, {{{0,8}}, 93}, {{{0,8}}, 29}, {{{0,9}}, 155}. 
J {{{84, 7}}, 83}. {{{0,8}}, 125}. {{{0,8}}, 61}, {{{0,9}}, 219}, 
{{{82, 7}}, 23}, {{{0,8}}, 109}, {{{0,8}}, 45}, {{{0,9}}, 187}, 
{{{0,8}}, 13}, {{{0.8}}, 141}, {{{0,8}}. 77}, {{{0,9}}, 251}, 
{{{80.7}}, 3}. {{{0,8}}, 83}. {{{0,8}}. 19}. {{{35.8}}, 195}, 
{{{83, 7}}. 35}. {{{0,8}}, 115}. {{{0,8}}, 51}, {{{0,9}}, 199}. 
{{{81, 7}}, 11}, {{{0,8}}, 99}, {{{0,8}}. 35}. {{{0.9}}. 167}, 
{{{0,8}}. 3}, {{{0,8}}, 131}, {{{0,8}}, 67}, {{{0,9}}. 231}, 
{{{80, 7}}, 7}, {{{0,8}}, 91}, {{{0,8}}, 27}, {{{0,9}}, 151}, 
{{{84. 7}}, 67}, {{{0,8}}, 123}, {{{0.8}}, 59}. {{{0,9}}, 215}, 
{{{82, 7}}, 19}, {{{0,8}}, 107}, {{{0,8}}, 43}, {{{0,9}}, 183}, 
{{{0.8}}, 11}. {{{0,8}}, 139}, {{{0,8}}, 75}, {{{0,9}}. 247}, 
{{{80. 7}}. 5}. {{{0,8}}, 87}, {{{0,8}}, 23}. {{{ 192,8}}, 0}, 
{{{83, 7}}. 51}. {{{0,8}}, 119}, {{{0,8}}, 55}, {{{0,9}}, 207}, 
{{{81, 7}}, 15}. {{{0.8}}. 103}, {{{0.8}}, 39}, {{{0,9}}, 175}, 
{{{0,8}}, 7}, {{{0,8}}, 135}, {{{0,8}}, 71}. {{{0,9}}. 239}, 
{{{80, 7}}. 9}. {{{0.8}}, 95}, {{{0,8}}, 31}, {{{0,9}}. 159}, 
{{{84, 7}}, 99}, {{{0,8}}, 127}, {{{0,8}}, 63}, {{{0,9}}, 223}, 
{{{82, 7}}. 27}. {{{0,8}}, 111}, {{{0,8}}, 47}, {{{0,9}}, 191}, 
_{{{0,8}},15}, {{{0,8}}, 143}, {{{0,8}}, 79}, {{{0,9}}. 255} 

local inflate_huft fiKsd td[] - { 

{{{80,5}}.!}, {{{87.5}}, 257}, {{{83,5}}, 17}, {{{91, 5}}, 4097}, 
{{{81, 5}}, 5}, {{{89,5}}, 1025}. {{{85, 5}}. 65}. {{{93,5}}. 16385}. 
{{{80, 5}}. 3}. {{{88, 5}}. 513}, {{{84, 5}}. 33}, {{{92, 5}}, 8193}, 
{{{32, 5}}, 9}, {{{90,5}}, 2049}, {{{86.5}}. 129}. {{{192. 5}}, 24577}. 
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/* inffixed.h — table for decoding fixed codes 
* Generated automatically by the maketree.c program 
*/ 

/« WARNING: this file should »not« be used by applications. It 
part of the implementation of the compression library and is 
subject to change. Applications should only use zlib.h. 



local uint fixed_bl - 9; 
local uInt fised_bd = 5; 
local inflate_huft fixed tl[] 

{{{96, 7}}, 256}, {{{0,8}}, 80} 
{{{82,7}}, 31}, {{{0,8}}, 112} 
{{{80,7}}, 10}, {{{0,8}},96} 
{{{0,8}}, 0}, {{{0,8}}, 128}, 
{{{80, 7}}, 6}, {{{0,8}}, 88}, 
{{{83. 7}}, 59}, {{{0,8}}, 120} 
{{{81, 7}}, 17}, {{{0,3}}, 104} 
{{{0,8}}, 8}, {{{0,8}}, 136}, 
{{{80, 7}}, 4}, {{{0,8}}, 84}, 
{{{33, 7}}, 43}, {{{0,8}}, 116} 
{{{81, 7}}, 13}, {{{0,8}}, 100} 
{{{0.8}}, 4}, {{{0,8}},132}, 
{{{80, 7}}, 8}, {{{0,8}}, 92}, 
{{{84, 7}}, 83}, {{{0,8}}, 124} 
{{{82,7}}, 23}, {{{0,8}}, 108} 
{{{0,8}}, 12}, {{{0,8}}, 140}, 
{{{80,7}}, 3}, {{{0,8}}, 82}, 
1 {{{83, 7}}, 35}, {{{0,8}}, 114} 
= {{{81,7}}, 11}, {{{0,8}}, 98}, 
'i {{{0,8}}, 2}, {{{0,8}}, 130}, 
ri {{{80, 7}}, 7}, {{{0,8}}, 90}, 
Ij {{{34, 7}}, 67}, {{{0,9}}, 122} 
"h {{{82,7}}, 19}, {{{0,3}}, 106} 
'= {{{0,8}}, 10}, {{{0,8}}, 138}, 
y {{{80,7}}, 5}, {{{0,8}}, 86}, 
J {{{83, 7}}, 51}, {{{0,8}}, 118} 
4 {{{81. 7}}, 15}. {{{0,8}}, 102} 
= {{{0,8}}, 6}, {{{0,8}}, 134}, 
{{{80,7}},9}, {{{0,8}}, 94}, 
:j {{{84, 7}}, 99}, {{{0,8}}, 126} 
1 {{{82, 7}}, 27}, {{{0,8}}, 110} 
1 {{{0,8}}, 14}, {{{0,8}}, 142}, 
U {{{96, 7}}, 256}, {{{0,8}},ei} 
=1= {{{82, 7}}, 31}, {{{0,8}}, 113} 
■=i {{{80, 7}}, 10}, {{{0,8}},97}, 
{{{0,8}}, 1}, {{{0,8}}, 129}, 
{{{80, 7}}, 6}, {{{0,8}}, 89}, 
{{{83, 7}}, 59}, {{{0,8}}, 121} 
{{{81, 7}}, 17}, {{{0,8}}, 105} 
{{{0,8}}, 9}, {{{0,8}}, 137}, 
{{{80, 7}}, 4}, {{{0,8}}, 85}, 
{{{83, 7}}, 43}, {{{0,8}}, 117} 
{{{61,7}}, 13}, {{{0,8}}, 101} 
{{{0,8}}, 5}, {{{0,8}}, 133}, 
{{{80, 7}}, 8}, {{{0,8}}, 93}, 
{{{84, 7}}, 83}, {{{0,3}}, 125} 
{{{82,7}}, 23}, {{{0,8}}, 109} 
{{{0,8}}, 13}, {{{0,8}}, 141}, 
{{{80, 7}}, 3}, {{{0,8}}, 83}, 
{{{83, 7}}, 35}, {{{0,8}}, 115} 
{{{81, 7}}, 11}, {{{0,3}}, 99}, 
{{{0,8}}, 3}, {{{0,8}}, 131}, 
{{{80, 7}}, 7}, {{{0,8}}, 91}, 
{{{84, 7}}, 67}, {{{0,8}}, 123} 
{{{82, 7}}, 19}, {{{0,8}}, 107} 
{{{0,8}}, 11}, {{{0,8}}, 139}, 
{{{80,7}},5}, {{{0,8}}, 87}, 
{{{83,7}},51}, {{{0,3}}, 119} 
{{{81,7}}, 15}, {{{0,B}},103} 
{{{0.8}}, 7}, {{{0,8}}, 135}, 
{{{80, 7}}, 9}, {{{0,8}}, 95}, 



{ 

, {{{0,8}}, 16}, {{{84,0}}, 115}. 
' {{{0,8}}, 48}, {{{0,9}}, 192}, 

{{{0,8}}, 32}, {{{0,9}}, 160}, 
{{{0,8}}, 64}, {{{0,9}}, 224}, 
{{{0,8}}, 24}, {{{0,9}}, 144}, 
, {{{0,8}}, 56}, {{{0,9}}, 208}, 
. {{{0,8}}, 40}, {{{0,9}}, 176}, 
{{{0,8}}, 72}, {{{0,9}},240}, 
{{{0,8}}, 20}, {{{85, 8}}, 227}, 
, {{{0,8}}, 52}, {{{0,9}}, 200}, 
. {{{0,8}},36}, {{{0,9}}, 168}, 
{{{0,8}},68}, {{{0,9}}, 232}, 
{{{0,8}}, 28}, {{{0,9}}, 152}, 
. {{{0,8}}. 60}, {{{0,9}}, 216}, 
- {{{0,8}}, 44}, {{{0,9}}, 184}, 
{{{0,8}}, 76}, {{{0,9}}, 248}, 
{{{0,8}}, 18}, {{{85,8}},163}, 
, {{{0,8}}, 50}, {{{0,9}}, 196}, 

{{{0'8}},34}, {{{0,9}}, 164}, 
{{{0,8}}, 66}, {{{0.9}}, 228}, 
{{{0,8}}, 26}, {{{0,9}}, 148}, 
, {{{0,8}}, 58}, {{{0,9}}, 212}, 
. {{{0,8}}, 42}, {{{0,9}}, 180}, 
{{{0,8}}, 74}, {{{0,9}},244}, 
{{{0,8}}, 22}, {{{192, 8}}, 0}, 
, {{{0,8}}, 54}, {{{0,9}}, 204}, 
, {{{0,8}}, 38}, {{{0.9}}, 172}, 
{{{0,8}}, 70}, {{{0,9}}, 236}, 
{{{0,8}}, 30}, {{{0,9}}, 156}, 
» {{{0,8}}, 62}, {{{0,9}},220}, 
' {{{0,8}}, 46}, {{{0,9}}, 188}, 
{{{0,8}}, 78}, {{{0,9}}, 252}, 
. {{{0,8}}, 17}, {{{85,8}}, 131}, 
, {{{0,8}}, 49}, {{{0,9}}, 194}, 

{{{0,8}},33}, {{{0,3}}, 162}, 
{{{0,8}}, 65}, {{{0,9}}, 226}, 
{{{0,8}}, 25}, {{{0,9}}, 146}, 
, {{{0,8}}, 57}, {{{0,9}}, 210}, 
. {{{0,8}}, 41}, {{{0,9}}, 178}, 
{{{0,8}},73}, {{{0,9}},242}, 
{{{0,8}}, 21}, {{{80, 8}}, 258}, 
' {{{0,8}}, 53}, {{{0,9}}, 202}, 
. {{{0,8}},37}, {{{0,9}}, 170}, 
{{{0,8}}, 69}, {{{0,9}}, 234}, 
{{{0,8}}, 29}, {{{0,9}}, 154}, 
, {{{0,8}}, 61}, {{{0.9}}, 218}, 
, {{{0,8}}, 45}, {{{0,9}}, 186}, 

{{{0,8}}, 77}, {{{0,9}},250}, 
{{{0,8}}, 19}, {{{85, 8}}, 195}, 
' {{{0,8}}, 51}, {{{0,9}}, 198}, 

{{{0,8}},35}, {{{0,9}}, 166}, 
{{{0,8}}, 67}, {{{0,9}}, 230}, 
{{{0,8}},27}, {{{0,9}}, 150}. 
, {{{0,8}}, 59}, {{{0,9}}, 214}, 
' {{{0,8}}, 43}, {{{0,9}}, 182}, 
{{{0,B}},75}, {{{0,9}}, 246}, 
{{{0,8}}, 23}. {{{192, 8}}, 0}. 
r {{{0,8}}, 55}, {{{0,9}}, 206}, 
' {{{0,8}},39}, {{{0,9}}, 174}, 
{{{0,8}}, 71}, {{{0,9}}, 238}, 
{{{0,8}}, 31}, {{{0.9}}, 158}. 
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length « (l<<z->state->wbits) -1; 
dictionary dictLongth - length; 

} 

inflate_set„dictionary(z->state->blocks, dictionary, length); 
2->state->mode - BLOCKS; 
return Z„OK; 

} 



int 2EXP0RT inf lateSync (2) 
z„streamp z; 
{ 

uint n; 
Bytef *p; 
uInt m; 
uLong r, w; 



/« number of bytes to look at */ 
/* pointer to bytes */ 

/* number of marker bytes found in a row */ 
/» temporaries to save total_in and total„out */ 



/* set up */ 

if (z Z NULL II z->state Z^MJLL) 

return Z.STREAM.ERROR; 
if (z->state->mode i BAD) 
{ 

z-> state ->mode - BAB; 
z->state->sub .marker - 0; 

if t(n * z->avail_in) 0) 

return ZJUF„ERROR; 
p » z->neKt„in; 
m ^ z->state->sub. marker; 

%J /» search */ 

If] while (n £cS( m < 4) 

^ ^ static const Byte mark [4] - {0, 0. Oxff, Oxff}; 
^^3 if (*p -= mark[m]) 
hi m++; 
n else if {*p) 
.2 m - 0; 
else 

« m * 4 - m; 

^r;^ p4-+, n — ; 

;i } 

[J /* restore */ 

il z->total_in p - z->neKt„in; 
iZ z->neKt_in = p; 

z~>avail_in * n; 
p z->state">sub. marker m; 

/* return no joy or set up to restart on a new block */ 
if (m I- 4) 

return 2_DATA„ERR0R; 
r = z->total„in; w « Z'->total„out; 
inflateReset(2}; 

z->total_in = r; 2->total„out ^ w; 
z->state">mode = BLOCKS; 
return Z„OK; 

} 



/* Returns true if inflate is currently at the end of a block generated 
» by Z SYHC„FLUSH or Z^FULL^FLUSH . This function is used by one PPP 

* implementation to provide an additional safety check. PPP uses Z_SYHC„FLUSH 
« but removes the length bytes of the resulting empty stored block. When 

* decompressing, PPP checks that at the end of input packet, inflate is 

* waiting for these length bytes* 
*/ 

int 2EXP0RT inf lateSyncPoint (z) 
z^streamp 

{ 

if (z Z iiULL I 1 z->state Z^lsIULL | | z->state->blocks — 2_NULL) 

return zISTREAM„ERROR ; 
return in£late_blocks„sync„point (z->state->biocks) ; 
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case BLOCKS: 

r = inflaite„blocks(z->state->blocks, z, r); 
i£ (r 2JATAJRR0R) 

^ 2->state->mode « BAD; 

2">state->sub. marker « 0; /* can try infiateSync */ 

break ; 

} 

if (r 2_0K) 

r - f; 
if {r }- Z„STREAM_EMD) 
return r; 

inflate_blocks„reset(z->state->blocks, z. te->state->sub .check .was) ; 
i f (z->state->nowrap ) 

2->state->mode « DONE; 
break ; 

z->state->iaode CHECK4; 
case CHECR4: 
NEEDBYTE 

2->state->siab. check. need = (uLon0)l:3EXrBYTE << 24; 
z->state">mode « CHECKS; 
case CHECKS: 
HEEDBYTE 

2->state->sub. check. need 4-- (uLong)HE}a'BYTE << 16; 
2->state->fflode « CHECK2; 
case CHECK2: 
NEEDBYTE 

z->state">sub. check. need (uLong)HEXrBYrE << 8; 
z-> state ->itUDde - CHECKl; 
case CHECKl: 
HEEDBYTE 

2->state->sub. check. need 4-= (uLong)]srEXrBYTE; 
;1 if (z->state->sub. check, was I- 2->state-> sub. check .need) 

'3 ^ 2->state->mode ^ BAD; 

z->ms9 = (char*) "incorrect data check"; 
Ir^ 2->state->sub .marker « 5; /* can't try mflateSync */ 

break; 

a Tracev{(stderr, "inflate: zlib check ok\n*^)); 
T z->state->mode » DOHE; 
[Z case DONE: 
:3 return 2„STREAM_El!5B ; 

= 1 case BAD: 

return Z_DATA_ERHOR- 
default : 

return Z^STREAMJRROR; 

fifdef HEED„DUMMY_RETURH 

return Z„STREAM_ERROR ; /* Some dumb compilers complain without this */ 
#endxf 
} 

int 2EXP0RT inf lateSetDictionary (z, dictionary, dictLength) 
2„streamp z; 

const Bytef »dictionary; 
uint dictLength; 

uint length ^ dictLength; 

if (2 Z^MJLL II Z"->state Z„1^LL \\ z->state->mode I- DICTO) 
return 2„OTIEAM_ERR0R; 

if (adler32(lL, dictionary, dictLength) I- z->adler) return Z_DATA_ERROR; 
z->adier « IL; 

if (length >« ( (uint) l<<z->state->wbits) ) 
{ 
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#define NEEDBYTE {if (z->avail_in=««0) return r;r=f;} 

#define NEXTBYTE (2->stvail„in— ,z->total_in++,*2;->n©Kt„in++) 

int ZEXPORT inflate (z. f) 
z„streamp z; 
int f; 
{ 

int r; 
uint b; 

if (2 2„MJLL tt 2->state ZJ^LL j| z->next_in — Z„MJLL} 

return Z_STR£AM_ERROR; 
f = f Z„FINISH ? ZJUFJRROR : Z„OK; 
r « Z^BUFJRROR; 

while (1) switch (z->state->mode) 
{ 

case MEIHOD: 
NEEDBYTE 

if ({(z->state'->sub. method - NEXTBYTE) Oxf) I - Z^DEFLATED) 
{ 

z->state->mode ^ BAD; 

z->msg « (char*) "unknown compression method"; 

z->state-> sub .marker ^ 5; /« can't try inflateSync */ 

break ; 

if ((Z'->state->sub -method >> 4) + 8 > z->state->wbits) 
{ 

z->state->mode = BAD; 
z->msg - (char*) "invalid window size"; 
C3 z->state->sub. marker 5; /* can't try inflateSync */ 

1 break ; 

fS } 

:][ z->state->mode ^ FLAG; 
fy case FLAB: 
.3 NEEDBYTE 

b « NEXTBYTE; 

if (((z->state->sub. method << B) + h) X 31) 

H { 

fj z->state->mode ^ BAD; 

z->msg « (char*) "incorrect header check"; 

z->state->sub .marker « 5; can't try inflateSync */ 

CJ break; 

} 

Tracev{ (stderr, "inflate: zlib header ok\n" )) ; 
if (l(b S< PRESETJICT)) 

H { 

p z->state->mode « BLOCKS; 

n break; 

} 

z->state->mode ^ DICT4; 
case DICT4: 
HEEDBYTE 

z->state->sub. check -need =^ (uLone)KEXrBYTE << 24; 
z->state->mode - DICT3; 
case DICT3: 
HEEDBYTE 

z->state->sub. check. need 4- (uLong) NEXTBYTE « 16; 
Z">state->mode * DICT2; 
case DICrr2: 
IsfEEDBYTE 

z->state->sub. check. need (uLong )HEXrBYTE << 8; 
z-->state->mode = DICTl; 
case DICTl: 
IsIEEDBYTE 

z->state->sub. check. need (uLong) NEXTBYTE; 
z->adler « z->state->sub. check. need; 
z->state->mode ^ DICTO; 
return ZJsTEEDJICT; 
case DICTO: 

z->state->mode - BAD; 

z->msg (char*) "need dictionary"; 

z->state->sub. marker « 0; /* can try inflateSync */ 

return 2„STREAM_EHR0R; 
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ZFREE(z, 2->state); 

2->state - Z„NULL; 

Tracev( (stderr, "inflate : end\n")); 

return Z_OK; 

} 



int ZEXPORT inf latelnit2_(z, w, version, stream.size) 
z_streamp s; 
int w; 

const char *v©rsion; 
int stream_size; 

^ if (version 2„MULL M V0rsion[O] !- 2LIB„VERSI01sf[0] || 
stream size ! sizeof (z_stream) ) 
return 2„VERSI0N„ERR0R; 

/* initialize state 
if (z ZJIULL) 

return Z„STREMJRROR; 
z->msg * Z_MJLL; 
if (z->zalloc ZJsIULL) 
{ 

z->zalloc * zcailoc; 
z->opaque - (voidpf)O; 

if (2->zfree " Z_K[ULL) 2->zfree = zcfree; 

if {(2'->state ^ {struct interna Instate FAR *) 

ZALLOC(z,l,sizeof (struct internal„state) ) ) — Z_MJLL) 
C3 return Z_MEM_ERROR; 
./^ z->state->blocks = 2_15ULL; 

/* handle undocumented nowrap option (no zlib header or check) */ 
fy z->state->nowrap » 0; 
t^i if (w < 0) 

M { 

''^i Z"> state- > nowrap =1; 

C3 } 

/* set window size 
P if (w < 8 ! 1 ^ > 15) 

•J { 

3 inflateEnd(z) ; 

return Z^STREAM.ERROR; 

} 

p Z">state->wbits - C^^J^'t)^^ 

/* create inf late_blocks state */ 
if ( (s^/^state**^ blocks ^ 

inflate„blocks„newCz. z-> state -> nowrap ? Z_lsIULL : adler32. (ulnt)l « w) ) 
ZJULL) 

{ 

inf lateEnd(z) ; 
return Z„MEM„ERROR; 

TrdcevC(stderr. "inflate: allocatedxn") ) ; 

/* reset state */ 
inf lateReset(z) ; 
return Z„OK; 

} 



int ZEKPORT inf latelnit_(z, version, stream^size) 

z„streamp z; 

const char *version; 

int stream_sxze; 

^ return inf latelnit2„(z, DEFJ^BITS, version, stream^size) ; 
} 
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/* inflate.c — zlib interface to inflate modules 

* Copyright (C) 1995-1998 Mark Adler 

* For conditions of distribution and use, see copyright notice in zlib.h 
*/ 

#include "zutil.h" 
#include "infblock.h" 

struct inflate_blocks_state {int dumy;}; for buggy compilers */ 



typedef enum { 
METHOD, 
FLAG, 
DICT4, 
DICT3, 
DICT2, 
DICTU 
DICTO, 
BLOCKS, 
CHECK4, 
CHECR3, 
CHECK2, 
CHECK 1, 
DOME, 
BAD} 

inflate_mode; 



/* waiting for method byte */ 

/* waiting for flag byte */ 

/* four dictionary check bytes to go */ 

/* three dictionary check bytes to go */ 

/* two dictionary check bytes to go */ 

/* one dictionary check byte to go */ 

/» waiting for inf lateSetDictionary */ 

/« decompressing blocks 

/« four check bytes to go */ 

/« three check bytes to go */ 

/* two check bytes to go */ 

/* one check byte to go «/ 

/» finished check, done */ 

/* got an error — stay here 



/* inflate private state 
.struct internal_state { 

-.3 /» mode */ 

inflatejmode mode; /* current inflate mode */ 

fU mode dependent information */ 
union { 

ui uint method; /« if FLAGS, method byte 

'"■^ struct { 

"rj uLong was; /* computed check value */ 

f's uLong need; stream check value */ 

} check; /* if CHECK, check values to compare 

uInt marker; /* if BAD, inf lateSync 's marker bytes count */ 

H } sub; submode */ 

i:\ /* mode independent information */ 

int nowrap; flag for no wrapper */ 

"^f uInt wbits; /* log2(window size) (8.. 15, defaults to 15) */ 

C3 inflate_blocks_statef 

fl *blocks; /* current inf late„bloc:ks state */ 



int ZEXPORT inf lateReset (z) 
2_streamp z; 

^ if (z Z^lsIULL t I z->state Z„1:3ULL) 
return Z_STREAM„ERROR; 
z*>total„in ^ z->total_out ^ 0; 
Z">msg « Z„NULL; 

z->state->mode - z->state->nowrap ? BLOCKS : METHOD; 
inflate„blocks_reset (2'>state->blocks, z, Z„MJLL); 
Tracev({stderr, "inflate: resetxn")); 
return Z„OK; 

} 



int ZEXPORI inf lateEnd(z) 
z streamp z; 

c 

if (2 Z_HULL !1 z->state ZJ^LL || 2->zfree — Z^HULL) 

return Z„STREAM_ERROR; 
if (z->state->blocks U ZJiSULL) 

inf late_blocks_f ree (z->state->blocks, z) ; 
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c[k] = 5; 

huft_fouild(c, 30, 0, cpdist. cpdeKt, Scfixed„td, Scfixed_bd, 
fiKed_mem, v); 



/* done */ 
ZFREE(z, V); 
ZFREE(2, c); 
fiKed_built 1; 

} 

#endif 

*bl fixed_bl; 
*bd « fixed_bd; 
*tl - fiKsd^tl; 
*td « fiKed„td; 
return Z_OR; 

} 
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z->msg = (char*) "incomplete distance tree"; 
r « Z^DATAJRROR; 

} 

else if (r !- ZJviEMJRROR) 

^ z~>mss =^ (char*) "empty distance tree with lengths"; 
r - Z_DATA„ERROR; 

} 

ZFREE(2, V); 
return r; 
#end if 
} 

/* done */ 
ZFmElz. V); 
return Z_OK; 

} 



/* build fixed tables only once--keep them here */ 

#ifdef BUILDFIXED 

local int fixed^built « 0; 

#define FIXEDH 544 /* number of hufts used by fixed tables «/ 

local inflate^huft f ixed_mem[ FIXEDH ] ; 

local uint fised^foi; 

local uInt fiKed„bd; 

local inflate.huft *fiKed_tl; 

local inflate_huft *fiKed_td; 

#else 

Cfinclude "inffised.h" 
rfendif 



fiint inflate„trees_fixed 
rtlntf *bl; 
rilntf *bd; 

^inflate^huft » FAR *tl; 
Mnflatejuft * FAR *td; 
f^„streamp z; 

:i 

:|ifdef BUILDFIXED 
S3 /* build fised tables 
if (ifiKed3uilt} 

int k; 

uInt f « 0; 
£1 ulntf *c; 
IS ulntf *v; 



(bl, bd, tl, td, z) 
/* literal desired/actual bit depth */ 

distance desired/actual bit depth */ 
/» literal/length tree result »/ 
/* distance tree result */ 
/* for memory allocation */ 



if not already */ 



/* temporary variable »/ 
/* number of hufts used in fixed^mem 
/* length list for huft_build */ 
/* work area for huft_build */ 



/* allocate memory 

if ({c - (uIntf*)ZALLOC(z. 288, siseof (ulnt ) ) ) Z^NULL) 

return Z„MEI»L.ERROR; 

if ((V « (ulntf *)ZALLOC(z, 2B8, sizeof (uInt) ) ) Z„HULL) 

{ 

ZFREE(s, c); 
return ZJ4EM„ERR0R; 

} 

/* literal table *^ 

for (k - 0; k < 144; k-f-+) 

c[k] * 8; 
for (; k < 256; k++) 

c[k] - 9; 
for (; k < 280; k^+) 

elk] = 7; 
for (; k < 288; k++) 

c[k] - 8; 
fiKsd^bl « 9; 

huft„build(c, 288. 257, cplens, cplext, S^fixed^tl, £tfiKed_bl. 
fised_mem, S:f, v); 



/« distance table */ 
for {k - 0; k < 30; k-f+) 
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int inflate_trees„bits(c, bb, tb, hp, 2) 

ulntf *c; /* 19 code lengths */ 

ulntf *bb; bits tree desired /'actual depth */ 

inflate_huft * FAR »tb; /* bits tree result */ 

inflate„huft *hp; space for trees */ 

z„streamp 2; /* for messages */ 

{ 

int r; 

uint hn « 0; hufts used in space */ 

ulntf *v; work area for huft„build */ 

if ({v ^ {uIntf*)ZALL0C(2, 19, sizeof (uInt) ) ) Z.NULL) 

return 2„MEM„ERR0R; 
r - huft„build(c, 19, 19, (ulntf*) ZJ5ULL, (ulntf*) ZJ5ULL, 

tb, bb, hp, S(hn, v} ; 
if (r 2„DATA„ERR0R) 

z->msg - (char*) "oversubscribed dynamic bit lengths tree"; 
else if {r Z_BUF„ERROR tl *bb 0) 

^ z->mse ^ (char*) "incomplete dynamic bit lengths tree"; 
r = Z„DATA„ERROR; 

} 

ZFREE{z, V); 
return r; 

} 



int in f latent reesjynam: 
Clint nl; 
.^Int nd; 
Mintf *c; 
'^'^^ilntf *bl; 
f^Intf *bd; 
. Jnflate^huft 

inf iate„huft 
J^nflate„h^ift 
^'^_streamp z; 

^ int r; 

uInt hn - 
%1 ulntf *v; 



« FAR *tl; 
* FAR *td; 
*hp; 



ic(nl, nd, c, bl, bd, tl, td, hp, z) 

number of literal /length codes */ 
/* number of distance codes */ 
/* that many (total) code lengths */ 
/« literal desired/actual bit depth */ 
/* distance desired/actual bit depth */ 
/* literal /length tree result */ 
/» distance tree result */ 
/* space for trees */ 
/* for messages */ 



/* hufts used m space */ 

/» work area for huft_build »/ 



/* allocate work area */ 

if ({V - (uIntf*)ZALLOC(z, 28S, sizeof (uInt) ) ) 
return Z_MEM„£RROR; 



Z.NULL) 



S /* build literal/length tree »/ 

=^ r - huft build (c, nl, 257, cplens, cplest, tl, fol, hp, Schn, v) ; 
if (r Z„OK t j *bl 0) 
{ 

if (r Z„DATA„ERROR) 

z->msg = (char*) "oversubscribed literal /length tree"; 
else if (r 1- Z„MEM„ERROR) 

z->msg = (char*) "incomplete literal /length tree"; 
r « Z3ATA„£RR0R; 

} 

2FREE(2, v); 
return r; 

} 

/* build distance tree */ 

r « huft_build(c -f- nl, nd, 0, cpdist, cpdest, td, bd, hp, Shn, v)i 

if (r !- Z_OK II (*bd " 0 &£< nl > 257)) 

{ 

if (r ZJATAJRROR) 

z->msg » (char*) "oversubscribed distance tree"; 
else If (r 2_BUF„ERR0R) { 
#ifdef PKZIP„BUG„WORKAROUND 

r - Z„OK; 

} 

#else 
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f -= a + 1; /* deduct codes from patterns left */ 

s:p - c + k; 
if (j < 

while (++j < z) /* try smaller tables up to z bits */ 
{ 

if ((f <<- X) <- *++sp) 

break; enough codes to use up j bits «/ 

f »xp; /» else deduct codes from patterns */ 

} 

z='l<<j; table entries for j-bit table */ 

allocate new table */ 
if (*hn -i- z > MA2^^Y) (note: doesn't matter for fixed) */ 

return 2„M£M„ERR0R; /* not enough memory 
u[h] « g = hp + *hn; 
*hn z; 

/« connect to last table, if there is one «/ 
if (h) 

K[h] « i; ^* save pattern for backing up «/ 

r.bits « (Byte)l; /* bits to dump before this table «/ 
r.eKop ^ (Byte)j; /* bits in this table */ 
j i >> (w - 1); 

r.foase « (ulnt)(q - u[h-l] - j); offset to this table */ 

u[h-l][j] = r; /* connect to last table 

} 

else 

13 *t ^ q; first table is returned result «/ 

j;; /* set up table entry in t */ 
fy r.bits = {Byte){k - w); 
.1 if (p V + n) 

r.enop = 128 + 64; /» out of values — invalid code */ 

J"^ else if (*p < s) 

r1 ^ r.exop ^ (Byte) (*p < 2S6 ? 0 : 32 + 84); /* 256 is end-of -block */ 
r.base ^ »p+-i-; /■* simple code is just the value */ 

L } 
k-j else 

;1 ^ r.exop « (Byte)(e[«p - s] + 16 -i- 64);/* non^simple— look up in lists */ 
r.base = d[*p++ - s]; 

it } 

/* fill code-like entries with r »/ 
f « 1 << (k - w); 
for (j i >> w; j < z; j f) 
q[jl r; 

/* backwards increment the k-bit code i */ 
for (j - 1 << (k - 1); i a j; j >>- 1) 

i j; 
i j; 

backup over finished tables */ 
mask (1 << w) - 1; /* needed on HP, cc -0 bug */ 

while ((i S= mask) !- x[h]) 

h— ; don't need to update q */ 

w 1; 

mask =«(!<< w)-l; 

} 



} 



} 



/« Return 2„BUF_ERR0R if we were given an incomplete table */ 
return y I- 0 g 1 ? ZJUF„EHROR : Z„OK; 

} 
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} 



/* Find minimum and maximum length, bound »m by those */ 
for (j - 1; j <« BMAX; 
break ; 

k j ; /* minimum cade length «/ 

if ({ulnt)l < j) 

1 - j; 

for (i = BMAX; i; i — ) 
if (c[i]) 
break ; 

g « i; maKiinum code length */ 

if ((ulnt)l > i) 

1 - i; 
*Hi = 1; 



/« Adjust last length count to fill out codes, if needed */ 
for (y - 1 << j; j < i; y 1) 

if C(y < 0) 

return Z„DATAJRROR; 
if ((y ^= c[i]) < 0) 

return Z_BATA_ERROR; 
c[i] y; 



fl /* Generate starting offsets into the value table for each length */ 
■1 « j « 0; 

p « c + 1; sp * K + 2; 
■^•-^ while (--i) { /* note that i =^ g from above »/ 

tU *Kp++ « (j *p++); 

> 

'-J /* Make a table of values in order of bit lengths */ 
fl p = b; i 0; 
do { 

"\ if ((j - *p-^-+) 1- 0) 
O v[x[j]++] - i; 
^^J } while (++i < n); 

.1 n = x[g3; set n to length of v */ 

f3 /* Generate the Huffman codes and for each, make the table entries */ 
f^, x[0] « i « 0; first Huffman code is zero 

p = v; /* grab values in bit order */ 

h « -1; /» no tables yet — level -1 */ 
w = -1; bits decoded — (1 * h) */ 

u[0] « (inflate„huft *)Z_1:5ULL; /« just to keep compilers happy */ 

g - (inflate_huft *)Z„MJLL; /* ditto 

z = 0; /* ditto */ 

go through the bit lengths (k already is bits in shortest code) 
for (; k g; 
{ 

a - c[k] ; 
while (a — ) 

/* here i is the Huffman code of length k bits for value *p «/ 
/* make tables up to required level */ 
while (k > w + 1) 
{ 

h++; 

w 1; /* previous table always 1 bits »/ 

/» compute minimum size table less than or equal to 1 bits »/ 
z = e - w; 

2 « 2 > (ulnt)l ? 1 : z; /* table size upper limit */ 

If ( (f « 1 << (j k - w) ) > a + 1) z'* try a k-w bit table */ 

{ /* too few codes for k-w bit table */ 
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codes are shorter than that, m which case the longest code length in 
bits is used, or when the shortest code is *lonser« than the requested 
table size, in which case the length of the shortest code in bits is 
used. 

There are two different values for the two tables, since they code a 
different number of possibilities each. The literal /'length table 
codes 286 possible values^ or in a flat code, a little over eight 
bits. The distance table codes 30 possible values, or a little less 
than five bits, flat. The optimum values for speed end up being 
about one bit more than those, so Ibits is 8+1 and dbits is 5+1, 
The optimum values may differ though from machine to machine, and 
possibly even between compilers. Your mileage may vary. 

»/ 



/» If BmX needs to be larger than 16, then h and k[] should be uLong. */ 
#define BM^ IS ^* maKimum bit length of any code */ 



1% 



n, s, d, e, t, m, hp, hn, v) 

/* code lengths in bits (all assumed BMAX) */ 
/* number of codes (assumed <« 288) 
/* number of simple-valued codes (0..S-1) */ 

list of base values for non -simple codes */ 
/« list of extra bats for non-simple codes */ 
/* result: starting table */ 
/* maKimum lookup bits, returns actual */ 
/» space for trees */ 
/* hufts used in space 

/* working area: values in osrder of bit length 
Given a list of code lengths and a maKimum table size, make a set of 
tables to decode that set of codes. Return Z„OK on success, Z„eUF„ERROR 
if the given code set is incomplete (the tables are still built in this 
case), 2„DATA„ERR0R if the input is invalid (an over-subscribed set of 
lengths), or Z_MEM„ERROR if not enough memory. */ 



local int huft„build(b 
ulntf *b; 
uint n; 
uint s; 

const ulntf *d; 
const ulntf *e; 
inflate_huft * FAR *t; 
ulntf *m; 
inflatejuft *hp; 
uint *hn; 
fllntf *v; 



uint a; 

uint c[BMAX+l]; 
uint f; 
int g; 
int h; 

register uint i; 

register uint j; 

register int k; 

int 1; 

uint mask; 

register ulntf *p; 

inflate_huft »q; 

struct inflate_huft_s r; 

innate_huft «u[BMAK]; 

register int w; 

uint K[BMAX+1]; 

ulntf «Kp; 

int y; 

uint z; 



/* counter for codes of length k */ 

/* bit length count table 

/» i repeats in table every f entries »/ 

maKimum code length 
/* table level «/ 
/* counter, current code */ 
/* counter 

number of bits in current code */ 
/* bits per table (returned in m) 
/» (1 << w) - i, to avoid cc -0 bug on HP »/ 
/* pointer into c[], b[], or v[] */ 
/» points to current table */ 
/* table entry for structure assignment */ 
/« table stack */ 

^* bits before this table (1 * h) */ 

/» bit offsets, then code stack 

/« pointer into x */ 

/* number of dummy codes added */ 

number of entries in current table */ 



/* Generate counts for each bit length «/ 

p « c; 
#define CO *p++ - 0; 
#define C2 CO CO CO CO 
#define C4 C2 C2 C2 C2 

C4 clear c[} — assume BMAX+1 is 16 */ 

p - b; i « n; 

do { 

c[«p++]++; assume all entries <« BMAX */ 

} while { — i ) ; 

if (c[0] n) /* null input--all zero length codes */ 

^ *t = (inflate_huft *)Z„MJLL; 
*m =^ 0; 
return Z„OK; 
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/* inft3rees.c generate Huffman trees for efficient decoding 

* Copyright (C) 1995-1998 Mark Adier 

* For conditions of distribution and use, see copyright notice m slib.h 

#include "zutil.h" 
^include "inftrees.h" 

#if i defined (BUILDFIXED) ! defined (STDC) 

# define BUILDFIXED /* non MSI compilers may not accept inffiKed.h 
#endif 

const char inf late^copyright [ ] ^ 

" inflate 1.1.3 Copyright 1995-1998 Mark Adler 

/* 

If you use the slib library in a product an acknowledgment is welcome 
in the documentation of your product. If for some reason you cannot 
include such an acknowledgment, I would appreciate that you keep this 
copyright string in the executable of your product. 
•/ 

struct internal^state {int dummy:}; /* for buggy compilers */ 

/* simplify the use of the inflate^huft type with some defines */ 
#define exop word .what .Exop 
#define bits word .what .Bits 



local int huft„build 0F(( 
ulntf 

ri uint, /* 
uint, /* 
const ulntf «, /* 
const ulntf /» 
inflate_huft * FAR*,/* 
ulntf /* 
inflate_huft /* 
uint 

ulntf * )); /* 



code lengths in bits */ 

number of codes */ 

number of "simple" codes */ 

list of base values for non-simple codes */ 

list of extra bits for non-simple codes 

result: starting table */ 

maximum lookup bits (returns actual) */ 

space for trees */ 

hufts used in space */ 

space for values 



V* Tables for deflate from PRZIP*s appnote . txt . */ 

tocal const uInt cplens[31] - { /* Copy lengths for literal codes 257.. 285 
fj 3, 4. 5, 6, 7, 8, 9, 10, 11. 13, 15, 17, 19, 23, 27, 31, 

sj 35, 43, 51, 59, 67, 83, 99, 115, 131, 163, 195, 227, 258, 0, 0}; 

„ 1 /* see note #13 above about 258 */ 

l4>cal const uInt cplest[31] » { /* Extra bits for literal codes 257.. 285 */ 

0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 2, 2, 2, 2, 
i-, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 5, 0, 112, 112}; /» 112«-invalid */ 

3£ical const uInt cpdistI30] { /« Copy offsets for distance codes 0..29 */ 

~ ~ ~ 17, 25, 33, 49, 65, 97, 129, 193, 

1025, 1537, 2049, 3073, 4097, 6145, 
24577}; 

^ { y* EKtra bits for distance codes */ 
2, 3, 3, 4, 4, 5, 5, 6, 6, 



1, 2, 3, 4, 5, 7, 9, 
257, 385, 513, 769, 
8193, 12289, 15385, 
local const uInt cpde5it[30] 
0, 0, 0, 0, 1, 1, 2, 



7, 7, 8, 8, 9, 9, 10, 
12, 12, 13, 13}; 



10, 11, 11, 



Huffman code decoding is performed using a muiti -level table lookup. 
The fastest way to decode is to simply build a lookup table whose 
size is determined by the longest code. However, the time it takes 
to build this table can also be a factor if the data being decoded 
is not very long. The most common codes are necessarily the 
shortest codes, so those codes dominate the decoding time, and hence 
the speed. The idea is you can have a shorter table that decodes the 
shorter, more probable codes, and then point to subsidiary tables for 
the longer codes. The time it costs to decode the longer codes is 
then traded against the time it takes to make longer tables. 

This results of this trade are in the variables Ibits and dbits 
below. Ibits is the number of bits the first level table for literal/ 
length codes can decode in one step, and dbits is the same thing for 
the distance codes. Subsequent tables are also less than or equal to 
those sizes. These values may be adjusted either when all of the 
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/* inf trees, h — header to use inf trees, c 

* Copyright (C) 1995-1998 Mark Adier 

* For conditions of distribution and use, 
*/ 



see copyright notice in zlib.h 



/* WARHIHG: this fxle should *not* be used by applications. It is 
part of the implementation of the compression library and is 
subject to change. Applications should only use zlib.h. 



/* Huffman code lookup table entry— this entry is four bytes for machines 
that have 16-bit pointers (e.g. PC's in the small or medium model). */ 

typedef struct inf late„huft„s FAR inf late„huf t ; 

struct inflate„huft„s *{ 



union { 
struct { 
Byte EKop; 
Byte Bits; 
} what; 
uint pad; 
} word; 
uInt base; 



/« number of eKtra bits or operation 

/» number of bits in this code or subcode */ 

pad structure to a power of 2 (4 bytes for »/ 
/* 16-bit, 8 bytes for 32-bit int's) 
/* literal, length base, distance base, 

or table offset */ 



}; 

/* Maximum size of dynamic tree. The maKimum found in a long but non- 
exhaustive search was 1004 huft structures (850 for length/literals 

Cj and 154 for distances, the latter actually the result of an 

^..i exhaustive search). The actual maKimum is not known, but the 
value below is more than safe. */ 

Mdefine Wm 1440 

eltern int inf late_trees_bits 0F(( 

b' = ulntf *, /» 19 code lengths »/ 

'"1 ulntf *, ^5its tree desired/actual depth */ 

""'J inflate„huft » FAR *, ^* bits tree result *^ 

fj inflate^huft *, /* space for trees */ 

z„streamp)); ^* for messages */ 



feitern int inflate, 

^4 uInt, 

|;| uInt, 

:^ ulntf *, 
ulntf », 

Cj ulntf *r 

fi inflate_huft * 
inflatejuft * 
inflate_huft * 
z„streamp) ) ; 



trees_dynamic 0F(( 

^* number of literal /length codes 
/* number of distance codes */ 
/« that many (total) code lengths */ 
/* literal desired/actual bit depth »/ 
/* distance desired/actual bit depth */ 
FAR *, /* literal/length tree result 

FAR *, distance tree result */ 

/« space for trees */ 
y* for messages */ 



extern int inf late„trees_f i:sed 0F(( 

ulntf *, literal desired/actual bit depth 

ulntf *'r ^* distance desired/actual bit depth */ 

inflatelhuft * FAR *, /* literal/length tree result */ 

inflate^huft * FAR *, /* distance tree result */ 

z„streamp)); memory allocation */ 
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/* copy •/ 
zmssmcpy(p, q» n); 
p +" n; 
q += n; 

} 

/* update pointers */ 
2->nest_out = p; 
s->read = g; 

/• done */ 
return r; 

} 
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/* inflate„util .c data and routines comon to folocks and codes 

* Copyright (C) 1995-1998 Mark Mlsr , 

* For conditions of distribution and use, see copyright notice m ziib.h 
»/ 

#include "zutil.h" 
#include "infbiock.h" 
#include "inf trees. h" 
#include "infcodes.h" 
^include "infutil.h" 

struct inflate_codes„state {int dunony;}; /* for buggy compilers */ 

/* And'ing nth masktn] masks the lower n bits */ 
uint inflate_mask[17] = { 

OkOOOi' 0x0003, 0K0007. OKOOOf, OKQOlf. 0K003f. 0s007f, OxOOff, 
OKOlff. OsOSff. 0K07ff, O^Offf. Oxlfff, 0x3fff, 0K7fff, OKffff 



/» copy as much as possible from the sliding window to the output area *. 

int inflate_nush(s, r) 

inf late„blocks_statef *s; 

z^streamp z; 

int r; 

{ 

uint n; 
,,,,Bytef *p; 
^fBytef *q; 

m^* local copies of source and destination pointers 
lllp « z->neKt„out; 
^ ^q s->read; 

iMy* compute number of bytes to copy as far as end of window »/ 
Jin = {ulnt)((q <- s->write ? s->write : s->end) - q); 
''"^if (n > 2->avail_out) n « z->avail„out ; 
13 if (n ScSc r 2„8UF„ERR0R) r - Z_OK; 

^;:^/» Update counters »/ 
'-^"^ 2->avail_out n; 
"^^Jz->total„out n; 

TT /» update check information */ 
^!if (s->checkfn I- Z„NULL) 

y z->adler = s->check « (»s->checkfn) (s->check, n); 

''"^'z* copy as far as end of window 
zmemcpy^p, q, n); 
p n; 
q +^ n; 

/* see if more to copy at beginning of window »/ 

if (q s->end) 

{ 

/* wrap pointers */ 
q = s->window; 
if (s->write s->end) 
s->write - s->window; 

/» compute bytes to copy */ 

n ^ (uInt) (s->write - q) ; 

if (n > z->avail„out) n = z->avail_out ; 

if (n ScSc r Z„BUF_ERROR) r = 2„0K; 

/* update counters «/ 
z->avail„out -« n; 
z->total„out n; 

/* update check information */ 
if (s->checkfn 1« ZJ5ULL) 

z->adler « s->check = (*s->checkfn) (s->check, q, n); 
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/» infcodes.h — header to use in£codes,c 

* Copyright (C) 1995-1998 Hark Adler 

* For conditions of distribution and use, see copyright notice in zlib.h 
*/ 

/* WARNING: this file should *not* be used by applications. It is 
part of the implementdtion of the compression library and is 
subject to change. Applications should only use zlib.h. 

«/ 

struct inf late_codes„state; 

typedef struct inf late„codes_state FAR in£late_codes_statef j 

extern inf late„codes.statef *inf late„codes„new OF(C 
uint, uint, 

inflate„huft *, inflate^h^ft », 
z„streamp ) ) ; 

extern int inf late_codes 0F(( 
inf late„blocks„statef *, 
z„streamp , 
int)); 

extern void inf late„codes_free 0F(( 
inf late„codes_statef *, 
z„streaiap )); 



File: Work \CrtPrt\2c0mp\inf codes ,h 



/* inf codes. h header to use inf codes. c 

* Copyright (C) 1995-1998 Mark Adler 

* For conditions of distribution and use. see copyright notice in zlib.h 
«/ 

/* WARNING: this file should *not* be used by applications. It is 
part of the implementation of the compression library and is 
subject to change. Applications should only use zlib.h. 

«/ 

struct inflate„codes_state; 

typedef struct inf late_codes_state FAR inf late_codes_statef v 

essteam inf late„codes„statef *inf late_codes_new 0F(( 
uint, uint, 

inflate„huft inflate_huft 
z„streamp ) ) ; 

extern int inf late_codes 0F(( 
inf late„blocks_statef 
z^streamp , 
int)); 

extern void inf late_codes„free 0F{( 
inflate_codes_statef 
2:„streaffip ) ) ; 
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#define NEXIBYTE (n— ,»p++) 

#def ine KEEBBITS( j ) {while (k< (j ) ) {NEEDBYTEjb! -( (uLoiig)MEXrBYTE) <<k;k+«8;}} 
#define DUMPBITS(j) {b>>«(j ) ;k-= (j ) ;} 
/» output bytes */ 

#define WAVAIL (uint) (q<s->read?s->read-q-l :s->@nd-q) 
Me£in& LOADDUT {q«s*>wrlte;m=(ulnt) WAVAIL;} 

#define WRAP {x£ (q==-s->end£c&s->read ! -s->wxndow){q«s->windciw;m- (ulnt)WAVAIL; }} 
#define FLUSH {UPDOUT r«in£late„f lush (s.z.r) ; LOADOUT} 

#define NEEDOUT {if (m--0) {WRAP if (ra--0) {FLUSH WRAP ifCm--0} LEAVE } }r-Z„OK ; } 
#d6fine OUTBYrE(a) {*q++»(Byte) (a) ;} 

load local pointers */ 
#def ine LOAD {LOADIN LOADOUT} 

/* masks for lower bits (size 0iven to avoid silly warnings with Visual C++) «/ 
extern uint inflate„mask[17] ; 

/* copy as much as possible from the sliding window to the output area 
extern int inf late_f lush 0F(( 

inf late„blocks„statef 

2„strearap , 

int)) ; 

struct internal^state {int duinmy;}; /* for buggy compilers 



#endif 
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/» infutil.h — types and macros common to blocks and codes 

* Copyright (C) 1995-1998 Mark Adler 

* For conditions of distribution and use, see copyright notice in slib.h 
»/ 

WARMMG: this file should *not» be used by applications. It is 
part of thet implementation of the compression library and is 
subject to change. Applications should only use zlib.h. 

fifndef _„INFUTIL3 
#define „IHFUTIL„H 



typedef enum { 

TYPE, /* 

LEHS, /* 

STORED, /» 

TABLE, /* 

BTREE, /* 

DTREE, /* 

CODES, /* 

DRY, /* 

DONE, /* 

BAD} /* 

i n f 1 a t e„b 1 ock_mode ; 



get type bits (3, including end bit) */ 
get lengths for stored */ 
processing stored block */' 
get table lengths 

get bit lengths tree for a dynmlc block */ 

get length, distance trees for a dynamic block »/ 

processing fixed or dynamic block */ 

output remaining window bytes */ 

finished last block, done */ 

got a data error — stuck here */ 



inflate blocks semi -private state */ 
struct inf late_blccks_state { 



;y* mode */ 

"'k. n f 1 a te b 1 ock_mode mode ; 



/» current inf late^block mode */ 



mode dependent information */ 



fyunion { 
^3 uint left; 
^'l^ struct { 

uInt table; 
uInt index; 
ulntf *blens; 
uInt bb; 
J_ inflate.huft »tb; 
[3 } trees; 

struct { 
; 1 inf late„codes„statef 
'-'^ *codes; 
U } decode; /* 

=5ulnt last; /* 



if STORED, bytes left to copy */ 

/* table lengths (14 bits) »/ 

/* index into blens (or border) */ 

/* bit lengths of codes «/ 

bit length tree depth */ 
/» bit length decoding tree »/ 
if DTREE, dBcodins mf^o trees */ 



if CODES, current state «/ 
submode */ 

true if this block is the last block */ 



/* mode independent 
uInt bxtk; 
uLong bitb; 
inflate.huft *hufts 
Bytef *window; 
Bytef *end; 
Bytef *read; 
Bytef *write; 
check_func checkfn; 
nhon^ check; 



information */ 

/* bits m bit buffer */ 
bit buffer */ 
; /* single malloc for tree space */ 

/* sliding window */ 

/* one byte after sliding window */ 

/» window read pointer 

/* window write pointer 

/* check function */ 

^* check on output */ 



/« defines for inflate input/output 

update pointers and return 
#define UPDBITS {s">bitb=b;s->bitk-k; } 

#define UPDW {z*>avail_in^n;z">total_in+*p-s->next_in;z->neKt„in«p; } 

#define UPDOUT {s'->write«q; } 

#def ine UPDATE {UPDBITS UPDIH UPDOUT} 

#define LEAVE {UPDATE return inf late„f lush(s^s^r) ; } 

/* get bytes and bits */ 

#define LOADIH {p-2->neKt_in;n-z->avail„in;b«s->bitb;k=^s->bitk; } 
#define NEEDBYTE {if (G)r-Z_OK;else LEAVE} 



File: Work\CrtPrt\zcomp\trees , c 



* Flush the fait buffer and align the output on a byte boundairy 
*/ 

local void bi„windup(s) 
deflate^state *s; 

{ 

if (s->bi„valid > 8) { 

put_short(s, s->bi„buf); 
} else if (s->bi„valid > 0) { 

put„byt©(s, (Byte)s->bi_buf ) ; 

} 

s->bi„buf = 0; 

s~>bi„valid ^ 0; 
#ifdef DEBUG 

s->bits_sent (s->bits_settt+7) & '^7; 
#endif 
} 

* Copy a stored block, storing first the length and its 

* one's complement if requested. 
»/ 

local void copy„block (s^ buf, len, header) 
def late_state *s; 

charf «buf; y* the input data */ 
unsigned len; /* its length */ 

int header; /* true if block header must be written */ 

CJ bi_windup(s) ; /« align on byte boundary */ 

Jl s->last_eob_len = 8; /* enough lookahead for inflate */ 

^ if (header) { 
fy put_short(s, (ush)len); 
■^j put„short(s. (ush)"len); 
4^de£ DEBUG 

s->bits„sent 2*16; 

^%^dif 

CI } 

#Tfdef DEBUG 

s->bits_sent (ulg)len<<3; 
^dif 

'^J while (len — ) { 

5.1 put„byte(s, *buf+4-); 

} 
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dist — ; /» dist is now the match distance - 1 */ 
code « decode (dist ) ; 

Assert (code < DECODES ^ "bad decode"); 

send„code(s> code, dtree); send the distance code »/ 

extra ^ eKtra_dbits[cod0] ; 
if (extra 1= 0} { 

dist base^dist [code] ; 

send_bits(s, dist, extra); /* send the extra distance bits «/ 

} 

} /» literal or match pair ? 

/* Check that the overlay between pending_buf and d_buf+l„buf is ok; »/ 
Assert (s->pending < s->lit_bufsize 4- 2*lx. ''pBndinsBn£ overflow"); 

} while (Ik < s->last„lit) ; 

send_code(s, fflDJLOCR, Itree); 
s->last„eob_len = Itree [E^JLOCK] ,Len; 

} 

» Set the data type to ASCII or BINARY, using a crude approxizuation : 

* binary if more than 20% of the bytes are 6 or 128, ascii otherwise. 
» IN assertion: the fields freq of dynjtree are set and the total of all 

* frequencies does not exceed 64K (to fit in an int on 16 bit machines). 
*/ 

local void set_data_type(s) 
11 deflate„state *s; 

il 

;~ int n =^ 0; 

unsigned ascii„freq - 0; 
fy unsigned bin_freq = 0; 

while (n < 7) bin_„freq -t-^ S">dyn„ltre0[n^H-] .Freq; 

:i while (n < 128) ascii_£req -^^ s->dyn_ltree [n+^l .Freq; 

while (n < LITERALS) bin_freq s ->dyn„l tree [n++] .Freq; 
SJ s->data„type * (Byte) (bin„freq > (ascii„freq >> 2) ? ZJINARY : Z^SCII); 

14 Reverse the first len bits of a code, using straightforward code (a faster 
'^J method would use a table) 
1*1 IN assertion: 1 <== len 15 

f<k.^l unsigned bi„reverse(cod0, len) 
f3 unsigned code;. /* the value to invert 
int len; /* its bit length */ 

register unsigned res =0; 
do { 

res t« code It 

code >>« i, res <<-^ 1; 
> while (--len > 0); 
return res >> 1; 



» Flush the bit buffer, keeping at most 7 bits in it. 
*/ 

local void bi„flush(s) 
deflate state *s; 

{ 

if (s->bi_valid 16) { 

put_short(s, s->bi„buf); 

s->bi3uf = 0; 

s->bi„valid « 0; 
} else if (s->bi„valid >- 8) { 

put„byte(s, (Byte)s-*>bi_buf ) ; 

s->bi_buf >>« 8; 

S'->bi„valid 8; 

} 

} 
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unsigned dist; /* distance of matched string 

unsigned Ic; /* match li&neth-MI5;?J4ATCH or unmatched char (if dist««0) «/ 

{ 

s->d„fouf [s->last_lit] » (ush)dist; 
s->l_buf [s->last_lit-f+] = (uch)lc; 
if (dist 0) { 

/* Ic is the unmatched char »/ 

s->dyn„ltree[lc] .Freg++; 
} else { 

s->matches++; 

/* Here, Ic is the match length - MIN^MATCH */ 
dist — ; dist = match distance - 1 »/ 

Assert ((ush) dist < (ush)MM_DIST(s) &Se 

(ush)lc <« (ush){MAXJ^ATCH-MIM„MATCH) 

(ush) decode (dist) < (ush)D_CODES. "„tr_tally: bad match*'); 

s - >dyn_l tree [„1 eng t h^code [ 1 c ] -f-L ITEmS+ 1 ] . Freq+ 4- ; 
s->dyn_dt3ree[d„code{dist) ] .Freq++; 

} 

#ifdef TRUKfCATEJLOCK 

/* Try to guess if it is profitable to stop the current block here 
if ((s->last„lit St OKlfff) 0 S;& s->level > 2) { 

/* Compute an upper bound for the compressed length 

ulg out.iength » (ulg)S">last.lit*8L; 

ulg in_length = (ulg) U long )s->strstart - s->block_start) ; 
int dcode; 

for (dcode « 0; dcode < DECODES; dcode^-*-) { 

out_length +=* ( ul g)s->dyn_dtree[ dcode ] ,Freq * 
r 1 ( 5L+es:t ra„db i t s [ dcode ] ) ; 

} 

*'"™ out„length >>« 3; 

in Tracev((stderr,"\nXast„lit Zu. in Zldr out "^ZldiXldZZ) 
fii s->last_lit, in_length, out„iength, 

'5 lOOL - out„length*100L/in„length)); 

%^ if (s->ffiatches < s->last„lit/2 outjength < in„length/2) return 1; 
#i^|idif 

r=i return (s->last_lit s->lit„bufsize-l) ; 

/* v^e avoid equality with Ixt^bufsize because of wraparound at 64K 
^ * on 16 bit machines and because stored blocks are restricted to 
13 * 64K-1 bytes. 

i*^ Send the block data compressed using the given Huffman trees 

3Gtd.l void compress„block(s, Itree, dtree) 
def late_state *s; 

ct„data *ltree; literal tree */ 
ct„data *dtree; /* distance tree */ 



unsigned dist; /* distance of matched string «/ 

int Ic; match length or unmatched char (if dist == 0) */ 

unsigned Ix 0; /* running index in l„buf */ 

unsigned code; /* the code to send */ 

int extra; /* number of extra bits to send */ 

if (s->last„lit I- 0) do { 
dist s->d_buf [Ik] ; 
Ic - s->l_buf [1k++]; 
if (dist 0) { 

send_code(s. Ic, Itree); /* send a literal byte */ 

Tracecv(isgraph(lc), (stderr/' '%c' Ic)); 
} else { 

/* Here, Ic is the match length - HIN„MATCH 
code * _length_code[lc] ; 

send„code(s, code+LITERALS+1, Itree); /* send the length code */ 
extra = extraj bits [code] ; 
if (extra i= 0) { 

Ic base_.length[code] ; 

send„bits(s, Ic, extra); /* send the extra length bits */ 
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maK_biixi<ieK « build_bl_tree(s) ; 

/* Determine the best encoding. Compute first the block length in bytes*/ 
opt__lenb = (s->opt_len4-34-7)>>3; 
static_lenb (s->static„len+3+7)>>3; 

Tracev({stderr. "\nopt ZlniZln) stat stored Zln lit Zu 

opt_lenb, s->opt„len, static„lenb, s->static_len, stored„len, 
s->Tast_lit)); 

if (static_lenb optjenb) optjenb ^ static„lenb; 

} else { 

Assert (buf I- {char*)G, "lost buf"); 
opt„lenb « static_lenb « storedjen + 5; /* force a stored block */ 

} 

#ifdef FORCE^STORED 

if (buf U (char*)0) { force stored block 
#else 

if (stored_len+4 opt_lenb Se& buf !- (char*)0) { 

/* 4: two words for the lengths «/ 

#endif 

/* The test buf !» MJLL is only necessary if LIT„BUFSIZE > WSIZE. 

* Otherwise can't have processed more than WSIZE input bytes since 

* the last block flush, because compression would have been 

* successful. If LIT_BUFSIZE WSIZE, it is never too late to 

* transforiR a block into a stored block. 

^5 „tr„stored_block(s, buf, stored„len, eof); 
^®ldef FORCE^SXATIC 

ry } else if (static_lenb >= 0) { /* force static trees «/ 
#eise 

} else if (static_lenb opt_lenb) { 
#e4dif 

send3its(s, (STATIC_TREES«l)+eof , 3); 

compress.block(s, (ctjata *) statical tree, (ct_data *)static„dtree) ; 
Mdef DEBUG 

s->compressed_len +« 3 4- s->stat2c„len; 

#Jdif 

} else { 

send_bits(s, (DYN„TREES<<l)+eof , 3); 
ly send_all„trees (s, s->l„desc ,max„code-i-l, s->d„desc ,maK_code+l, 
M ma5t„bl2.J^des+l) ; 

compress„block (s, (ct data *)s->dyn_itree, (ct„data *)s->dyn„dtree) ; 
^f^Jdef DEBUG 

W s->coinpressed_ien 3 + s->opt„len; 
#endif 
} 

Assert (s->compressed_len s->bits_sent, "bad compressed size"); 
/* The above check is made mod 2^*^32, for files larger than 512 MB 

* and uLong implemented on 32 bits. 

»/ 

init„biock{s) ; 

if (eof) { 

bi_jwindup(s) ; 
#ifdef DEBUG 

s->compressed„len -^-^^ 7; /* align on byte boundary */ 

#endif 
} 

Tracev( (stderr/'Nncomprlen ^lu(%lu) S'*>compressed„len>>3, 
s->coinpressed„len-7*eof ) ) ; 

} 

* Save the match info and tally the frequency counts. Return true if 

* the current block must be flushed. 
#/ 

int „tr_tally (s^ dist^ Ic) 
def late_state »s; 
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copy_bloc^(s, bu£r (unsigned )stor0d„len, 1); /* with header »/ 

} 

* Send one empty static block to give enough lookahead for inflate. 

* This takes 10 foits^ of which 7 may remain in the bit buffer. 

» The current inflate code requires 9 bits of lookahead. If the 

* last two codes for the previous block (real code plus EOB) were coded 

« oxi 5 bits or less, inflate may have only S+3 bits of lookahead to decode 
» the last real code. In this case we send two empty static blocks instead 

* of one. (There are no problems if the previous block is stored or fined.) 
« To simplify the code, we assume the worst case of last real code encoded 
» on one bit only. 

*/ 

void „tr_align{s) 

deflate„state *s; 

^ send„bits(s, STATIC_TREES<< U 3); 

send„code(s, END„BLOCK, staticjtree) ; 
#ifdef DEBUG 

s->compressed„len +^ lOL; /* 3 for block type, 7 for EOB 
#endif 

bi.flush(s) ; 

Of the 10 bits for the empty block, we have already sent 
» (10 - bi_valid) bits. The lookahead for the last real code (before 
« the EOB of the previous block) was thus at least one plus the length 
* of the EOB plus what we hav^ just sent of the empty static block. 
»/ 

fl if (1 + s->last„eob len + 10 - S">bi_valid < 9) { 
7i send_bits(s, STATIC_TREES<< 1, 3); 

It send„code(s, EHD„BLOCK, static„ltree) ; 

Mfde£ BEBm 

fy s->compressed_len lOL; 

#i^dif 

bi_flush(s); 
"^J s->last„eob„len ^7; 

o 

H Determine the best encoding for the current block: dynamic trees, static 
trees or store, and output the encoded block to the zip file. 

^|^d _tr„f lush_block(s, buf, stored„len, eof) 
H def late.state *s; 

ri charf *buf; /* input block, or NULL if too old 

1% nls stored_len; length of input block */ 

int eof; /* true if this is the last block for a file */ 



ulg optjenb, staticjenb; /« opt.len and staticjen in bytes */ 

int maK„bl index ==0; /» index of last bit length code of non zero freq */ 

/* Build the Huffman trees unless a stored block is forced 
if (s->level > 0) { 

y* Check if the file is ascii or binary */ 
if (s-">data_type ZJ15KN0V^) set„data„type(s) ; 

/* Construct the literal and distance trees 
buiid^tree^s, (tree_desc *) (£e(s-*>l„desc) ) ) ; 
Tracev( (stderr, "\nlit data: dyn %ld, stat Zld'\ s->opt„len, 
s->static_len) ) ; 

build„tree(s, (tree„desc «) (a(s-'>d„desc) ) ) ; 
Tracev((stderr, "\ndist data: dyn %ld, stat ^id", s->opt„len, 
s->static_len) ) ; 

/» At this point, optjen and static Jen are the total bit lengths of 

* the compressed block data, excluding the tree representations. 
«/ 

/« Build the bit length tree for the above two trees, and get the index 

* in bl„order of the last bit length code to send. 
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} 



def iate_staite »s; 

int raax_blindes; inden of last bit length code of non zero freg */ 

Determine the bit length frequencies for literal and distance trees */ 
scan„tree(s, (ct„data »)s->dyn„Itree,. s->l_desc ,maK_code) ; 
scan_tree(s, (ct_data *)s->dya„dtres, s->d_desc .max.code) ; 

/* Build the bit length tree: */ 
build_tree(s, (tree.desc «) (£c(s->bl„desc) ) ) ; 

opt„len now includes the length of the tree representations, except 

» the lengths of the bit lengths codes and the 5-f5+4 bits for the counts 

*/ 

Determine the number of bit length codes to send. The pkzip fomat 
» requires that at least 4 bit length codes be sent, (appnote.txt says 
* 3 but the actual value used is 4.} 
»/ 

for (man blindex - BL„C0DES*-1; max_blxndeK 3; maK„blinde3c— ) { 
if (s->bl.tree[bl_order[i£ias_blindeKl] .Len 0) break; 

/* Update opt_len to include the bit length tree and counts */ 
s->optJen ■i-'^ 3*(maK„bliii<ieK4-l) -i- 5+5+4; 
Tracev( (stderr, "\ndyn trees: dyn **ld, stat ^Id", 
s->opt_len, s-*>static„len) ) ; 

return maK_bl index; 



Send the header for a block nsixis dynamic Huffman trees: the counts, the 
M lengths of the bit length codes, the literal tree and the distance tree. 
m assertion: Icodes >^ 257, dcodes >- 1, blcodes >^ 4. 

ipcd^l void send„all_trees(s, Icodes, dcodes, blcodes) 
r'"; def late_state *s; 

int Icodes, dcodes, blcodes; number of codes for each tree 

H 

fi int rank^ index in bl_order */ 

^ Assert {Icodes 25? &S= dcodes blcodes >« 4, "not enough codes") 

£3 Assert (Icodes <« L„CODES dcodes <- DECODES blcodes BL„CODES, 
%A "too many codes'*}; 

.1 Tracev( (stderr, "xnbl counts: ")); 

send_bits(s, lcodes-257, 5); /* not +255 as stated in appnote.txt */ 
M send„bits(s, dcodes-1, 5); 

ri send„bits(s, blcodes-4, 4); /» not -3 as stated in appnote.txt */ 
22 for (rank = 0; rank < blcodes; rank++) { 

Tracev( (stderr, *^\nbl code X2d bl_order[rank] ) ) ; 

send_bits(s, s->bl„tree[bl_order[rank] ] *Len, 3); 

} 

Tracev( (stderr, "\nbl tree: sent %ld", s->bits_sent) ) ; 

send_tree(s, (ct_data *)s->dyn_ltree, lcodes-1); /* literal tree */ 
Tracev( (stderr, "\nlit tree: sent %ld", s->bits„sent) ) ; 



} 



send„treej(s, (ct„data »)s->dyn„dtree, dcodes-l); distance tree */ 
Tracev( (stderr, "\ndist tree: sent %ld", s->bits_sent) ) ; 



* Send a stored block 
»/ 

void _tr„stored„block(s, buf, stored_len, eof) 
def late„state *s; 

charf *buf; /* input block */ 

ulg stored„len; length of input block */ 

int eof; /* true if this is the last block for a file *y 

send„bits(s, (STOR£D_BLOCK<< l)+eof , 3); /* send block type */ 
#ifdef DEBUG 

s->compressed_len = (s->compressed_len + 3 + 7) & (ulg)'"7L; 
s-'>conipressed„len +« (stored„len + 4) << 3; 
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s->bl_tree[REP_3_6] -Freq-i-+; 
} else if (count <- 10) { 

s->bl_trea[REPZ„3_10] .Fr8q++; 
} else { 

s->bl tree [REPZ^l 1^138 ] .Freq++; 

} 

count « 0; prevlen - curl en; 
if (nextlen 0) { 

max„count = 138^ min„count 3; 
} else i£ (curlen «^ nestlen) { 

maK_count =^5^ min„count = 3; 
} else { 

max count ==7, min^count « 4; 

> 



} 



* Send a literal or distance tree in compressed form, using the codes in 

* bl„tree. 
«/ 

local void send„tree (s. tree, max_code) 
def late_stats *s; 

ct„data *tree; /* the tree to be scanned */ 

int maK_code; /* and its largest code of non zero frequency */ 

^ ijit n; /* iterates over all tree elements */ 

int prevlen « -1; /* last emitted length »/ 

int curlen; /* length of current code */ 
Q int nextlen - tree[01.Len; /* length of neKt code */ 

iBt count ^0; /* repeat count of the current code */ 

li int ma:r„count = 7; /* max repeat count */ 

int rain count - 4; min repeat count */ 

1.1 /* tree[max_code-M] .Len --!;*/ /* guard already set */ 
^''1 if (nestlen 0) mas„count - 138, min„count = 3; 

""•4 for (n 0; n maK„code; n++) { 

curlen = nejctlen; nextlen « tree [n+1] .Len; 
if (++ccunt < HiaK_count ScSc curlen nestlen) { 
continue; 

13 } else if (count < min_count) { 

^.j do { send.codeCs, curlen, S">bl„tree); > while (—count 1-0); 

} else if (curlen !- 0) { 
1^^ if (curlen i« prevlen) { 

n send„code(s, curlen, s->bl„tree); count—; 

} 

Assert (count 3 count 6, " 3_6?"); 

send„code(s, REP_3„6. s->bl_tree); send^bitsCs, count-3, 2); 

} else if (count <- 10) { 

send_code(s, REPZ„3_10, s->bl_tree); send_bits(s, count-3, 3); 

Ij, 0Xse 

send.code(s, REPZ„11„138, s->bl„tree); send_bits(s, count-11, 7). 

count 0; prevlen ^ curlen; 
if (nextlen 0) { 

mas_count ^ 138, min„count - 3; 
} else if (curlen neKtlen) { 

maK_count ^6, mm^count - 3; 
} else { 

siax„count 7, min„count « 4; 

} 

} 

} 

* Construct the Huffman tree for the bit lengths and return the indeK in 

* bl_order of the last bit length code to send. 

local int build^bl.tree (s) 
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desc->maK_code = maK„code; 

/* The elements heap [heaLp_len/'2-i-l heap„len] are leaves of the tree, 

* establish sub-heaps of increasing lengths: 
»/ 

for (n - s->heap_len/2; n >« 1; n— -) pqdownheap(s, tree, n); 

/* Construct the Huffman tree by repeatedly combining the least two 

* frequent nodes. 
*/ 

node *= elems; next internal node of the tree 

do { 

pq3remove(s. tree, n); /* n - node of least frequency */ 

m - s->heap [SMALLEST]; /» m « node of nest least frequency */ 

s->heap[--(s->heap_maK) ] - n; /* keep the nodes sorted by frequency * 
s->heap[— (s->^^sip-i^^x)3 

/* Create a new node father of n and m »/ 
tree [node ] .Freq - tree[n].Freq + tree[ml .Freq; 
s->depth[node] = (uch) (MAX(s->depth [n] , s->depth[m]) + 1); 
trea[n].Dad - tree[m].Dad « (ush)node; 
#ifdef DUMPJL^TREE 

if {tree s->bl„tree) { 

fprintf (stderr/'Nnnode %d(%d), sons %d(%d) %d(^)". 

node, tree [node] .Freq, n, tree[n] .Freq, m, tree[m] .Freq) 

} 



#endif 



/» and insert the new node in the heap 
s->heap[SMM.LESTl node++; 
pqdownheap(s, tree, SM^iLLEST) ; 

} while (s->heap_len 2); 

s->heap[— (s->heap„max)] s->heap[SM^LEST] ; 

/» At this point, the fields freq and dad are set. We can now 
* generate the bit lengths. 
*/ 

gen„bitlen(s, (t3ree„desc »)desc); 

The field len is now set, we can generate the bit codes 
gen„codes ( (ct_data »)tree, max„code, s->bl_count ) ; 



M 

Ci Scan a literal or distance tree to determine the frequencies of the codes 
in the bit length tree. 

local void scan_tree (s, tree, man^code) 
def late^state *s; 

ct_data *tree; /* the tree to be scanned */ 

int max code; /* and its largest code of non zbto frequency */ 



{ 



ixit n; x» iterates over all tree elements »/ 

int prevlen « -1; ^* last emitted length */ 

int curl en; /* length of current code */ 

int neKtlen ^ tree[0].Len; /* length of next code «/ 

int count « 0; repeat count of the current code */ 

int mass^count - 7; /* man repeat count */ 

int min_count * 4; /* min repeat count */ 

if (neKtlen " 0) mas count « 138, min_count = 3; 
tree [inax^code+l], Len « (ush)OKffff; guard */ 

for (n 0; n <== maK„code; n++) { 

curlen « nextlen; nextlen ^ tree [n+1] .Len; 

if (++i::ount < inaK^count curlen nextlen) { 

continue; 
} else if (count < min„count) { 

s->bl„tree [curlen] .Freq count; 
} else if (curlen 1 0) { 

if (curlen prevlen) S">bl„tree [curlen] .Freq++; 
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int bits; J^it indsK */ 

ixit n; ccd^ index «/ 

/* The distribution counts are first used to generate the code values 

* without bit reversal . 
*/ 

for (bits - 1; bits MAX^BITS; bits++) { 

nest„codelbits} * code - (code + bl„count [bits-l] ) << 1; 

/* Check that the bit counts in bl„count are consistent. The last code 

* must be all ones. 

Assert (code + bl„count [MAX JITS] -1 (1<<MAXJITS) -U 

"inconsistent bit counts"); 
Tracev((stderr/'\ngen„codes: maK^code %d maK^code)}; 

for (n « 0; n max_code; n++') { 
int len = tree[n].Len; 
if (len === 0) continue; 
/* How Inverse the bits */ 

tree[n3.Code = tai„reverse (next^code [len]++, len); 

Tracecv(tree !» staticjtree, (stderr/'xnn %3d ^c 1 %2d c Z4z (X^) % 
n, (isgraph(n) ? n : ' len, tree[n] .Code, next^codetlen]-!) ) 

} 

} 

/* ««=.^=.==«=^«:.«^«^=««=.=«-=.«««--««««-=-==«*'«-==-=--=-='*'-^='«''^"'"=="===^=*'* 
* Construct one Huffman tree and assigns the code bit strings and lengths. 

Update the total bit length for the current block. 
r-1 IN assertion: the field freq is set for all tree elements. 

OUT assertions: the fields len and code are set to the optimal bit length 
H and corresponding code. The length opt„ien is updated; static„len is 
also updated if stree is not null. The field maK„code is set. 

IL^ical void build_tree(s, desc) 
I'! def late_state *s; 

'"""^ tree„desc *desc; /* the tree descriptor */ 

13 

ct_data *tree ^ desc->dyn„tree; 

const ct_data «stree « desc->stat_desc->static_tree; 
'^3 int elems desc->stat_desc->elems; 
'"J int n, m; /* iterate over heap elements »/ 

int maK„code - -1; /* largest code with non zero frequency */ 

int node; new node being created */ 

£3 /* Construct the initial heap, with least frequent element in 
r1 * heap [SMALLEST] . The sons of heap[n] are heap[2*n] and heap[2*n+l]. 
"""^ « heap[0] is not used. 
*/ 

s->heap_len - 0, s->heap_maK « HEAP_SIZE; 

for (n « 0; n < elem^; n-H+) { 
if (treefn] .Freq I - 0) { 

s->heap[++(s->heap„len) ] « max_code = n; 

s->depth[n] « 0; 
} else { 

treefn] .Len ^ 0; 

} 

} 

/« The pk2ip format requires that at least one distance code exists, 

* and that at least one bit should foe sent even if there is only one 

* possible code. So to avoid special checks later on we force at least 

* two codes of non zero frequency. 
»/ 

while (s->heap_len < 2) { ^ ^^ 

node « s->heap[++(s->heap_len)] ^ {max^code < 2 ? ++max_code : 0); 
tree [ node ] . Freq « 1 ; 
s->depthlnode3 =0; 

s->opt„len— ; if (stree) s->static„len — stree [node] .Len; 
/* node is 0 or 1 so it does not have extra bits »/ 

} 
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*/ 

tree[s->heap[s~>heap_maK]l .Len « 0; /* root of the heap «/ 

for (h - s->heap_max+l; h < HEAP^SIZE; h++) { 
n « s->heap[h]; 

bits = tree [tree [n] .Dad] -Len + 1; 

if (bits > maK^length) bits « maKjength, overf iow+-*-; 

tree[n].Len ^ ^^s^)^^^"^^' 

We overwrite tree[n].Dad which is no longer needed 

if (n > maK_code) continue; /* not a leaf node 

s->bl_count [bits ]++ ; 
Kbits - 0; 

if (n base) Kbits - extra [n -base ] ; 
f ^ tree[n] -Freg; 

s->opt„len (ulg)f * (bits + Kbits); 

if (stree) s->static_len (uig)f * (stree[n] .Len + xbits); 

} 

if (overflow ^« 0) return; 
Trace ((stderr/'\nbit length overf lowNn'*} ) ; 

/* This happens for example on obj2 and pic of the Calgary corpus */ 

/* Find the first bit length which could increase: »/ 
do { 

bits « max_length"l; 

while Cs->bl_count [bits] 0) bits--; 

s->bl count [bits] — ; move one leaf down the tree */ 

s~>blIcount[bits+l] -f^ 2; /* move one overflow item as its brother */ 
s->bl_count [maxjength ] — ; 

/« The brother of the overflow item also moves one step up, 
* but this does not affect bl_count [max^length] 
«/ 

overflow 2; 
} while (overflow > 0); 

/* How recompute all bit lengths, scanning in increasing frequency. 

* h is still equal to HEAP_SIZE. (It is simpler to reconstruct all 

* lengths instead of fixing only the wrong ones- This idea is taken 

* from 'ar^ written by Haruhiko Okumura.) 
•/ 

for (bits ^ masjength; bits t- 0; bits—) { 
n « s->bl„count [bits] ; 
while (n i- 0) { 

m « s->heap[ — h]; 
C:i if (m > mas„code} continue; 

i'i if (tree[m].Len i- (unsigned) bits) { 

Trace ((stderr, "code Zd bits %d->%dxn", m, tree [m]. Len. bits)); 
s->opt„len ((long)bits - (long) tree [m] -Len) 

* (long) tree [m] .Freq; 
tree[m].Len = (ush)bits; 

} 

n — ; 



} 



} 

} 



* Generate the codes for a given tree and bit counts (which need not be 

* optimal ) . , • ^ ' 1- 

* IN assertion: the array bl^count contains the bit length statistics for 

* the given tree and the field len is set for all tree elements, 

* our assertion: the field code is set for all tree elements of non 

* 2ero code length. 
*/ 

local void gen„codes (tree, max_code, bl„count) 

ct data *tree; /* the tree to decorate 

int maK^code; largest code with non zero frequency */ 

ushf *bl„count; /* number of codes at each bit length */ 

^ Msh next code[MJ!i:^„BITS+13 ; /* nest code value for each bit length */ 
ush code""« 0; running code value «/' 
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} 



pqdowttheap(s, tree, SMALLEST); \ 



/« ««=U 

» Compares to subtrees, using the tree depth as tie breaker when 
» the subtrees have equal frequency. This minimizes the worst case length. 
*/ 

#define smaller (tree, n. depth) \ 
(tree[n3 -Freq < tree[ml*Freq \\ x 

(tree[n] .Freg tree[m].Freq depthfn] <- depth[m])) 



* Restore the heap property by moving down the tree starting at node 

* exchanging a node with the smallest of its two sons if necessary, stopping 
« when the heap property is re-established (each father smaller than its 

* two sons) . 
*/ 

local void pqdownheap(s, tree, k) 
def late„state *s; 

ct_data *tree; /» the tree to restore */ 
ifit k; node to move down */ 



{ 



int V « s->heap[k]; 
int j « k << 1; /* left son of k 
while (j <= s->heap„len) { 
/» 



if 



} 

/* 
if 



Set j to the smallest of the two sons: */ 
(j < s->heap„len StSc 

smaller (tree. s->heap [j+1] . s->heaplj]. s->depth)) { 

EKit if V is waller than both sons »/ 
(smaller (tree. v. s->heap[j]. s-'>depth)) break; 



fy /» Exchange v with the smallest son */ 

Q s->heap[k] - s->heap[j]; k » j; 

^'i /« And continue down the tree, setting j to the left son of k «/ 

H j <<- 1; 

^ s->heap[k] - v; 

S:?^ Compute the optimal bit lengths for a tree and update the total bit length 
;> for the current block. 

^''^ m assertion: the fields freq and dad are set. heap [heap„max] and 
C> above are the tree nodes sorted by increasing frequency. 

OUT assertions: the field len is set to the optimal bit length, the 
array bl count contain© the frequencies for each bit length. 

* The length opt„len is updated; staticjen is also updated if stree is 

* not null . 



local void gen„bitlen(s, 
def late_state *s; 
tree_desc *desc; 



{ 



ct_„data *tree 
int maK„code 
const ct_data *stree 
const intf *eKtra 
int base 
int ma^ijength 
int h; 
int n. m; 
int bits; 
int Kbits; 
ush f; 

int overflow =0; 



desc) 

/* the tree descriptor »/ 

= desc->dyn_tree; 
« desc->max„code; 
« desc">stat„desc->static„tree; 
« desc->stat„desc->es:tra„bits; 
« desc->stat_desc->extra„base; 
^ desc->stat„desc->maK„length; 
/* heap index */ 

/» iterate over the tree elements */ 
/* bit length */ 
/* extra bits */ 
/« frequency 

/* number of elements with bit length too large */ 



for (bits * 0; bits <« MAXJITS; bits++) s->bl„count [bits] - 0; 

In a first pass, compute the optimal bit lengths (which may 
* overflow in the case of the bit length tree). 
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fprintf (header, ''ZIvlXb" , bas0„length[i ] , 
SEPARATOR! i, LE^GTH^CODES-l, 20)); 

} 

fprintf (header, "local const iat base^dist [DECODES] « {\n"); 
for (X - 0; i < DECODES; i++) { 
fprxntf (header, "%5u%s", base^dist [i] . 
SEPARATOR(i, DECODES- 1, 10)); 

} 

f close (header) ; 
#endif /* GEHJTREESJi »/ 

» Initialize the tree data structures for a new zlib stream. 
*/ 

void „tr„init(s) 

deflate„state *s; 

{ 

tr„static_init { ) ; 

s->l„desc.dyn„tree « s*>dyn_ltree; 
s->i„desc,stat_desc « £rBtatic„l_desci 

s->d„desc.dyn„tree « s->dyn„dtree; 
s->d_desc.stat„desc - £cstatic_d_desci; 

s->bl_desc.dyn„tree « s->bi„tree; 
O s->fol_desc,stat_jdesc * £static31-d^sc; 

fri s->bi_buf 0; 
s->bi„valid « 0; 

s-'>last„eob„len 8; /* enough lookahead for inflate 
fSfdef DEBUG 

Hj s->compressed„len = OL; 
I't s->bits_sent - OL; 
Mndif 

l"^ Initialize the first block of the first file: 

init_biock(s); 



1% Initialize a new block. 

C&cal void init_block(s) 
deflate^state *s; 

int n; /* iterates over tree elements */ 
/* Initialise the trees. */ 

for (n - 0; n < L„COBES; n++) s->dynjtree[n] .Freq - 0; 

for {n - 0; n < DECODES; n+-f) 3->dyn.dtree[n] ,Freq - 0; 

for (n - 0; n < BL„CODES; n-i-+) s->bl_tree [n] -Freq - 0; 

s->dyn^ltree[EHD„BLOCK].Freq - 1; 
s->opt_.le» ^ s->static_len * OL; 
s->last_lit = s->matches 0; 

} 

#define SMALLEST 1 . .r- ^ 

/« Index within the heap array of least frequent node m the Huffman tree «/ 



« Remove the smallest element from the heap and recreate the heap with 

* one less element. Updates heap and heap.len. 

*/ 

#define pqremove(s, tree, top) \ 
top - s->heap [SMALLEST]; \ 

s->heap [SMALLEST] - s->heap[s->heap_len— -] ; \ 
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Construct the codes of the static literal tree «/ 
for (bits « 0; bit3 MJ^^BITB; bits++) bl„count [bits] - 0; 
n * 0; 

while (n <« 143) statical tree [n++] .Len = 8, bl^count [8]t+; 
while (n <= 255) static^ltree [n++] .Len « 9, bl_count {9]++; 
while (n <- 279) static_ltree{B-^+3 .Len « 7^ bi^count {7]++; 
while (n <^ 287) static_ltree[n++] .Len - 8, bl^courtt [Sj-^-i'; 
/» Codes 286 and 287 do not esist^, but we must include them in the 
» tree construction to get a canonical Huffman tree (longest code 

* all ones) 
«/ 

gen„codes{ (ct_ddta *) statical tree, L„C0DES+1, bl„count); 

The static distance tree is trivial: */ 
for (n « 0; n < D_CODES; n++) { 
static„dtree [n] .Len - 5; 

static dt3ree[n} .Code = bx^reverse ( (unsigned )n, 5); 

} 

static„init_done 1; 

# ifdef GENJIREES^H 

gen„trees_he^'^^2r(} ; 

# endif 

#endif /* def ined(GEH„TRE£SJi) H idef ined (STDC) */ 
} 

» Genererate the file trees. h describing the static trees. 

#i^fdef GEN_TREES„H 
#3 ifndef DEBUG 
#q include <stdio.h> 
II j endif 

#3 define SEPARATOR (i , last, width) \ 
hi ((i) (last)? "\n};\n\n» : \ 

((i) 2£ (width) (width)-! ? "An*' : ")) 

Wid gen„trees„header ( ) 

,4 

FILE *header = f open {" trees. h'^ "w"); 
int i; 

I J Assert (header ISIULL^ "Can't open trees. h"); 
s"! fprintf (header, 

I'Z 'V* header created automatically with *DGEH_TREES„H */\n\n"); 

ri fprintf (header. '*local const ct_data static_ltreetL_C0DES+2] ^ {\n"); 
for (i « i < L„C0DES4.2; i++) { 

fprintf (header, "{{5£3u}4%3u}}%s", stdtic„ltree[i] .Code* 
static„ltree[i] .Len. SEPARATOR(i, L„CODES+i, 5)); 

} 

fprintf (header, "local const ct_data static_dtreet DECODES] * {\n*'); 
for (i = 0; i < DECODES; 1++) { 

fprintf (header, "{{%2u},{%2u}}5£s*' , static„dtree[i] .Code, 
static_dtree[i] .Len, SEPARATOR(i, D„C0DES-1, 5)); 

} 

fprintf (header, "const uch _dist_code[DIST_„CODE„LEM] = {^n"); 
for (i - 0; i < DIST„CODE_LEKf; iH-+) { 
fprintf (header, "Z2vi^"r „dist_code[i ] , 
SEPARATOR(i, DIST„CODE_LEl^^-l, 20)); 

} 

fprintf (header, "const uch „length_code [MAX_MATCH-MIiSr_MATCH+l]- {\n") 
for (i « 0; i < MAX_HATCH-MIN_MATCH+1; i+4-) { 
fprintf (header, "%2u^"^ _length_code[i] , 
SEPARATOR(i, MAX„MATCH-MIHJ^TCH, 20)); 

} 

fprintf (header, "local const int base„length[LEl3GXH„C0DES] « {vn"); 
for (i - 0; i < Lm(mi_COmS ;^ i-^-h) { 
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int val value;\ 

s->bi.tef 1« (val << s->bi_valid);\ 
put short (s, s->bi_buf);\ 

s->bi_buf - (ush)val >> (Buf„siz»& - s->bi„valid) ; 
s->foxlvalid len - Buf.size;\ 
y else {\ 

s->bi_buf 1« (value) << s->bi_valid;\ 
s->bi valid leji;\ 

}\ 

} 

#endif /* DEBUG */ 



#define MAX{a.b) (a >- b ? a : b) 

/* the argximents nmBt not have side effects */ 



* Initialize the various * constant' tables, 
local void tr_static_xnit() 

#if defined (GEH„TREES„H) |1 Idef ined (STDC) 

static int static_init„done « 0; 

int n; iterates over tree elements */ 

int bits; bit counter */ 

int length; /* length value */ 

int code; code value */ 

int dist; /* distance xndeK */ 
,^ ush bl„count[MliX„BITS+l]; 

O /« number of codes at each bit lenjgth for an optimal tree */ 
if (static_init„done) return; 

fy /* For some embedded targets, global variables are not initialized 

\j static_l„desc.static_tree - statical tree; 

id static_l_desc.eKtra„bits « eKtraJbits; 

J; Stat ic_dldesc, Stat ic„tree « static„dtree; 

""""^ static_d„desc.eKtra„bits - eKtra^dtaits; 

13 static_bi_desc.eKtraJ:>its = estrajslbits; 

:^ /» Initialize the mapping length (0..255) -> length code (0..28) * 
length « 0; 

'Sj for (code = 0; code < LEMGIH_C0DES-1; code++) { 
5 J base„length[code] - length; 

for (n « 0; n < ( l<<eKtra„l bits {code] ) ; n-i-^) { 
^length code[length++J = {uch)code; 

O } 

^"^ Assert (length 256. "tr_static„init : length !- 256"); 

Note that the length 255 (match length 258) can be represented 

* in two different ways: code 284 + 5 bits or code 285, so we 

* overwrite length„code[255] to use the best encoding: 
»/ 

_length_code[ length- 1] = (uch)code; 

/* Initialize the mapping dist (Q,.32K) -> dist code (0..29) */ 
dist =0; 

for (code « 0 ; code < 16; code++) { 
base_dist [code] « dist; 

for (n 0; n < ( l<<eKtra_dbits [code] ) ; n++) { 
„dist„code[dist++] - (uch)code; 

} 

Assex-t (dist — 256, "tr„static_init : dist !« 256"); 
dist 7; /* from now on. all distances are divided by 128 */ 
for ( ; code < DECODES; code-i-+) { 
base_dist[code3 - dxst << 7; 

for (n « 0; n < (1<< (estra_dbits[code]-7) ) ; n++) { 
„dist„code[256 + dist-^-i-] = (uch)code; 

} 

Assert (dxst 256, "tr_static„xnit : 256+dist 512"); 
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local void build„tree 0F( (de£late_state *s, tree^desc *desc)); 
local void scan^tree 0F( (deflate^state *s, ct„data *tree, int maK„code)) 

local void send^tree OF ( (def late^state *s, ct„data *tree. int max„code)) 

local int build_bl„tree 0F( (def late„state *s)); 

local void send.all^trees OF ( (def late.state *s, int Icodes, xnt dcodes, 

int blcodes) ) ; 

local void compress„block OF({def late^state ct_data *ltree, 

ct_data *dtree)); 
local void set„4ata_type 0F{ (deflate^state *s)); 
local unsigned bi^reverse OF ((unsigned value, int length)); 
local void bi„windup OF ( (def late^state *s)); 

local void bi„flush 0F( (def late^state »s)); 

local void copy„block 0F{ (def late„state *s, charf *buf, unsigned len. 

int header) ) ; 



#ifdef GEH^TREES^H 

local void gen_trees_he^ct^x^ OF ((void)); 
#endif 



#ifndef DEBUG 



# define send_code(s, c. tree) send_bits(s, tree[c] .Code, tree[c].Len) 

/* Send a code of the given tree, c and tree must not have side effects */ 

#else /» DEBUG */ 

# define send_code(s, c, tree) \ 

{ if (z_verbose>2) fprintf (stderr/'xncd %M '^(c)); \ 
send„bits(s, tree[c] -Code, tree[c] .Len) ; } 

#endif 



In Output a short LSB first on the stream, 

:1 IH assertion: there is enough room in pendingBuf- 

%%/ 

lyiefine put„short(s, w) { \ 

,1 put„byte(s. (uch)((w) £e Osff)); \ 

.'"^ put_byte{s. (uch) ( (^sh) (w) >> 8)); \ 

'^'"'^ Send a value on a given number of bits, 

^* IN assertion: length 16 and value fits in length bits. 

^ifdef DEBUG 

llscal void send^bits OF ( (def late„state *s, int value, int length)); 

llticai void send„bit3(s, value, length) 
1 3 deflate„state *s; 

int value; /« value to send */ 
'-"^ int length; /* number of bits */ 

Tracew({stderr/' 1 %2d v length, value)); 

Assert (length > 0 St& length 15, "invalid length'*); 
s->bits_sent (ulg)length; 

/* If not enough room in bi_buf, use (valid) bits from bi„buf and 
* (16 - bi„valid) bits from value, leaving (width - (16-bi„valid) ) 
« unused bits in value. 
«/ 

if (s->bi„valid > (int)Buf„si2e - length) { 
s->bi_buf (value << s->bi„valid) ; 
put„short{s, s->bi_buf); 

s->bi„buf = (ush)value >> (Buf^size - S">bi_valid) ; 
s->bi_valid length - Buf_sise; 
} else { 

s->bi„buf 1=* value << s->bi_valid; 
s->bi„valid length; 

} 

} 

#else /* 3 DEBUG */ 



#define send3its(s, value, length) \ 
{ int len = length;\ 

if (s->bi_valid > (int )Buf_si2e - len) {\ 
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*/ 



#define Buf„size (S * 2*si2eof (char) ) 

/* Number of bits used within bi^buf . (bi^uf might be implemented on 
» more than 16 bits on some systems.) 
*/ 

* Local data. These are initialized only once. 
»/ 

#define DIST„CODE_LElsr 512 /* see definition of array dist_code below */ 

#if defined (GEH^TREES^H) M Idef ined(STDC) 

/* non ANSI compilers may not accept trees. h »/ 

local ct„data s tat ic_l tree [L_C0DES+2] ; 

/» The static literal tree. Since the bit lengths are imposed, there is no 

* need for the L.CODES eKtra codes used during heap construction. However 

* The codes 286 and 287 are needed to build a canonical tree (see „tr_init 

* below) , 
«/ 

local ct^data static^dtree [DECODES ] ; 

The static distance tree. (Actually a trivial tree since all codes use 
« 5 bits.) 



uch „dist„code[DIST„COBE„LEN]; 

t% Distance codes. The first 256 values correspond to the distances 
3 258, the last 256 values correspond to the top 8 bits of 
the 15 bit distances. 



„length„code [MAX_MATCH-MIH_MATCH+ 1 ] ; 
yff length code for each normalized match length (0 



MIH„MATCH) */ 



Itical int base_length[LENGTH_CODES]; 

t% First normalized length for each code (0 ^ MIN„MATCH) */ 

local int base^dist [DECODES] ; 

First normalized distance for each code (0 « distance of 1) »/ 

^fplse 

W include "trees. h" 
^^S^ndif /* GElsIjrREESJi »/ 



J^^ruct static_tree_desc„s { 

const ct_data *static„tree; 

const mtf *eKtra_bits; 

int eKtra^base; 

int eiems; 

int maK_length; 



/» static tree or MJLL «/ 

/» extra bits for each code or NULL */ 

/* base index for extra„bits */ 

/* max number of elements in the tree */ 

/* man bit length for the codes */ 



local static_tree„desc static_Uesc ^ 

{statical tree, estra_lbits, LITERALS+U L^COBES, HM_BITS}; 



local static_tree„desc static_d„desc 
{static_dtree, extra^dbits, 0, 



DECODES, MI^JITS}; 



local static„tree_desc static„bl^desc « 

{(const ct^data *)0, extra^lbits. 0, BL„COBES, MAX_BL„BITS>; 



K SB SS S 3$ 



* Local (static) routines in this file* 



local void tr_static_init OF ((void)); 



local void init„block 
local void pqdownheap 
local void gen_bitlen 
local void gen_codes 



OF ( (def late^state *s) ) ; 
0F( (deflate„state ct_data *tree, int k)); 
0F( (deflate_state »s, tree_desc »desc)); 
OF((^"^«data *tree, int max^code, ushf *bl„count)) 
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/* trees, c -~ output deflated data using Huffman coding 

* Copyright (C) 1995-1998 Jean-loup Gailly 

* For conditions of distribution and use, see copyright notice in zlifo.h 
*/ 

/« 

» ALGORITHM 
« 

» The "deflation" process uses several Huffman trees. The more 

* common source values are represented by shorter bit sequences. 
« 

* Each code tree is stored in a compressed fom which is itself 

* a Huffman encoding of the lengths of all the code strings (in 

* ascending order by source values) . The actual code strings aire 

* reconstructed from the lengths in the inflate process, as described 

* in the deflate specification. 
« 

* RBFEREKfCES 
« 

* Deutsch, L. P., "'Deflate' Compressed Data Format Specification". 
» Available in ftp.uu » net i/pub/archiving/zip/doc/def late- 1 . 1. doc 
« 

* Storer, James A. 

* Data Compression; Methods and Theory, pp. 49-50. 

* Computer Science Press, 1988. ISBN 0-7167-8156-5. 
« 

* Sedgewick, R. 

» Algorithms, p290. 

» Addison-Wesley, 1983. ISBN 0-201-06672-6. 

\%/ 

/I @C#) $Id5 »/ 

Uk #define GEH^TREES^H */ 

^include "deflate -h" 

Mfdef DEBUG 

inclndB <ctype.h> 
lend if 

Constants 

liMef ine MAX„BL„BITS 7 

PJ Bit length codes must not exceed MAX_BL„BITS bits »^ 

%efine EHDJLOCK 256 

end of block literal code 

#define REP„3_6 16 

/-* repeat previous bit length 3-6 times (2 bits of repeat count) */ 
#define REPZ„3_10 17 

X* repeat a zero l^n^th 3-10 times (3 bits of repeat count) 

#define REPZ„11„138 18 

repeat a zero length 11-138 times (7 bits of repeat count) */ 

local const int extrajbits [LEHGTH^CODES] /* estra bits for each length code */ 
= {0,0,0,0,0,0,0,0.1,1,1,1.2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5,0}; 

local const int extra„dbits [DECODES] extra bits for each distance code 

- {0,0,0,0,1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,10,10,11,11,12,12,13,13}; 

local const int eKtra_blbits[BL_CODES]/« extra bits for each bit length code */ 

- {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,3,7}; 

local const uch bl„order[BL„CODES] 

- {16,17,18,0,8,7,9,6,10,5,11,4,12.3,13,2,14,1,15}; 

/* The lengths of the bit length codes are sent in order of decreasing 

* probability, to avoid transmitting the lengths for unused bit length codes. 



File: WorkNCrtPrtNzcompxtrees . h 



Pg: 2 



0, 


1, 


2, 


3, 


4, 


4, 


5, 


5, 


6, 


6, 


6, 


6, 


7, 


7, 


7, 


7, 


8, 


8, 


8, 


8, 


8, 


8, 


8, 


8, 


9, 


9, 


9, 


9, 


9, 


9, 


9, 


9, 


10, 


10, 


10, 


10, 


10, 


10, 


10, 


10, 


10, 


10, 


10, 


10, 


10, 


10, 


10, 


10, 


11. 


11. 


11, 


11, 


11. 


11, 


11, 


11, 


11, 


11, 


11, 


11, 


11, 


11. 


11. 


11, 


12, 


12, 


12, 


12, 


12, 


12, 


12, 


12, 


12, 


12, 


12, 


12, 


12, 


12, 


12, 


12, 


12, 


12, 


12, 


12, 


12, 


12, 


12, 


12, 


12, 


12, 


12, 


12, 


12, 


12, 


12, 


12, 


13, 


13, 


13, 


13, 


13, 


23, 


13. 


13, 


13, 


13, 


13, 


13, 


13, 


13, 


13, 


13, 


13, 


13, 


13, 


13. 


13, 


13, 


13, 


13, 


13, 


13, 


13, 


13, 


13, 


13, 


13, 


13, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


14, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


15, 


0, 


0, 


16, 


17, 


18, 


18, 


19, 


19, 


20, 


20, 


20, 


20, 


21, 


21, 


21, 


21, 


22, 


22, 


22, 


22, 


22, 


22, 


22, 


22, 


23, 


23, 


23, 


23, 


23, 


23, 


23, 


23, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


25, 


25, 


25, 


25, 


25, 


25, 


25, 


25, 


25, 


25, 


25, 


25, 


25, 


25, 


25, 


25, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


28, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29. 


29, 


29, 


29, 


29, 


29, 


29, 


23, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29, 


29 



















const uch „length_code[HAX„Mim}H-MIH.MATCHH-l]- { 





1, 


2, 


3, 


4, 


5, 


6, 


7, 


8, 


8, 


9, 


9, 


10, 


10, 


11, 


11, 


12, 


12, 


12, 


12, 


il. 


13, 


13, 


13, 


14, 


14, 


14, 


14, 


15, 


15, 


15, 


15, 


16, 


16, 


16, 


16, 


16, 


16, 


16, 


16, 


i?. 


17, 


17, 


17, 


17, 


17, 


17, 


17, 


18, 


18, 


18, 


IB, 


IB, 


18, 


18, 


18, 


19, 


19, 


19, 


19, 




19, 


19, 


19, 


20, 


20, 


20, 


20, 


20, 


20, 


20, 


20, 


20, 


20, 


20, 


20, 


20, 


20, 


20, 


20, 


21, 


21, 


21, 


21, 


21, 


21, 


21, 


21, 


21, 


21, 


21, 


21, 


21, 


21, 


21, 


22, 


22, 


22, 


22, 


it' 


22, 


22, 


22, 


22, 


22, 


22, 


22, 


22, 


22, 


22, 


22, 


23, 


23, 


23, 


23, 


23, 


23, 


23, 


23, 


2f, 


23, 


23, 


23, 


23, 


23, 


23, 


23, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


M, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


24, 


11, 


25, 


25, 


25, 


25, 


25, 


25, 


25, 


25, 


25, 


25, 


25, 


25, 


25, 


25, 


25, 


25, 


25, 


25, 


25, 


It. 


25, 


25, 


25, 


25, 


25, 


25, 


25, 


25, 


25, 


25, 


25, 


26, 


26, 


26, 


25, 


26, 


26, 


26, 


26, 


Ig, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


26, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


?a. 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


27, 


28 











ideal const int baise„length[LEN(mi_CODES] « { 

1, 2, 3, 4, 5, 6, 7, 8, 10, 12, 14, 16, 20, 24, 28, 32, 40, 48, 56, 



§4, 80, 96, 



112, 128, 160, 192, 224, 0 



local const int base_dist [DECODES] ^ { 



32, 48, 64, 96, 128, 192, 
1024, 1536, 2048, 3072, 4096, 6144, 



0, 1, 2, 3, 4, 6, 



8, 12, 16, 24, 
256, 384, 512, 768, 
8192, 12288, 16384, 24576 



File: Work\CrtPrt\zcomp\trees . h 



Pg: 1 



/* header created automatically with -DGEN_TREES_Ji »/ 

local const ct_data static_ltree[L_C0DES+2] = { 

8}}, {{ 76}, { 8}}, {{204}, { 

8}}, {{236}, { 8}}, {{ 28}, { 

8}}, {{ 60}, { 8}}, {{188}, { 

8}}, {{130}, { 8}}, {{ 66}, { 

8}}, {{ 96}, { 8}}, {{226}, { 

8}}, {{210}, { 8}}, {{ 50}, { 

8}}, {{ 10}, { 8}}, {{138}, { 

8}}. {{170}, { 8}}, {{106}, { 

8}}, {{ 90},{ 8}}, {{218}, { 

8}}, {{250}, { 8}}, {{ 6},{ 

8}}, {{ 3e}.{ 8}}, {{166}, { 

8}}, {{150}, { 8}}, {{ 86}, { 

8}}, {{118},{ 8}}, {{246}, { 

8}}. {{206}, { 8}}, {{ 46}, { 

8}}, {{ 30}, { 8}}, {{158}, { 

8}}, {{190}, { 8}}, {{126}, { 

8}}, {{ 55}, { 8}}, {{193}, { 

8}}, {{225}, { 8}}, {{ 17}, { 

8}}, {{ 49}, { 8}}, {{177}, { 

8}}, {{137}, { 8}}, {{ 73}. { 

8}}, {{105}, { 8}}, {{233}, { 

8}}, {{217}, { 8}}, {{ 57}, { 

8}}, {{ 5},{ 8}}, {{133}, { 

8}}, {{165}, { 8}}, {{101}, { 

8}}, {{ 85}, { 8}}, {{213}, { 

8}}, {{245}, { 8}}, {{ 13}, { 

8}}, {{ 45}, { 8}}, {{173}, { 

8}}, {{157}, { 8}}, {{ 93}, { 

8}}, {{125}, { 8}}, {{253}, { 

9}}, {{403},{ 9}}, {{ 83}, { 

9}}. {{ 51}, { 9}}, {{307}, { 

9}}, {{371}, { 9}}, {{243}, { 

9}}, {{139}, { 9}}, {{395}, { 

9}}, {{459}, { 9}}, {{ 43}, { 

9}}, {{107}, { 9}}, {{363}, { 

9}}, {{283}, { 9}}, {{155}, { 

9}}, {{219}, { 9}}, {{475}, { 

--- {{443}, { 9}}, {{123}, { 

{{ 7},{ 9}}, {{263}, { 

9}}, {{327}, { 9}}, {{199}, { 

9}}, {{157},{ 9}}, {{423}, { 

9}}. {{487}, { 9}}, {{ 23}, { 

9}}, {{ 87}, { 9}}, {{343}, { 

9}}, {{311},{ 9}}, {{183}, { 

9}}, {{247}, { 9}}, {{503}, { 

9}}, {{399}, { 9}}, {{ 79}, { 

9}}, {{ 47}, { 9}}, {{303}, { 

9}}, {{367}, { 9}}, {{239}, { 

9}}, {{159}, { 9}}, {{415}, { 

9}}. {{479}, { 9}}, {{ 63}, { 

9}}, {{127}, { 9}}, {{383}, { 

7}}, {{ 64}, { 7}}, {{ 32}, { 

7}}, {{ 48}, { 7}}, {{112}, { 

7}}, {{104},{ 7}}, {{ 24}, { 

7}}, {{ 4},{ 7}}, {{ 68}, { 

7}}, {{ 84}, { 7}}, {{ 52}, { 

8}}, {{ 67}, { 8}}, {{195}, { 

8}}, {{227}, { 8}} 



{{ 12}.{ 
{{172}, { 
{{ 92},{ 
{{252}, { 

{{ 34}, { 
{{146}, { 

{{114}, { 
{{202},{ 
{{ 26}, { 
{{186}, { 
{{ 70},{ 
{{230}, { 
{{ 54}, { 
{{142}, { 
{{110}, { 
{{222}, { 

{{ 1},{ 
{{161}, { 
{{ 81}, { 
{{241}, { 
{{ 41}, { 
{{153}, { 
{{121}, { 
{{197}, { 
{{ 21}, { 
{{181},{ 
ffif 77}, { 
:^237},{ 

61}, { 
OT275},{ 

?{i211},{ 
:-g{435},{ 

'?{f !!},{ 
l«331},{ 

'Ci{171},{ 
=«491},{ 
91}, { 
.{{315}, { 
fS2Sl},{ 

^ir=[39i}'{ 

.fi 39}, { 
I4K359},{ 

l*{151},{ 
j«471},{ 

i€{119},{ 
?4I(271},{ 
{{207}, { 
{{431}, { 

{{ 31}, { 
{{351}, { 
{{191}, { 
{{511}, { 
{{ 16>,{ 
{{ 72},{ 
{{ 56},{ 
{{100}, { 
{{ 3},{ 
{{163}, { 



8}}- 
8}}, 
8}}, 
8}}, 
8}}, 
8}}, 
8}}, 
8}}, 
8}}, 
8}}, 
8}}, 
8}}, 
8}}, 
8}}, 
8}}, 
8}}, 
8}}, 
8}}, 
8}}, 
8}}, 
8}}. 
8}}, 
8}}, 
8}}, 
8}}, 
8}}. 
8}}, 
8}}, 
8}}, 
9}}, 
9}}, 
9}}, 
9}}, 
9}}, 
9}}, 
9}}, 
9}}, 
9}}, 
9}}, 
9}}, 
9}}, 
9}}, 
9}}, 
9}}, 
9}}, 
9}}, 
9}}, 
9}}, 
9}}, 
9}}, 
9}}, 
9}}, 
7}}, 
7}}, 
7}}, 
7}}, 

a}}, 

8}}, 



{{140} 

{{108}, 

{{220}, 

{{ 2}, 

{{162}, 

{{ 82}, 

{{242}, 

{{ 42}, 

{{154}, 

{{122}, 

{{198}, 

{{ 22}, 

{{182}, 

{{ 78}, 

{{238}, 

{{ 62}, 

{{129}, 

{{ 97}, 

{{209}, 

{{ 9}, 

{{169}, 

{{ 89}, 

{{249}, 

{{ 37}, 

{{149}, 

{{117}, 

{{205}, 

{{ 29}, 

{{189}, 

{{147}, 

{{467}, 

{{115}, 

{{267}, 

{{203}, 

{{427}. 

{{ 27}. 

{{347}. 

{{187}, 

{{507}, 

{{ 71}, 

{{295}, 

{{231}, 

{{407}, 

{{ 55}, 

{{375}, 

{{143}, 

{{463}, 

{{111}, 
{{287}, 
{{223}, 
{{447}, 
{{ 0}, 
{{ 30}, 
{{ 40}, 
{{120}, 
{{ 20}, 
{{131}, 
{{ 99}. 



9}}, 
9}}, 



8}}. 
8}}, 



8}}, {{ 44}, { 8}}, 

8}}, {{156}, { 8}}, 

8}}, {{124}, { 8}}, 

3}}, {{194}, { 8}}, 

8}}, {{ 18}, { B}}, 

{{178}. { 8}}, 

{{ 74}, { 8}}, 

8}}, {{234}. { 8}}, 

8}}, {{ 58}, { 8}}, 

8}}, {{134}, { 8}}, 

8}}, {{102},{ 8}}, 

8}}, {{214}, { 8}}, 

8}}, {{ 14}, { 8}}, 

8}}, {{174}, { 8}}, 

8}}, {{ 94}, { 8}}, 

8}}, {{254}, { 8}}, 

8}}, {{ 33}, { 8}}, 

8}}, {{145}, { 8}}, 

8}}, {{113}, { 8}}, 

6}}, {{201}, { 8}}, 

8}}, {{ 25}, { 8}}, 

8}}, {{185}, { 8}}, 

8}}, {{ 69}, { 8}}, 

8}}, {{229}, { 8}}, 

8}}, {{ 53},{ 8}}, 

8}}, {{141},{ 8}}, 

8}}, {{109}, { 8}}, 

8}}, {{221},{ 8}}, 

8}}, {{ 19}, { 9}}, 

9}}, {{339}, { 9}}, 

9}}, {{179}, { 9}}, 

9}}, {{499}. { 9}}, 

9}}, {{ 75}, { 9}}, 

9}}, {{299}. { 9}}, 

9}}, {{235}, { 9}}, 

9}}, {{411}, { 9}}, 

9}}, {{ 59}, { 9}}, 

9}}, {{379}, { 9}}, 

9}}, {{135}, { 9}}, 

9}}, {{455}, { 9}}, 

{{103}, { 9}}, 

{{279}, { 9}}, 

9}}, {{215}, { 9}}, 

9}}, {{439}, { 9}}, 

9}}, {{ 15}. { 9}}, 

9}}, {{335}, { 9}}, 

9}}, {{175}, { 9}}, 

9}}, {{495}, { 9}}, 

9}}, {{ 95}, { 9}}, 

9}}, {{319}, { 9}}, 

9}}, {{255}, { 9}}, 

7}}, {{ 96}, { 7}}, 

7}}, {{ 8},{ 7}}, 

7}}, {{ 88}, { 7}}, 

{{ 36}, { 7}}, 

{{116}, { ?}}, 
8}}, 



9}}. 
9}}. 



7}}. 
7}}. 



8}}, {{ 35}. { 



local const ct_data static_dtree[D_CODES] = { 

{{ 0},{ 5}}, {{16}, { 5}}, {{ 8},{ 5}}, {{24}, { 5}}, {{ 4},{ 5}}, 

{{20}, { 5}}, {{12}, { 5}}, {{28}, { 5}}, {{ 2},{ 5}}, {{18},{ 5}}, 

{{10}, { 5}}, {{26}, { 5}}, {{ 6},{ 5}}, {{22}, { 5}}, {{14}, { 5}}, 

{{30}, { 5}}, {{ 1},{ 5}}, {{17}, { 5}}, {{ 9},{ 5}}, {{25}, { 5}}, 

{{ 5},{ 5}}, {{21}, { 5}}, {{13}, { 5}}, {{29}, { 5}}, {{ 3},{ 5}}, 

{{19}, { 5}}, {{11}, { 5}}, {{27}, { 5}}, {{ 7},{ 5}}, {{23}, { 5}} 



const uch _dist_codeIDIST_CODE_LEN] - { 



File: Work\CrtPrt\2compxuncomprT 



uncompr.c — decompress a memory buffer 
« Copyright (C) 1995-1998 Jean*loup Gailly. 

« For conditions of distribution and use, see cop3rright notice in zlib.h 
*/ 

/» @C#) $IdS */ 
Mnclude "zlib.h" 

Decompresses the source buffer into the destination buffer. sourceLen 
the byte length of the source buffer. Upon entry, destLen is the total 
size of the destination buffer, which must be large enough to hold the 
entire uncompressed data. (The size of the uncompressed data must have 
been saved previously by the compressor and transmitted to the decompresi 
by some mechanism outside the scope of this compression library.) 
Upon e5sit, destLen is the actual size of the compressed buffer. 

This function can be used to decompress a whole file at once if the 
input file is imnap'ed. 

uncompress returns Z„OK if success, 2_MEM_ERR0R if there was not 
enough memory, Z_BUF_£RROR if there was not enough room in the output 
buffer, or Z„DATA„ERROR if the input data was corrupted. 

*/ 

int ZEXPORT uncompress (dest, destLen, source, sourceLen) 
Bytef «dest; 
uLongf *destLen; 
const Bytef *source; 
uLong sourceLen; 

z_stream stream; 
":f int err; 

f[| stream. neKt_in ^ (Bytef*) source; 

I'i^ stream.avaii^in - (uint) sourceLen; 

H /» Check for source > 64R on 16-bit machine: «/ 

|y if { (uLong)stream.avail„in l'^ sourceLen) return Z„BUF.ERROR; 

f4 Stream . ne^t„out - dest; 

''^^ stream. avail^out = (uInt)*destLen; 

^ if (( uLong ) stream. a vaii„out l« «destLea) return Z_BUF„ERROR; 

stream. zalioc « (alloc_f unc) 0; 
."t St ream. 2 free - (f ree_func)0; 

1^ err = mf latelnxt (Scstream) ; 
if (err t« Z_OK) return err; 

O err « inf late(StStream, Z„FINISH); 
if (err Z^STREMCEHD) { 
inf lateEnd (tetream) ; 

return err Z_OK ? Z„BUF_ERROR : err; 

} 

*destLen stream. total_out; 

err inf lateEnd (&stream) ; 
return err; 

} 



File: Work\CrtPrt\zlib\ZLib.dsw 



Pg: 1 



Microsoft Developer Studio Workspace File, Format Version 5.00 
# WARNING: DO NOT EDIT OR DELETE THIS WORKSPACE FILE! 

################################################################## 
############# 

Project: "ZLib"=. \ZLib.dsp ~ Package Owner=<4> 

Package=<5> 

{{{ 
}}} 

Package=<4> 

{{{ 

}}} 

################################################################## 
############# 

Global : 

Package=<5> 
{{{ 

}}} 

Package=<3> 

{{{ 

}}} 

################################################################## 
############# 



File: Work\CrtPrt\zlib\ZLib.dsp 



Pg: 5 



SOURCE=.\zlib*h 

# End Source File 

# Begin Source File 

SOURCE-Azutil-C 

# End Source File 

# Begin Source File 

SOURCE- Azutil-h 

# End Source File 

# End Target 

# End Project 



File: Work\CrtPrt\zlib\ZLib,dsp 



Pg; 4 



# Begin Source File 

SOURCE-. Xinffast^h 

# End Source File 

# Begin Source File 

SOURCE^, \inf fixed. h 

# End Source File 

# Begin Source File 

SOURCE- A inflate . c 

# End Source File 

# Begin Source File 

SOURCE-. \inf trees. c 

# End Source File 

# Begin Source File 

SOURCE-. \inf trees .h 

# End Source File 

# Begin Source File 

SOURCE-. \infutil.c 

# End Source File 

# Begin Source File 

SOURCE^-, \inf util . h 

# End Source File 

# Begin Source File 

SOURCE-. \trees.c 

# End Source File 

# Begin Source File 

SOURCE-. \trees.h 

# End Source File 

# Begin Source File 

SOURCE- . \uncompr . c 

# End Source File 

# Begin Source File 

SOURCE-. \zconf.h 

# End Source File 

# Begin Source File 



File; Work\CrtPrt\zlib\ZLib.dsp 



Pg: 3 



# Name "ZLib - Win32 Release" 

# Name "ZLib - Win32 Debug" 

# Begin Source File 

SOURCE= Aadler32 • c 

# End Source File 

# Begin Source File 

SOURCE- . \ compress . c 

# End Source File 

# Begin Source File 

SOURCE= Acrc32.c 

# End Source File 

# Begin Source File 

SOURCE= • \def late . c 

# End Source File 

# Begin Source File 

SOURCE- . \def late . h 

# End Source File 

# Begin Source File 

SOURCE^. \gzio.c 

# End Source File 

# Begin Source File 

SOURCE= . \ inf block . c 

# End Source File 

# Begin Source File 

SOURCE- . \inf block , h 

# End Source File 

# Begin Source File 

SOURCE-. \ inf codes. c 

# End Source File 

# Begin Source File 

SOURCE-. \ inf codes. h 

# End Source File 

# Begin Source File 

SOURCE- . \inf f ast . c 

# End Source File 



File: Work\CrtPrt\zlib\ZLib.dsp 



Pg: 2 



# PROP Intermediate_Dir "Release" 

# PROP Target_Dir "" 

# ADD BASE CPP /nologo /W3 /GX /02 /D "WIN32" /D "NDEBUG" /D "_WIN 
DOWS" /YX /FD /c 

# ADD CPP /nologo /Zp2 /MT /W3 /Ox /Os /D "WIN32" /D "NDEBUG" /D " 
_WINDOWS" /FD /c 

# SUBTRACT CPP /Gf /Gy /YX 

# ADD BASE RSC /I 0x409 

# ADD RSC /I 0x409 
BSC32=bscmak:e . exe 

# ADD BASE BSC32 /nologo 

# ADD BSC32 /nologo 
LIB32=link.exe -lib 

# ADD BASE LIB32 /nologo 

# ADD LIB32 /nologo 

lELSEIF "$(CFG)" == "ZLib - Win32 Debug" 

# PROP BASE Use__MFC 0 

# PROP BASE Use_Debug_Libraries 1 

# PROP BASE Output_Dir "Debug" 

# PROP BASE Intermediate_Dir "Debug" 

# PROP BASE Targe t_Dir "" 

# PROP Use_MFC 0 

# PROP Use_Debug_Libraries 1 

# PROP Output_Dir "Debug" 

# PROP Intermediate_Dir "Debug" 

# PROP Target_Dir "" 

# ADD BASE CPP /nologo /W3 /GX /Z7 /Od /D "WIN32" /D "_DEBUG" /D " 
_WINDOWS" /YX /FD /c 

# ADD CPP /nologo /Zp2 /MTd /W3 /GX /Z7 /Od /D "WIN32" /D "_DEBUG" 
/D "_WINDOWS" /FD /c 

# SUBTRACT CPP /YX 

# ADD BASE RSC /I 0x409 

# ADD RSC /I 0x409 
BSC32=bscmake . exe 

# ADD BASE BSC32 /nologo 

# ADD BSC32 /nologo 
LIB32=link.exe -lib 

# ADD BASE LIB32 /nologo 

# ADD LIB32 /nologo 

!ENDIF 



# Begin Target 



File: Work\CrtPrt\zlib\ZLib.clsp 



Pg: 1 



# Microsoft Developer Studio Project File - Name="ZLib" - Package 
Owner=<4> 

# Microsoft Developer Studio Generated Build File, Format Version 
6.00 

# ** DO NOT EDIT ** 

# TARGTYPE "Win32 (x86) Static Library" 0x0104 
CFG=ZLib - Win32 Debug 

iMESSAGE This is not a valid makefile. To build this project using 
NMAKE, 

! MESSAGE use the Export Makefile command and run 
! MESSAGE 

IMESSAGE NMAKE /f "ZLib.mak". 
! MESSAGE 

IMESSAGE You can specify a configuration when running NMAKE 
IMESSAGE by defining the macro CFG on the command line. For exampl 
e: 

IMESSAGE 

IMESSAGE NMAKE /f "ZLib.mak" CFG="ZLib - Win32 Debug" 
IMESSAGE 

.'MESSAGE Possible choices for configuration are: 
IMESSAGE 

IMESSAGE "ZLib - Win32 Release" (based on "Win32 (x86) Static Libr 
ary" ) 

IMESSAGE "ZLib - Win32 Debug" (based on "Win32 (x86) Static Librar 
y") 

IMESSAGE 



# Begin Project 

# PROP AllowPerConfigDependencies 0 

# PROP Scc_ProjName ""$/ZLib", LBAAAAAA" 

# PROP Scc_LocalPath "." 
CPP=cl.exe 
RSC=rc.exe 



I IF "$(CFG)" == "ZLib - Win32 Release" 

# PROP BASE Use_MFC 0 

# PROP BASE Use_Debug_Libraries 0 

# PROP BASE Output_Dir "Release" 

# PROP BASE Intermediate_Dir "Release" 

# PROP BASE Target_Dir "" 

# PROP Use_MFC 0 

# PROP Use_Debug_Libraries 0 

# PROP Output_Dir "Release" 



File: Work\CrtPrt\zcomp\zcomp.dsw 



Pg: 2 



{{{ 

begin source code control 
"$/zcomp", RXAAAAAA 

* 

end source code control 

}}} 

Package=<3> 

{{{ 

}}} 

!################################################################# 
############# 



File: Work\CrtPrt\zcomp\zcomp.dsw 



Pg: 1 



Microsoft Developer Studio Workspace File, Format Version 5.00 
# WARNING: DO NOT EDIT OR DELETE THIS WORKSPACE FILE! 

################################################################## 
############# 

Project: "ZLib"=. . \ZLib\ZLib.dsp - Package Owner=<4> 

Package=<5> 
{{{ 

begin source code control 
"$/ZLib", LBAAAAAA 
. . \zlib 

end source code control 

}}} 

Package=<4> 

{{{ 
}}} 

################################################################## 
############# 

Project: "zcomp"=.\zcomp.dsp - Package Owner=<4> 

Package=<5> 
{{{ 

begin source code control 
"$/zcomp", RXAAAAAA 

end source code control 

}}} 

Package=<4> 
{{{ 

Begin Project Dependency- 
Pro ject_Dep_Name ZLib 
End Project Dependency 

}}} 

################################################################## 
############# 

Global: 

Package=<5> 



File: Work\CrtPrt\zcomp\zcomp.dsp 



Pg: 3 



ine:I386 /pdbtype : sept 

# ADD LINK32 /nologo /subsystem: console /debug /machine: 138 6 /pdbt 
ype: sept 

lENDIF 

# Begin Target 

# Name "zcomp - Win32 Release" 

# Name "zcomp - Win32 Debug" 

# Begin Source File 

SOURCE^ • \ zcomp . cpp 

# End Source File 

# End Target 

# End Project 
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# PROP Ignore_Export_Lib 0 

# PROP Target_Dir "" 

# ADD BASE CPP /nologo /W3 /GX /02 /D "WIN32" /D "NDEBUG" /D "_CON 
SOLE" /D "_MBCS" /YX /FD /c 

# ADD CPP /nologo /Zp2 /MT /W3 /GX /02 /I "..\ZLib" /D "WIN32" /D 
"NDEBUG" /D "_CONSOLE" /D "_MBCS" /FD /c 

# SUBTRACT CPP /YX 

# ADD BASE RSC /I 0x409 /d "NDEBUG" 

# ADD RSC /I 0x409 /d "NDEBUG" 
BSC32=bscmake . exe 

# ADD BASE BSC32 /nologo 

# ADD BSC32 /nologo 
LINK32=link.exe 

# ADD BASE LINK32 kernel32.11b user32.1ib gdi32.1ib winspool.lib c 
omdlg32.1ib advapi32.1ib shell32.1ib ole32.1ib oleaut32.1ib uuid.l 
ib odbc32.1ib odbccp32.1ib /nologo /subsystem: console /machine : 138 
6 

# ADD LINK32 /nologo /subsystem: console /machine : 1386 
lELSEIF "$(CFG)" == "zcomp - Win32 Debug" 

# PROP BASE Use_MFC 0 

# PROP BASE Use_Debug_Libraries 1 

# PROP BASE Output_Dir "Debug" 

# PROP BASE Intermediate_Dir "Debug" 

# PROP BASE Target_Dir "" 

# PROP Use_MFC 0 

# PROP Use_Debug_Libraries 1 

# PROP Output_Dir "Debug" 

# PROP Intermediate_Dir "Debug" 

# PROP Ignore_Export_Lib 0 

# PROP Target Dir "" 

# ADD BASE CPP /nologo /W3 /Gm /GX /Zi /Od /D "WIN32" /D "_DEBUG" 
/D " CONSOLE" /D "_MBCS" /YX /FD /c 

# ADD CPP /nologo /Zp2 /MTd /W3 /Gm /GX /Zi /Od /I "..\ZLib" /D "W 
IN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /FD /c 

# SUBTRACT CPP /YX 

# ADD BASE RSC /I 0x409 /d "_DEBUG" 

# ADD RSC /I 0x409 /d "_DEBUG" 
BSC32=bscmake . exe 

# ADD BASE BSC32 /nologo 

# ADD BSC32 /nologo 
LINK32=link.exe 

# ADD BASE LINK32 kernel32.1ib user32.1ib gdi32.1ib winspool.lib c 
omdlg32.1ib advapi32.1ib shell32.1ib ole32.1ib oleaut32.1ib uuid.l 
ib odbc32.1ib odbccp32.1ib /nologo /subsystem: console /debug /mach 
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# Microsoft Developer Studio Project File - Narae="zcomp" - Package 
Owner=<4> 

# Microsoft Developer Studio Generated Build File, Format Version 
5.00 

# ** DO NOT EDIT ** 

# TARGTYPE "Win32 (x86) Console Application" 0x0103 
CFG=zcomp - Win32 Debug 

(MESSAGE This is not a valid makefile. To build this project using 
NMAKE, 

'MESSAGE use the Export Makefile command and run 
[MESSAGE ^ 
'MESSAGE NMAKE /f "zcomp.mak". 
! MESSAGE 

! MESSAGE You can specify a configuration when running NMAKE 
'MESSAGE by defining the macro CFG on the command line. For exampl 
e: 

! MESSAGE 

[MESSAGE NMAKE It "zcomp.mak" CFG-"zcomp - Win32 Debug" 
! MESSAGE 

IMESSAGE Possible choices for configuration are: 
! MESSAGE 

IMESSAGE "zcomp - Win32 Release" (based on "Win32 {x86) Console Ap 
plication") 

'MESSAGE "zcomp - Win32 Debug" (based on "Win32 (x86) Console Appl 

ication") 

IMESSAGE 

# Begin Project 

# PROP Scc_ProjName ""$/zcomp", RXAAAAAA" 

# PROP Scc_LocalPath "." 
CPP=cl.exe 
RSC=rc.exe 

!IF "$(CFG)" == "zcomp - Win32 Release" 

# PROP BASE Use_MFC 0 

# PROP BASE Use_Debug_Libraries 0 

# PROP BASE Output_Dir "Release" 

# PROP BASE Intermediate_Dir "Release" 

# PROP BASE Target_Dir "" 

# PROP Use_MFC 0 

# PROP Use_Debug_Libraries 0 

# PROP Output_Dir "Release" 

# PROP Intermediate_Dir "Release" 
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fread (pBytesIn, IFileUn. 1. input); 
fclose (input); 

fwrite (SclFileLen, sizeof (IFileLen), 1, output); 
Bytef *pBytesOut - (Bytef *) malloc (IFileLen » 2); 
uLong ICompressedLen; 

compressZ (pBytesOut^ S:lCompress©dLen^ pBytesIn^ IFileLen, 

Z_BEST„COMPR£SSION) ; 
fwrite (pBytesOut, ICompressedLen, 1, output); 
fclose (output); 

free (pBytesIn); 
free (pBytesOut); 

} 

©Kit (0); 

} 
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#inc:lud© <stdio-h> 

#iftclude "zlib.li" 

#include <string,h> 

#include <stdlib.h> 



void main (int argc, char *bx$v[]) 
{ 

if (argc < 3) 
{ 

print f {"Usage: Xs [-d] input output\n% argv[0]); 
BKit (0); 

} 

if (strcmp (ar^vtl]. "-d") — 0) 
{ 

FILE »input; 
FILE «output; 

if ((input « fopen (argv[2]. "rb")) HULL) 
{ 

printf ("Can't open file 5^s\n". argvfZ]); 
exit (0); 

} 

if ((output = fopen {argv[33, "wb")) HULL) 

^ printf ("Can't open file %s\n", argv[31)j 
f close (input); 
1 eKit (0); 

3 ^ 

- fseek (input. 0, SEEK.END); 

Li uLong IFileLen ftell (input); 

fseek (input. 0. SEEK^SET) ; 

J Bytef *pBytesIn - (Bytef *) malioc (IFileLen); 

j fread (pBytesIn, IFileLen, 1^ input); 

f close (input); 

uLong lUncoaipressedLen « «((long ») pBytesIn); 
J Bytef *pBytesOut - (Bytef *) malloc (lUncompressedLen) ; 

J uncompress (pBytesOut, £<lUncampressedLen ^ pBytesIn + 4, IFileLen - 4); 

^ fwrite (pBytesOut, lUncompressedLen, 1, output); 

^ fclose (output); 

Z free (pBytesIn) ; 

free (pBytesOut) ; 

} 

else 
{ 

FILE *input; 
FILE *output; 

if ((input - fopen (argv[l], "rfo")) MILL) 
{ 

printf (''Can't open file Xs\n'\ argv[l]); 
eKit (0); 

} 

if ((output - fopen (ar0v[2], "wb")) IsIULL) 
{ 

printf ("Can't open file %s\n'^ argv[21); 
fclose (input); 
eKit (0); 

} 

fseek (input, 0, SEEKJND); 
uLong IFileLen - ftell (input); 
fseek (input, 0, SEEK_S£T); 

Bytef *pBytesIn * (Bytef *) malloc (IFileLen); 
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Inventors: Bruce T. Petro, Andrew Cohen and Jason Sulak 

Title: ON-LINE SYSTEM FOR CREATING A PRINTABLE PRODUCT 
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#ifndef _WAITDLG.BL 
#define _WAITDLG„H„ 

#include "resource. 

// CWaitDlg 
class CWaitDlg : 

public CDialogImpl<CWaitDlg> 

{ 

public; 

CWaitDlgO; 
~CWaitDlg(); 

enum { IDD « IDD_WAITDLG }; 

BEGIN„MSGJ1AP (CWaitDlg ) 

MESSAGE^HAHDLERCWM IHITDIALOG, OnlnitDialog) 

COMMAND_ID_.HAlsIDLER(IDCAlsfCEL, OnCancel) 
END_MSG„MAP() 

LRESULT OnCancel (WORD wl:?otifyCode, WORD wID. HWb3D hWndCtl. BOOL& bHandled) ; 
LRESULT OnInitDialog(UIOT uMsg, WPARAM wPararu, LPARAM IParam, BOOL& bHandled) 

#endif //_WAITDLG„H__ 
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#include "stdafx.h" 
#include "WaitDlg.h" 

// 

// 

CWaitDlg: :CWaitDlg() 

{ 
} 

// // 

// 

GWaitDlg: :~CWaitDlg() 

{ 
} 

// // 

/y // 

LRESULT GWaitDlg: :OnCancel (WORD, WORD, mm, BOOL &) 
{ 

return 0; 

} 

// 

y/ 

LRESULT GWaitDlg: :OnInitDialog(UIlTr, WPARAM, LPARAM, BOOL &) 
{ 

CenterWindow (); 
fj return 1; 

is 

1* 



T 5^ 
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// 

// Don't forget to update the version number in Ctp.rgs, AHCtp.inf, NpCtp.js 

// 

#define VER„COMPMY "American Greetings ,com\0" 

#define VER^COPYRIGHI "Copyright © 1999 Merican Greetings .com\0" 

#define VER„PRODUCT.VERSION 1,0.0,0 
#define VER_PRODUCT_VERSION_STR "1.0" 
#define VER_FILE VERSION 1,0,0,0 
#define VER„FIL£„VERSIOW_STR "1.0" 
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// stdafx.h : include file for standard system include files, 

// or project specific include files that are used frequently, 

// but are changed infrequently 

#if I defined (AFX„STDAFX„H_4B81C688„1084„11D3_9330_00104BC4A611_INCLUDED„) 
#define AFX.SmFX„H_4B81C68e_i084_llD3„9330J0104BC4A611_IMCLUDED^ 

#if _MSC_VER 1000 
#pragrRa once 

#endif // „MSC„V£R >« 1000 
#define STRICT 



#define mmij^imi 0k0400 
#define _ATL„APARTMElsrr_THREADED 



#include <atlbase.h> 

//You may derive a class from CComModule and use it if you want to override 

//something, but do not change the name of ^Module 

extern CComModule _Module; 

#include <atlcom.h> 

#include <atlctl .h> 

#include <atlwin,h> 

//{ {AFX„INSERT_LOCATI0H} } 

// Microsoft Developer Studio will insert additional declarations immediately before the previous li 
ne, 

^nclude <vector> 

f define WIDTH (r) [(r), right - (r).ieft) 

i^efine HEIGHr(r) ((r). bottom - (r) .top) 

ikefine SWAP(a,b) ((a) (b),(b) (a), (a) (b)) 

define APP„RES0LUTIOM 1440 



#}ndif // ! defined (AFX„STDAFX_H_4BB1C688_1084_11D3„9330_00104BC4A611_I1^GLUDED) 
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// stdafK.cpp : source file that includes just the standard includes 

// stdafK.pch will be the pre-coEipiled header 

// stdafx.obj will contain the pre-compiled type information 

#include "stdafx.h" 

#ifdef „ATL„STATIC„REaiSTRY 
#include <statreg.h> 
#include <statreg .cpp> 
#endif 

#include <atlimpl .cpp> 
#include <atlctl.cpp> 
#include <atlwin.cpp> 
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{NOJEPEHDENCIES } } 
// Microsoft Developer Studio generated include file. 



// Used by AsCtp.rc 

// 

#define IDS^PROJHAME 100 

#define IDR^CTP 101 

#define IDD„CTLPMEL 102 

#define IDD_WAITDLa 103 

#define IDC„PAGE1 201 

#define IDR3GL0G0 201 

#define 1DC„PAGE2 202 

#define IDR_CPLOGO 202 

#deFine IBC„PAGE3 203 

#define IDR.CACFC 203 

#define IDC„PAGE4 204 

#define IDDJBLSIDEIlsrrRO 204 

#define IDC^FONT 205 

#define IDB3BLSIDESTEP1 205 

#define IDC.PTSIZE 206 

#define IDD DBLSIDEEND 206 

#define IDC_COL0R 207 

#defiRe 2DD„DBLSIDESTEP2 207 

#define IDC_LEFT 208 

#define IDB_1UP 208 

#define IDC^CEHTER 209 

#define IDB_2UP 209 

#defina IDCJI*^* 210 

#define IDB_3UP 210 

#define IDC^PRIOT 211 

liefine IDB„2D0V^ 211 

Refine IDC.SIlsfGLEFOLD 212 

define IDB„1UP2D0V^ 212 

■#4efine IDC_QUARTERFOLD 213 

Mefine IDC_FRAMEi 214 

#iefine IDC_FRAME2 215 

liefine IDC_FRAME3 216 

'WSefine IDC„FRAME4 217 

Mefine IDC^DBLSIDE 218 



/> NeKt default values for new objects 

7jf 

iifdef APSTUDIO.INVOKED 
mfndef APSTUDIO„READONLY_SYMBOLS 
#^efine .APS„MEXr_RESOURCE_VALUE 
Mef ine .APS„HEXI„COMMAHD„VALUE 
l^hefine „APS_NEXr„C01siTR0L„VALUE 
pefine „APS_OTXr_SYMED„VALUE 
^ndif 
¥endxf 



213 
32768 
219 
104 
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#ifndef _PROP_SHEET_H_ 
#define _PROP„SHEET^H_ 

#iiiclude <commctrl .h> 

template < class T> 

class ATL NONVIABLE CPropertyPagelmpl : public CDialoglmplBase 
{ 

public: 

PROPSHEETPAGE m^psp; 

operator PROPSHEETPAGE* ( ) { return San^psp; } 

// Construction 

CPropertyPagelmpi (LPCTSTR IpszTitle « HULL) 

^ // initialise PROPSHEETPAGE struct 

inemset(Sm„psp, 0, sizeof (PROPSHEETPAGE) ) ; 
m^psp.dwSize « sizeof (PROPSHEETPAGE) ; 
m_psp.dwFlaes = PSP JJSECALLBACK ; 
m psp.hlnstance * ^Module .GetResourcelnstance ( ) ; 
ffilpsp .pszTemplate « MAKEIMTRESOURCE (T: : IDD) ; 
m^psp.pfnDlgProc - (DLGPROC)T: zStartDialogProc; 
m_,psp.pfnCallback - T: tPropPageCallback; 
m_psp.lParara ^ (LPARAM)this; 

if(lpszTitle !- I^IULL) 

m psp.pssTitie = IpszTitle; 
13 mlpsp.dwFlags 1- PSPJJSETITLE ; 

in > ^ 

fU static UIOT CALLBACK PropPageCallback {MsfD hWnd. UIOT uMsg, LPPROPSHEETPAGE ppsp) 

^% ^ 3SSERTE(hWnd ISIULL); 

if (uMsg PSPCB„CREATE) 

fi ^ CDialoglmplBase* pPage = (CBialogImplBase*)ppsp">lParam; 

„Module.AddCreateWndData{&pPa0e->m„thunk.cd. pPage) ; 

k } 

return 1; 

H } 

HPROPSHEETPAGE Create () 
C3 return : :CreatePropertySheetPage(Sja„psp) ; 

BOOL EndDialog(int) 

^ // do nothing here, calling : :EndDiaiog will close the whole sheet 
„ASSERTE (FALSE) ; 
return FALSE; 

} 

// Operations 

void CancelToCloseO 

^ ASSERTE ( : : I sWi ndow (m_hWnd ) ) ; 
„ASSERTE(GetParent() I- MJLL); 

::SendMessage(GetParent(), PSM_CAHCELTOCL0SE . 0, OL); 

void SetModif led (BOOL bChanged - TRUE) 

^ _ASSERTE ( : : IsWindow(m3Wnd) ) ; 
^ASSERTE (GetParent ( ) I « IsIULL ) ; 

if [bChanged) 

: :SendMessage(GetParent(), PSM.CHAHGED, (WPARAM)m_htod. OL) ; 

else 

: :SendMessage(GetParent(). PSM_UNCHMGED , (WPARAM)m„hWnd, OL) ; 
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void SetWizardButtons (DWORD dwFlags) 

^ „ASSERTE ( : : I sWi ndow (m.hWnd ) ) ; 
„^SERTE(GetParent() t- IsfULL); 

: :PastMessage( Get Parent (), PSM^SEWIZBUTIONS, 0, (LPARAM) dwFlags); 

LRESULT QuerySiblings(WARAM wParam, LPARAM IParam) 

^ _ASSERTE( : :IsWindow(m„hWnd) ) ; 
_ASSERrE( Get Parent 0 !- MILL): 

return : :SendMessage(GetParent () , PSM.QUERYS IDLINGS, wParam, IParam); 

} 

BEGIH_MSG.MAP (CPropertyPagelmpl <T> ) 

MESSAGE_HAMDLER(^„MOTIFY, OnNoti fy) 
EHD_MSG_MAP"() 

Message handler ^ , 

LRESULT OnNoti fy(UIOT uMsg, WPARAM wParam, LPARAM IParam. BOOLSc foHandled) 

^ „ASSERTE ( : : IsWindow {m.hWnd ) ) ; 
NMHDR* pNMHDR = (NMHDR*) IParam; 

//- don't handle messages not from the page/sheet itself 

if (pNMHDR->hwndFrom !- m Wnd pl!MiDR->hwndFrom !- : :GetParent (m.hWnd) ) 

{ 

I. J foHandled - FALSE; 

k 3 return 1 ; 

fU T* pT « (T*)this; 

^,3 LRESULT IResult - 0; 
sTi handle default 

switch (pKMHDR-> code) 

H { 

a case PSKLSETACTIVE : 

I IResult - pT->OnSetActive() ? 0 : -1; 

C3 case PSN^KILLACTIVE: 

IResult * ipT->OnRillActive(); 
I '.I break; 

case PSM APPLY: 

IResult - pT->OnApply() ? PSNRET^l^OERROR : PSNRET^INVALIB„MOCHANGEPAGE; 

II break; 

n case PSlsLRESET: 

pT->OnReset(); 

case PSlsf_QUERYCAHCEL : 

IResult « !pT->OnQueryCancel() ; 

case PSN_WIZNEXr: 

IResult = !pT->OnWizardNextC) ; 

break; 
case PSlsf^WIZBACK: 

IResult « lpT->OnWizardBack() ; 

case PSN„WI2FINISH: 

IResult ^ lpT"->0nWi2ardFinish(); 

break ; 
case PSN.HELP: 

IResult - pT->OnHelp(); 

break; 
default: 

bHandled = FALSE; //^ not handled 

} 

return IResult; 

} 

Overridables 
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BOOL OnSetActiveO 
{ 

return TRUE; 

} 

BOOL OnRillActiveO 
{ 

return TRUE; 

} 

BOOL OnApplyO 
{ 

return TRUE; 

} 

void OnResetO 

{ 

} 

BOOL OnQueryCancel ( ) 
{ 

return TRUE; // ok to cancel 

} 

BOOL OnWizardBackO 
{ 

return TRUE; 

} 

BOOL OnWizardNeKt 0 
{ 

return TRUE; 

} 

BOOL OnWizardFinishO 

{ 

11 return TRUE; 

a } 

BOOL OnHelpO 

:;: { 

ly return TRUE; 

13 ^ 

yndif //_PROP_SHEET_H_ 
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#ifndef _FONT_H„ 
#de£ine _FOOTJi„ 

#include "AGDoc.h" 

typedef struct 
{ 

LOaFOIslT If; 

char szFullHame [LF^FULLFACESIZE] ; 
} FOOTmFO; 

typedef std: : vector <FONTIHFO> FOOTARRAY; 
typed© f struct 

^ char ssFontFileUMAX.FNAME]; 

char ssFul IName [LF_FULLFACESI2E ] ; 

BYTE *pDownloadData; 

DWORD dwDown I oadS i se ; 
} FOOTDOWtsTLOAD; 

typsdef std: :vector<FOOTDOmOAD> FOlsTTDOWI^LOADARRAY ; 



class CFontList 
{ 

public: 

CFontList (); 

void CheckFonts (LOGFOOTARRAY &lf Array, FOMIDOVMLOADARRAY ^DownloadArray) 
HDC GetEnumFontDC () 
S3 { return (m^EnujnFontDC ) ; } 

T j FOKTARRAY &GetFont Array () 

{ return (m_FontArray) ; } 
void InitFontArray (); 
fy void InstallFont (BYTE «pBytes^ DWORD dwLen. const char *pszTypeFace ^ 
const char »pszTTF]srame) ; 

|!fotected: 

''4 void CheckDefaultFont {); 
protected : 

:„ FdsTTARRAY m„FontArray; 
13 HDC mJnumFontDC; 

I'indif //_FOtn:„H„ 
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FOmHFO fi; 

fi.lf = pelf->elfLogFont; 

Istrcpy {f i .szFullKame, (const char *) pelf->elfFullHame) ; 
pFontList->GetFontArray ().push„foack (fi); 



return (1); 

} 

// 



Static int CALLBACK EnumFontFaiui lyProc (EHUMLOGFOOT *pelf , 
MEOTEXIMETRIC * /*pntm»/, int FontType, LPARAM IParam) 

{ 

if (FontType Sc TRUETYPE^FOmYPE ) 

^ CFontList *pFontList - (CFontList *) iParam; 
EnumFontFamilies (pFontList->GetEnumFontDC () , 

pelf->elfLogFont.lfFaceMame^ (FOOTENUMPROC) En umFontFaniilyProc 2, 
IParam) ; 

} 

return ( 1 ) ; 

} 

// 

// 

CFontList: : CFontList () 

il m„EnumFontDC - NULL; 
u i InitFontArray ( ) ; 
CheckDefaultFont (); 

I;' 

yn 

}% // 

4yid CFontList: : CheckDefaultFont () 

p int nFonts = m^Font Array .size (); 

'l" for (int i 0; i < nFonts; i-^+) 

C3 ^ if (Istrcmp (KL.FontArray[i] .If -IfFacelsfame, DEFAULTLFOOT) 0) 
J break ; 

ij ^ 

1=^ if (i >= nFonts) 

13 { 

HGLOBAL hResFont = HULL; 
HRSRC hResource; 



if ((hResource = : ;FindResource (^Module .GetResourcelnstance (), 
MAKEIOTRESOURCE (IDR^CACFC). "TT2")) ! - NULL) 

hResFont = : :LoadResource (_Module.GetResourceInstance (), 
hResource) ; 

} 

if (hResFont) 

BYTE *pCompressedBytes (BYTE ») ; :LockResource (hResFont); 
DWORD dwCompressedLen * : :Sizeof Resource (^Module .GatResourcelnstance (), 
hResource ) ; 

InstallFont (pCompressedBytes, dwCompressedLen, DEFAULTLFOOT, 
DEFAULT_FONTFILE); 

} 

} 

> 



// // 

// 

void CFontList: :CheckFonts (LOGFOOTARRAY S^lfArray, 
FOHTDOV^LOADARRAY SDownloadArray) 

{ 
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int nCheckFonts « IfArray .size (); 
for (int i ^ 0; i < nCheckFonts; 

int nFonts = m_Font Array .size (); 
for (int j « 0; j < nFonts; 

^ i f ( 1 strcmp ( 1 f Array [ i ] . 1 f FaceName . m_Fon tArray [ j ] . 1 f , 1 f FaceHame ) = 
lfArray[i] .IfWeight in„Fon t Array [j ]. If . IfWeight 
(lfArray[i] , If Italic 0) « (m_FontArray[j ] .if .If Italic 1-0)) 

{ 

break ; 

} 

} 

if (j >= nFonts) 

^ char szFont[LF_.FULLFAC£SIZE]; 

Istrcpy (szFont, 1 f Array [i ]. If FaceName) ; 
if (lfArray[i] .IfWeight 700) 

Istrcat (szFont, " (Bold)"); 
if (IfArrayti]. If Italic !- 0) 

Istrcat (ssFont. " (Italic)"); 

for (int k « 0; FontHaines[k] .pszFont; k++) 

^ if (Istrcmp (FontHames[k3 .pszFont ^ szFont) 0) 
{ 

F0OTD(M3L0AD fd; 

Istrcpy (fd-szFontFile, FontKfames [k] .pszFontFile) ; 

Istrcpy {fd.szFuilHame, FontNames [k] .pszFullName) ; 

fd.pDownloadData ^ NULL; 

fd .dwDown load Size = 0; 

Down 1 oad Array . push„back ( f d ) ; 

break; 



} 



} 







#did CFontList : ;InitFontArray () 
n m_Fon tArray, clear (); 

n m_EnumFontDC - : :CreateIC ("DISPLAY", mL, IsIULL, isiULL); 
1% EnumFontFamilies (m^EnumFontDC, NULL, (FONTENUMPROC) EnumFontFamilyProc, 
(LPARAM) this); 
: :DeleteDC (mJnumFontDC ) ; 
mJnumFontDC NULL; 

} 



^ // 

// 

void CFontList: :InstallFont (BYTE »pBytes, DWORD dwLen, const char *pszTypeFace , 
const char *pszTTFName) 

{ 

bool binstalled = false; 

DWORD dwUncompressedLen = *( (DWORD *) pBytes); 

BYTE *pUncompressedBytes * (BYTE *) malloc (dwUncompressedLen); 

uncompress (pUncompressedBytes, StdwUncompressedLen , pBytes +4, dwLen - 4); 

char szTrFName[15] ; 

char szITFDirUMAX.PAIH]; 

char szTrFPath[_,MAX„PATH]; 

: :GetWindowsD i rectory (szTTFDir, sizeof (szTTFDir)); 
if (szTrFDxr[lstrlen (szTTFDir) - 1] i= '\N') 
Istrcat (szTTFDir, "W"); 

Istrcpy (szTTFName, pszTTFHame); 
szTIFl^ameLlstrlen (szTTFNajsie) - 1] = 'F*; 
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OSVERSIONINFO osvi; 

osvi.dwOSVersionlnfoSize - sizeof (OSVERSIONINFO) ; 
: :GetVersionEs (Scosvi); 

if (osvi.dwPlatfonnId VER„PLATF0RM^WM32_WIHD0WS |1 

(osvi.dwPlatformId VER_PLATF0RM„WIH32_OT osvi .dwMajorVers ion >- 4)) 

^ Istrcat (szTTFDir, "FontsW"); 
} 

else 

^ Istrcat (szTTFDxr, "SystemW"); 
} 

HM^DLE hf; 

int nCount 0; 

do 

{ 

if (nCount > 0) 

szTrFHame[73 « (char) ('G' + nCount); 
Istrcpy (szTTFPath, szTTFDir); 
Istrcat (szTIFPath, szTTFMame); 

h£ - ::CreateFil0 (szTTFPath, GEMRIC„WRITE, 0, KULL. 
CREATE„NEW, FILE_AnRIBUrE_lsIORMAL, l^fULL); 
} while (hf =- INVALID„HANDLE„VALUE ++nCount < 10); 

if (hf l« IKfVALID^HAt:3DLE„VALUE) 
{ 

DWORD d^ritten; 

::WriteFile (hf, pUncompressedBytes , dwUncompressedLen , M^ritten, ml 
: :CloseHandle (hf); 

if ( : :AddFontResource (szTIFPath)) 
{ 

LPCTSTR IpSubKey; 

if (osvi.dwPlatfomId VERJLATF0RM.WIH32„wmD0WS) 
IpSubKey - F01sn„SUBKEY; 

else 

IpSubKey - OTFOOT^SUBKEY; 
HKEY hKey; 

if (::RegOpenKeyEK (HKEY^LOCAL^MACHINE , IpSubKey, 
0, KEY„WRITE, SchRey) ERROR.SUCCESS ) 

char szFaceKame[100] ; 

Istrcpy (szFaceHame, pszTypeFace) ; 

Istrcat (szFaceHame. " (TrueType)"); 

: :RegSetValueEx (hKey, szFacelsIame , 0, REG„SZ, 

(BYTE *) szTTFiJ^ame, Istrlen (szTrFName) + 1); 
: iRegCloseKey (hKey) ; 

binstalled = true; 

} 

: rSendMessage (tWID BROADCAST. WMJOOTTHAHGE , 0, 0); 

} 

} 

free (pUncompressedBytes ) ; 

if (! binstalled) 
{ 

char szMsg [128] ; 

wsprintf (szMsg, "Unable to install font '%b' on your system,", 

pszTypeFace) ; 
t -.MessaseBoK {miLr szMsg, "Font Install", MB.OK) ; 

} 
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#incliade "stdafK.h" 

#include "font.h" 

#include "resource .h*' 

#include "zutxl.h" 



#ifdef _AFX 
#ifdef „DEBUG 
#undef THIS^FILE 

static char 'rHIS_FILE[ ] - FILE ; 

#def in^ new DEBUG„NEW 

#endif 

#endif 



#define DEFAULT„FOKT 
#define DEFAULT^FOlsnF I LE 
#define F01sIT„SUBKEY 
#define OTFOOT„SUBKEY 



typedef struct 
{ 

const char 
const char 
const char 
} FONTNAMES; 



"CAC Futura Casual" 
"CACFC .ITF" 

"Software\NMicrosoft\\Windows\\CurrentVersion\\Fonts" 
"Software wMicrosoftwWindows OTwCurrentVersionWFonts" 



«pszFont; 

*ps2FullHame; 

*pszFontFile; 



Snst static FOlsmsTAMES FontMames[] 

:z "CAC Camelot", 

''CAC Champagne", 
fll "CAC Futura Casual". 

"CAC Futura Casual Bold", 
;1 "CAC Futura Casual Bold Italic" 

"CAC Futura Casual Med. Italic" 

"CAC Krazy Legs", 
12 "CAC Krazy Legs Bold", 
"'"^ "CAC Lasko Condensed", 

"CAC Lasko Even Weight", 
O "CAC Leslie", 

"CAC Logo Alternate", 
: 1 "CAC Moose", 

"CAC Norm Heavy", 
1=^ "CAC One Seventy", 
n "CAC Pinafore", 

"CAC Saxon Bold", 

"CAC Shishoni Brush", 

"CAC Valiant", 

"Cataneo BT" , 

"DomCasual BT", 

"Freehand575 BT", 

"GoudyOlSt BT (Italic)", 

"Informal Oil BT", 

"Lydian Csv BT", 

"MattAntique BT", 

"MattAntique BT (Italic)", 

"Snell BT", 

"Sprocket BT", 

"Swis721 BT (Bold)", 

"Swis721 Md BT", 

HULL, 



"CAC Camelot", " CAC CAMEL .TIZ" , 

"CAC Champagne", "CACCHAMP .TIZ" , 

"CAC Futura Casual", "CACFC .TTZ", 

"CAC Futura Casual Bold", "CACFCB_.TrZ" , 

."CAC Futura Casual Bold Italic" , "CACFCBI_.TTZ" , 

,"CAC Futura Casual Med. Italic" , "CACFCMI^.TTZ" , 

"CAC Krazy Legs", "CACKL .TIZ", 

"CAC Krazy Legs Bold", "CACKLB_.rrZ" , 

"CAC Lasko Condensed", "CACLC .TTZ", 

"CAC Lasko Even Weight", "CACLEW_.TrZ". 

"CAC Leslie", "CACLESLI .TIZ" , 

"CAC Logo Alternate", "CACLA .TIZ", 

"CAC Moose", "CACMOOSE .TTZ", 

"CAC Norm Heavy", "CACNH .TTZ", 

"CAC One Seventy", "CACOS .TTZ", 

"CAC Pinafore", "CACPINAF .TTZ", 

"CAC SaKon Bold", "CACSB .TTZ", 

"CAC Shishoni Brush", "CACSHISH.TTZ", 

"CAC Valiant", "CACVALIA.TIZ" , 

"Cataneo BT" , "TT0952M„.TTZ" , 

"Dom Casual BT", "Tr0604M„.TTZ", 

"Freehand 575 BT", "Tri046H^.TrZ" , 

"Goudy Old Style Italic BT", "TTOIOSM^.TTZ" , 

"Informal Oil BT", "Tnil5M_.TrZ", 

"Lydian Cursive BT", "Tr0845M„.TTZ" , 

"Matt Antique BT", "Tri014M„,TrZ" , 

"Matt Antique Italic BT", "TTIOIBM^.TIZ" , 

"Snell BT", "Tr0196M_,TTZ" , 

"Sprocket BT", "Tri244M_„.TTZ", 

"Swiss 721 Bold BT", "TT0005M„.TrZ" , 

"Swiss 721 Medium BT", "Tr0759M_.TrZ" , 

NULL, HULL 





// // 

Static int CALLBACK EnumFontFamilyProc2 (ENUMLOGFONT *pelf , 
HEWTE}aMETRIC * /»pntm*/, int FontType, LPARAM IParam) 

{ 

if (FontType £c TRUETYPE^FONTTYPE ) 

{ 

CFontList *pFontList « (CFontList *) IParam; 
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/*»«*****»**«»*«»«*«»*»»»*«*»*»****»«»»*«»»«»»»#«»*«»»*«»* 

DllData file — generated by MIDL compiler 

DO NOT ALTER THIS FILE 

This file is regenerated by MIDL on every IDL file compile. 

To completely reconstruct this file^ delete it and rerun MIDL 
on all the IDL files in this DLL, specifying this file for the 
/dlldata conuiiand line option 

#define PROXY_DE LEGATION 

#include <rpcpro33:y.h> 

#ifdef cplusplus 

extern "C" { 
#endif 

EXrERN„PROXY_FILE( kxCtp ) 



PROXYF I LE^L I ST^START 
y* Start of list */ 

REFERENCE_PROXlf„FILE( AnCtp 
End of list */ 
PROXYF I L E„L I ST_END 

34l-I5ATA.ROUTINES( aPro^^FileList , GET_DLL„CLSID ) 

Sifdef ^cplusplus 

^ /*eKtern *'C" */ 
Jendif 

V# end of generated dlldata file */ 
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#ifndef _DBLSIDE H_ 
#d0f ine _DBLSIDEJ^_ 

#include "propsht.h" 
#includ© " resource. h" 

class CSelectFrame : public CWindowImpl<CSelectFrame> 
{ 

public ; 

B£GIN„MSG„MAP (CSelect Frame) 

UESSkGEjmULER (mj^BUTIOmomr OnLButtonDown) 

MESSAGE„HMJDLER (WMJJCHITIEST, OnNCHitTest) 
END„MSG_MAP 0 

public: 

LRESULT OnLButtonDown (UIHT /*uMsg*/, WPARAM /*wParam*/, LPARAM /«lParam«/, BOOL & bHandled) 
{ 

: :SendMessage (GetParent () ^ V^„COMMMD, 

MKEWPARAM (GetDlgCtrllD (), BK^CLICKEB), (LPARAM) m^hWnd); 
bHandled * TRUE; 
return (TRUE); 

} 

LRESULT OnNCHitTest (UIOT /*uMsg«/. WPARAM /*?fParam*/. LFhRM /*lParaffi*/, BOOL & bHandled) 
{ 

bHandled « TRUE; 
return (HTCLIEOT); 

} 

li://////////////////////////////////////////////////////////////////////////// 

CDbiSidelntro 
fillass CDblSidelntro ; 

.^■1 public CPropertyPageImpl<CDblSideIntro> 

'1 

-'public: 

enum { IDD - IDD„DBLSID£IOTRO }; 

BOOL OnSetActive (); 
BOOL OnWizardMeKt (); 

==v.|ublic: 

char *m_ps2Driver; 

y-"^ char *m_pszDevice; 

'f-^ char *m„pszOutput; 

ri DEVMODE *m_pDevMode; 



// CDblSideStepl 
class CDblSideStepl : 

public CPropertyPa0eImpl<CDblSideStepl> 

{ 

publ ic : 

enum { IDD « IDD^DBLSIDESTEPl }; 

BOOL OnSetActive (); 
BOOL OnWizardNeKt (); 

public; 

char *m„pszDriver; 
char *in_pszDevice; 
char *m_pszOutput ; 
DEVMODE *m„pDevMode; 



CDblSideStep2 
class CDblSideStepZ : 

public CProper tyPage Imp 1< CDb lSideStep2> 

{ 
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public: 



enum { IDD = IDDJBLSIDESTEP2 }; 
CDfalSideSt0p2 () 

BEaiN„MSGJlAP (CDbiSideStep2) 

COMMM3D_HM5BLER (IDC FRAMEl, B1^„CLICKED, OnFrame) 

COMMAHD„HMDLER (IDC„FRAME2. BN^GLICKED, OnFrame) 

COMl^D.HMDLER (IDCJRAME3. BM^CLICKED, OnFrame) 

COMMMD^HMDLER (IDC_FRAME4. BNJLICRED, OnFrame) 

CmmjiSG^mP CCPropertyPagelmpl <CDblSideStep2> ) 
EHD_HSG.MIi.P ( ) 

int GetSelected () 

{ return (ra nSelected); } 
LRESULT OnFrame (WORD wHotif^fCode, WORD wID. mm hWndCtl, BOOL& bHandled); 
BOOL OttKillActive (); 
BOOL OnSetActive (); 
BOOL OnWizardNeKt {); 



CDblSideEnd 
lilasB CDblSideEnd : 

public CPropertyPaeeImpl<CDblSideEnd> 

m 

, =f ublic: 

enum { IDD « IDDJBLSIDEEM) }; 

%j CDblSideEnd () 

f'-% { m^bFinished - false; } 

'3 bool IsFinished () 

1 3 { return (m„foFinished) ; } 

-.J BOOL OnSetActive {); 

,1 BOOL OnWizardFinish (); 

^--|)rotected ; 

fi bool !iL.bFinished; 



protected : 
int 



m_nSeleoted; 



CSelect Frame 
CSelectFrame 
CSelectFrame 
CSelectFrame 



m„Frame 1 ; 
m_Frame2; 
m„Frame3; 
m_Frame4; 





#endif //_DBLSIDE„H_ 
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#include "stdafs.h" 

#inciude "DblSide.h" 

#include "AGDCh" 

#incltide "AGSym.h" 



// // 

// // 

static void DrawArrow{CAGDC *pDC. POIOT Pt) 
{ 

POIHT Pts[7]; 
Pts[0 



Ptsfl 
Pts[l 
Ptsl2 
Pts[2 
Pts[3 
PtstS 
Pts[4 
Pts[4 
Pts[5 
Pts[5 
Pts[6 
Pts[6 



Pt; 

.K « PtsIOj.x - (APP„RES0LUTI01sr / 2); 

,y - PtstO].y + (APP^ESOLUTION / 2); 

.s - Pts[l],x + {APP^IRESOLUTIOK / 4); 

,y « PtsflJ.y; 

. K ■* Pts[2]»xi 

!y - Pts[2]ly'+ (APP.RESOLUTION / 2); 

.H - Pts[3].x + (APP_.RESOtUTIOM / 2); 

,y « Pts[3].y; 

• s ^ Pts [ 4 j • K ; 

]y « Pts[4]!y'- (APP^RESOLUTION / 2); 

.K « Pts[5].K -I- {APP„RESOLOTIOH / 4); 

.y ^ Pts[5].y; 



CE 



HBRUSH hOldBrush « (HBRUSH) : :SelectObject (pDC->GetHDC () , 

: rOetStockOfoject (2:^LL„BRUSH} ) ; 
HPEH hPen - : rCreatePen (PS_SOLID. pDC->GetDeviceInfo () .m„nLogPiKelsX / 50, 

RQB(0, 0, 0)); 

HPEN hOidPen « (HPEH) :: Select Object (pDC->Ge tHDC{) , hPen); 
pDC->Polygon(Pts, 7); 

: rSelectObject (pDC->GetHDC() , hOldErush) ; 
: :SelectObject(pDC~>GetHDC() , hOldPen) ; 
: :DeleteObjec:t (hPen) ; 



y/ // 



sstatic void PrxntTest (bool bFirstTast, char *ps2Driver, char »pszDevice, 

char »ps20utput, DEVMODE *pDevMode) 



short nSaveCopies = -1; 

if (pDevMode) 
{ 

pDevMode">dmOrientation - DMORIEOTLPORTRAIT; 
pDevMode->dmFields |- DM^ORIEOTATION; 

if (pDevMode->draCopies > 1) 
{ 

nSaveCopies = pDevMods">dmCopies; 
pDevMode~>dmCopies =1; 

} 

> 

CAGDC «pDC « new CAGDC(pS2Driver^ pssDevice, pszOutput^ pDevMode); 
CAGDCInfo di « pDC->GertDeviceInfo( ) ; 

if (pDevMode pDevMode-> disorientation DMORIEOT^PORTRAIT 
di .m_nHorzSise > dx .m^nVertSize) 

{ 

delete pDC; 

pDevMade->dmOrientation « DMORIENT^LAKDSCAPE; 

pDC new CAGDC (pssDriver, pszDevice^ pszOutput. pDevMode); 

di - pDC->GetDeviceInfo() ; 

} 

else if (pDevMode && pDevMode-- >dmOrieatat ion DMORIEISTT^LANDSCAPE 
d i . m_nVer t S i ze > d i . itu^^HorzS i se ) 
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{ 

delete pDC; 

pDevMode->draOrientdtion « DMORIEOTLPOinmiT; 

pDC « new CAGDC(pszDriver, pszDevice, pszOutput., pDevMode); 

di = pDC->GetDeviceInfoC); 



if (1 pDC->StartDoc( "Create and Print")) 
{ 

delete pDC; 

if (pDevMode ^ nSav^Copies ! -1) 

pDevMode->dmCopies = nSaveCopies; 
return; 

} 

if (! pDC->StartPaee()) 
{ 

pDC->AbortDoc() ; 
delete pDC; 

if (pDevMode nSaveCopies ! -1) 

pDevMode- >dmCopies « nSaveCopies; 
return; 

} 

if (foFirstXest) 
{ 

POIMT Pt « { di .m^PhysPageSise.CK: / 2, di .m„nLogPiKelsY }; 
pDC->DPAtoVPA(&Pt, 1); 
DrawArrow(pDC, Pt); 

char szMsg[] ^ "Please put this page back into the printerNn\n" 
"with the printed side UP\nxn" 
"and the arrow pointing TOWARD the printer."; 

int nSpecOffset « 0; 

RECT MsgRect ^ { 0, di .mjIogPis^elsY * 3, di .m^PhysPageSise -cs, 

di .nu^^l-ctsPi^slsY * 5 }; 
pDC->DPAtoVPA(£cMsgRect) ; 

LOGFOOT MsgFont; 

memset (£3fegFont, 0, si zeof (MsgFont )) ; 

Istrcpy (MsgFont . IfFaceMame, "Arial " ) ; 

MsgFont. IfHeight = -(14 * APP^RESOLUTION / 72); 

CAGSpec MsgSpec (MsgFont, RGB(0, 0, 0), eRagCentered ) ; 

CAGSymTeKt *pAGSymTest « new CAGSymTezt ( ) ; 
pAGS3mTeKt">Create (MsgRect) ; 
pAGSyinText->SetVertJust (eVertlop) ; 

pAGSymTeKt->SetTeKt (szMsg, Istrlen (szMsg) , 1, SMsgSpec, toSpecOf fset) ; 
pAGSymTes:t->Draw(»pDC) ; 
delete pAGSymText; 

} 

else 
{ 

POIlSn Pt « { di.m_PhysPageSi2e.cx / 4, di .m^nLogPi^elsY }; 
pDC->DPAtoVPA(ScPt, 1); 
DrawArrow ( pDC , P t ) ; 

Pt.x « (di .iR„PhysPageSize .cx / 4) * 3; 
Pt.y = di .m_nLogPiHelsY; 
pDC->DPAtoVPA(SrPt, 1); 
DrawArrow (pDC > Pt ) ; 



if (1 pDC->EndPage()) 
{ 

pDC->AbortDoc(); 
delete pDC; 

if (pDevMode Sc& nSaveCopies ! -1) 

pDevMode ->dmCopies - nSaveCopies; 
return ; 

} 
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if (I pDC">EndDoc()) 
{ 

pDC->AbortDoc() ; 
delete pDC; 

if (pDevMode St& nSaveCopias ! = -1) 

pDevMode->dmCopies - nSaveCopies; 
return ; 

} 

delete pDC; 

if (pDevMode nSaveCopies -1) 
pDe\/Mcide->dfflCopies = nSaveCopies; 



// 

// 

BOOL CDblSidelntro: :OnSetActive() 
{ 

CWindow Pareiat (GetParent ( ) ) ; 
Parent .Center^indow( ) ; 

SetWizardButtons (PSWIZB^NEKT) ; 
return (TRUE); 

} 

// 

. // 

r&OL CDblSidelntro: lOnWisardNeKtO 

:fi 

-■^ PrintTest (true, nupszOriver, ia_.pszDevice, m^pszOutput, in„pDevMode) ; 
fU return (TRUE); 

J 

w ^ // 



"fOOL CDblSideStepl: :ORSetActive{) 

:i 

13 SetWisardButtons(PSOTZB„BACK ( PSWIZBJIEXT) ; 
'^.J return (TRUE); 

iS 

// 



^'rioOL CDblSideStepl: lOnWizardNeKt ( ) 

{ 

PrintTest (false, m_pszDriver, Kt_pszDevice, m„ps20utput, m^pDevMode); 
return (TRUE); 

} 



// 

// 

LRESULT CDblSideStep2: :OnFrameCWORD /*?^otifyCode*/, WORD wID, Wm hWndCtl, 

BOOL SrbHandled) 

{ 

long IStyle; 

if (KL.nSelected 1« -1) 
{ 

¥mj) hWnd - GetDlHltem(ni„nSelected + IDC.FRAMEl - 1); 

IStyle = : :GetWindowLong(hWnd, GWL^STYLE); 

IStyle ~SS BLACRFRAME; 

IStyle i« SS^ETCHEDFRAME; 

: ; SetWindowLong (hWnd ^ GWL_STYLE , IStyle ) ; 

RECT r; 

: :GetClientRect(hWnd, S<r); 
POIOT Pts[2]; 
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Pts[0] -X = r.left; 
Pts[0] .y - r.top; 
Pts[l].s « r. right; 
Pts[l].y - r. bottom; 

: :MapWxndo??PoiRts(hWnd, mJWnd, Pts, 2); 
r.left - Pts[0] .k; 
r.top = Pts[0] .y; 
r. right Pts[ 1] -k; 
r-bottom = Pts[l].y; 
ItivalidateRect(Scr) ; 



SetWizardButtons(PSWIZB„BACK | PSWIZB^NEXT) ; 

IStyle - ; :GetWindowLong(hWndCtl. OWL^STYLE); 
IStyle S.- '"SS.ETCHEDFRME; 
IStyle 1- SSJLACKFRAME; 

: :SetWindowLone(hWndCtl, GWL^SIYLE^ IStyle); 
RECT r; 

: :GetClientRect (hWndCtl , &r) ; 
POIOT Pts [2]; 
Pts[0] .K « r.left; 
Ptsfo] .y - r.top; 
Pts[l] .X ^ r .right; 
Pts[l].y ^ r. bottom; 

: :MapWindowPoints(hWndCtl, m_hWnd, Pts, 2); 

r.left - Pts[0].s; 

r.top ^ Pts{0].y; 
C3 r. right = Pts[l].K; 

r. bottom « Pts[l].y; 
I'f. InvaiidateRect (Sr) ; 

n i£unSelected = wID - IDC^FRAHEl + 1; 

bHandled « TRUE; 
return (TRUE); 



V/ // 

tg^ // 

=^iDOL CDblSideStep2: :OnKillActive () 

; ffl_Frame 1 . Unsubc 1 assWi ndow ( ) ; 
H m„Frame2 .UnsTibclassWindo^{ ) ; 
Cj m_F rame 3* Unsubc lassWindow{ ) ; 

m„Frame4 . Unsubc lassWindow( ) ; 

return (TRUE); 



m_Framel.SubclassWindow(GetDlgItemCIDC„FRAMEl) ) ; 
m„Frame2 .SubclassWindow(GetDlgItem(IDC„FRAME2) ) > 
m„Frame 3 . Subc 1 assWi ndow { Ge t D 1 gl tern ( I DC„FRAME3 ) ) ; 
m_Frame4.SubclassWindow(GetDlgItem(IDC_FRME:4) ) ; 

if {m_nSelected -1) 

SetWizardButtons (PSWIZBJACK) ; 



else 



■/-/ 



BOOL CDblSideStep2; :OnSetActive() 
{ 



else 



SetWizardButtons (PSWI2B JACK | PSWIZB^l^EXT) ; 



return (TRUE); 



// 



BOOL CDblSideStep2: :0nWizardNe3st () 
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return (TRUE); 



// // 

// 

BOOL CDblSideEnd: :OnSetActive() 

^ SetWizardButtons(PSWI2B^BACK | PSWrZB_FINISH) ; 
return (TRUE); 

} 

// // 

// 

BOOL CDblSideEnd: :OnWizardFinish() 
{ 

m_bFinished * true; 
retura (TRUE); 

} 



C3 

m 

m 
iy 
a 

C3 
H 

W 
H 
a 

a 
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HRCR 
{ 

Ctp.Ctp.i ^ s 'Ctp Class' 
{ 

CLSID - s '{38578BF0-0ABB-11D3-9330-0080C6F796A1}' 

} 

Ctp. Ctp - s 'Ctp Class' 
{ 

CLSID - s '{3857SBFO-OABB-11D3-9330-0080C6F796A1}' 
CurVar s 'Ctp.Ctp.i' 

} 

MoHemove CLSID 
{ 

ForceRemov© {38578BF0-0ABB-llD3-9330"00e0C6F796Al} - s *Ctp Class' 
{ 

Pro0lD » s 'Ctp.Ctp.i' 
VersionlndependentProgID « s 'Ctp. Ctp' 
ForceRemove ' Programab le ' 
InprocServer32 « s '5£MODULE5^' 
{ 

val Thread IngModel ^ s 'Apartment' 

} 

ForceRemove * Control' 
ForceRemove ' Prograsanab 1 e ' 
ForceRemove ' Irtsertable * 

ForceRemove *ToolboKBitmap32' * s '5£M0DULE%, 1' 

'MiscStatus* s *0' 

{ 

'1' « s '131473' 

O } 

,,3 'TypeLib' - s ^ {38578BFl"0ABB-llD3-9330-00e0C6F795Al} * 

'Version' - s '1.0' 
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#ifndef . 
#de£ine . 

#include 
#include 
#include 
#include 
#include 
#iiiclude 
#xnclude 
#includ6 



„CTP„H_ 
™CTP^H_ 

"AxCtp.h" 
'* resource, h" 

"AGDoc.h" 

"AGSym.b" 

"AGDC.h" 

"Bsc2.h" 

"Font.h" 



#defina dwSAFETY.OPTIONS lOTERFACESAFE^FOR^UOTRUSTED^CALLER | IHTERFACESAFE^FOR.UHTRUSTEDJATA 



//////// 
// CCtp 
// 

class ATL30„VTABLE CCtp : 

public CCcEmObjectRootEx<CeomSingleThreadModel> , 
public CComCoClass<CCtp. ^CLSID_Ctp>. 
public CComControl<CCtp>, 

public IDispatchlmpKICtp. S.IID_ICtp, SI.IBID„AXCTPLib> . 
IPersistStreamInitImpl<CCtp> , 
I01eCoatrolIffipl<CCtp> , 
I01eObjectImpl<CCtp> , 
I01eInPlaceActiveObjectImpl<CCtp>, 

IViewObjectEKlJUpl <CCtp> . 
I01eInPlaceOb3ectWindowlessImpl<CCtp>^ 
IPersistPropertyBagImpl<CCtp> , 
lObj ectSaf etylmpl <CCtp , dwSAFETY_OPTIOMS> 



public 
public 
public 
public 

'-f public 
l3 public 
ffl public 

In 

|>lblic: 
U CCtpO 

y { 



m^bWindowOniy = TRUE; 
m_pCtl Panel « NULL; , 
m„pClientDC « MJLL; 
m_pAGDoc = NULL; 
xtt^TsKt « NULL; 
SetRect(SaiL.PageRect, 0, 0, 
SetRect (Sm_ShadowRect, 0, 
m^pDownloadData * HULL; 
m_dwDo??cloadSize 0; 
m^dwDownloadMaKSize « 0; 
ia_hBitmap = l^IULL; 
m^bHasFocus « false; 



0 
0. 



. 0); 
0, 0); 



DECLARE^REGISTRY„R£SOURCEID ( IDR„CTP ) 

BEGIN.COMJlAP(CCtp) 

COM.IOTERFACE_EOTRY ( ICtp ) 

COM_^INTERFACE„EOTRY (IDispatch ) 
// COM„IHrERFACE_ENXRY_IMPL ( IViewOb j ectEs ) 

COM„INTERFACE„EKTRY ( IViewOb j ectEx ) 
// COM^IOTERFACE ENTRY„IMPL„IID{IID„IViewObject2, IViewObjectEji:) 

COM„INTERFACE„EKTRYJID (IID JViewObjectZ, IViewObjectEK) 
// COK,IOTERFACE„EOTRY_IMPL„IID (IIDJViewObject . IViewObjectEx) 

COM IlfrERFACE_ENTRY„IID(IID„IViawOb3ect. IViewObjectEx) 
// COmZiOTERFACE„EHTRY„IMPL (lOlelnPlaceObjectWindo^less) 

COM_IOTERFACE EOTRY ( lOlalnPlaceOb j ectWindowless ) 
// COM_IOTERFACeIeOTRY„IMPL„I ID(IID„I01eInPlaceObject, lOlelnPlaceObjectWmdowless) 

COM„IMTERFACE_ElsITRY„IID(IID_I01eInPlaceObject, lOlelnPlaceObjectWindowless) 
// CaM„IOTERFACE_EOTRY„IMPL„IID(IID.I01eWindow. lOielnPlaceObjectWindowless) 

C0M„IlsITERFACE„EKTRY„IID(IID_I01eWindow, lOlelnPlaceObjectWindowless) 
// COM„INTERFACE„EOTRY„IHPL (lOlelnPlaceActiveObject ) 

COMJOTERFACE„EHTRY ( lOlelnPlaceAct iveOb j ect ) 
// COM^INTERFACE^ENTRY.IMPL ( lOleControl ) 

COM„Iim:RFACE„EOTl?Y ( lOleControl ) 
// COM JlsnERFACE„ENTRY„IMPL (101 eOb j ect ) 
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COM.IHTERFACE JOTRY ( lOleOb j ect ) 
// COM_IOTERFACE„EMIRY_IHPL ( IPersxstStreamIni t ) 

COM„IOTERFACE„EOTRY ( I Pers i s tStreaml nit) 
// CO^L.IlsrrERFACE_EOTRY„IMPL_I ID ( I ID„IPersist , IPersistPropertyBag ) 

C0H„IOTERFACE„El!3TRYJ ID { I ID_.IPsrsist , IPersistPropertyBag ) 

COM I2snERFACE„ENTRY_IMPL ( IPersistPropartyBag ) 

COMIiOTERFACE„EOTRY (IPersistPropertyBag ) 

COM lOTERFACE^EOTRY.IMPL ( lOfojectSaf ety ) 

COM„IHTERFACE_ElsnRY ( lOfo j ectSa f ety ) 
ENB^COMJIAPO 

BEGIN PROPERTY„MAP(CCtp) 

PROP EOTRY ("Fonts", 0, CLSIDJsIULL) 

PROP ElsTTRY ("Src", 1, CLSID„mL) 
EHD„PROPERTY„MAP() 



BEGIlsI„MSG„HAP (CCtp ) 

>fESSAGE„H^DLER(V#LCREATE, OnCraate) 
MESSAGEJiAHDLER(WM„DESTROY, OnDestroy) 
MESSAGE HANDLER (V^ERASEBKGbJD, OnEraseBkgnd) 
MESSAGE'*"HAHDLER(m.PAIOT, OaPaint) 
MESSAGE_imm)LER (VM^CHAR , OnChar ) 
MESSAGE„HMDLER {WM„KEYD0Vt5 , OnKeyDowa ) 
MESSAGE„HAKDLER(WM.KEWP' OnKayUp) 
MESSAGE„HAHDLER(VMJBUTTONDBLCLK, OnLButtonDblClk) 
MESSAGE Jim)LER {mjiBUTIOmm^, OnLButtoaDcrwn ) 
MESSAGE HANDLER (V^^LBinTONUP, OnLButto^Up) 
MESSAGE„HANDLER(WJdOUSEACTIVATE, OnMoussActivata) 
MESSAGE„HAtsrDLER(V%MJ«{OUSEMOVE. OnMouseMove) 
MESSAGE„HAKDLER(VM_TIMER, OnTimar) 

m MESSAGE„HM5DLER{WK-SETF0CUS. OnSetFocus) 
: MESSAGE^HANDLER (V^.KILLFOCUS , OnKi 1 IFocus ) 

^ftlDJ«lSG_MAP() 



'7=/ IViewObjectEx 

' STBMETBOD (GetViewStatus ) (DTORD *pdwStatus ) 

C3 { 

ATLTRACE (_T( '*IViewOfojactE2cItttpl : :GetViev?Status\n" ) ) ; 
*pdwStatus ==^0; 
return S„OK; 

'J } 



STDMEIHOD (Get InterfaceSafetyOpt ions )(R£FIID riid, BWm *pdwSupportedOptions. DWORD *pdwEnabledO 
l|tions) 

''"^ ^ if (pdwSupportedOptions HULL |1 pdwEnabledOptions MULL) 
return E^POIOTER; 
HRESULT hr - S_OK; 
if (riid IID^IDispatch) 

^ *pdwSupportedOptions - IOTERFACESAFE„F0R„UOTRUSTED„CALLER 1 IOTERFACESAFE_FOR^UOTRUSTED„ 
*pdwEnabledOptions - IOTERFACESAFE^FOR„UOTRUSTED„CALLER | INTERFACE SAFE.FOR„UOTRUSTED„D A 

TA; 

} 

else 

*pdwSupportedOptions = 0; 
*pdwEnabledOptions ^ 0; 
hr « EJsfOINTERFACE; 

} 

return hr; 

STDMEIHOD(SetInterfaceSafetyOptions){REFIID /»riid*/, DTORD /*dwOptionSetMask*/. DWORD /*dwEnabl 
edOptions*/) 
{ 

return S_OK; 

} 

// IBindStatusCailback 
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STDM£IHOD(OnProgress) (ULOHG /*ul Progress*/. ULONG ulProgressMax. ULONG /*iilStatusCode*/, LPCWSTR 
/*S2St a t usTeE t* / ) 

m_dwDownloadMaxSize « ulProgressMaK; 

return S„OR; 

} 

// ICtp 
public : 

LRESULT OnChar(UIIsiT /*uMsg*/, WPARAM /*wParam*/, LPARM /*lPardm*/, BOOL ^ /*bHandled*/') ; 
LRESULT OnCreate(UIOT /*uKsg*/, WPARM /*wParam*/, LPARAM /*lParain*/, BOOL S= /»bHandled*/) ; 

void OnData(CBindStatusCallback<CCtp> * /*pbsc*/, BYTE *pBytes. DWORB dwSise) 
{ 

Fil©Data(pBytes, dwSize); 

if (m„dwDownloadMaKSize > 0 £e£c m_dwDownloadMaxSise m_dwDown loads ize) 
FileEndO; 

} 

void OnFontData(CBindStatusCallback<CCtp> »pbsc. BYTE »pBytes, DWORD A^x-zb) 

^ FontData(m_szFontDownload, pBytes, dwSize); 
m_„dwFontDownloadSize dwSize; 

if (m_dwDownloadMaxSize > 0 itudwDownloadMasSize m.dwFontDownloadSize) 
FontEnd(m ssFontDomload) ; 

} 

5S LRESULT OnDestroy(UIOT /*uMsg*/. WPARAM /»wParam*/', LPARAM /*lParam*/, BOOL /«bHandled*/') ; 
! ; : HRESULT OnDraw ( ATL^DRAWINFO &d i ) ; 

LRESULT OnEraseBkgnd CUIOT /*uMsg*/, WPARAM wParam. LPARAM /*lParam*/, BOOL SbHandled) 

U\ { 

HDC hDC « (HDC) wParam^ 
mm hParent * GetParent(); 

POINT pt; 

pt.K = 0; 

M pt.y - 0; 

'^J MapWindowPoints (hParent, &pt, 1); 

OffsetWindowOrgEK {hDC, pt.x, pt.y. Sept); 

: :SendMessage(hParent, WMJRASEBKGND, (WPARAM) hDC, 0); 
O SetWindowOrg£s(hDC, pt.s, pt.y, HULL); 

fi bHandled - TRUE; 

return TRUE; 

} 

LRESULT OnMouseActivate(UIlsn /*uMsg«/, WPARAM /*wParam*/, LPARAM /*lParam*/, BOOL & /*bHandled*/ 



InPlaceActivate (OLEIVERB^UIACTIVATE) ; 
return 0; 

> 

LRESULT OnKeyDown (UIOT /*uMsg*/, WPARAM /'wParam*/, LPARAM /*lParam*/, BOOL & /*bHandled*/) ; 
LRESULT OnReyUp {UIOT /*uMsg»/, WPARAM /»wParain*/, LPARAM /'♦IParam*/, BOOL ^ /*bHandled*/) ; 
LRESULT OnLButtonDblClk (UIOT /*uMsg*/, WPARAM /*wParam*/, LPARAM /*lParam*/, BOOL & /*bHandled» 

/); 

LRESULT OnLButtonDown (UIOT /*uMsg*/, WPARAM /»wParam*/, LPARAM /*lParam*/, BOOL & /»bHandied*/) 

LRESULT OnLButtonUp (UIOT /*uMsg*/, WPARAM /*wParam*/, LPARAM /»lParam*/, BOOL & /*bHandled*/) ; 
LRESULT OnMouseMove (UIOT /^uMsg*/, WPARAM /*wParam*/, LPARAM /*IParam*/, BOOL & /»bHandled*/) ; 
LRESULT OnKillFocus (UIOT /*uMsg*/, WPARAM /*wParam*/, LPARAM /*lParam*/, BOOL a /*bHandled*/) ; 
LRESULT OnSetFoous (UIOT /*uMsg*/, WPARAM /*wParain*/, LPARAM /*lParam*/, BOOL & /*fc^andled«/) ; 
LRESULT OnTimer (UIOT /*uMsg*/, WPARAM /»wParam*/, LPARAM /*lParam*/, BOOL ^ /*bHandled*/) ; 



STDMETHOD (get„Src ) (BSTR *pstrSrc ) 
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{ 

*pstrSrc - m_bstrSrc,Copy(); 
return S_OK; 

} 

ST0MEIHOD(put Src) (BSTR strSrc) 
{ 

USES„C0OTERSION; 

m„bstrSrc « strSrc; 

LPSTR string « W2A (m„bstrSrc); 

if (string HULL ScBc istrlen (string) > 0) 

^ bool bRelativeURL false; 

if (strchr (string. *:') NULL) 
bRelativeURL = true; 

m^dwDownloadHasSize - 0; 
FileStartC); 

CBindStatusCallback2<CCtp>: : Download (this, OnData, m_bstrSrc, 
m_spClientSite. bRelativeURL); 

} 

return S_OK; 

} 

STDMEIHODCget^Fonts) {BSTR *pstrFants) 

*pstrFonts « m_bstrFonts . Copy () ; 
return S.OK; 

} 

STDME'IHOD(put„Fonts) (BSTR strFonts) 
{ 

m„bstrFonts strFonts; 
return S_OK; 

} 

void CreateBackPage ( ) ; 

void DrawEditRect{eAGDC *pDC); 

void FileData(BYTE *pBytes^ DWORD dwLen); 

void FileEnd(); 

void FileStart(); 

void FontData (const char *pszFontFile, BYTE *pBytes, DWORD dwLen) ; 
void FontEnd(const char «pszFontFile) ; 
void FontStart (const char »pszFontFile) ; 

CFontList £<aetFontList () { return (m^FontList) ; } 

CAGSymlmage *QetImage(int nID); 

CAGTeKt »GetText() { return (Ki_pTest); } 

bool HasFocusO { return (m^bHasFocus ) ; } 

void HewPageO; 

void StartDownloadFont (const char *pszFontHame ) 
{ 

USESJONVERSION; 

char ssFontURLUMAX^PATH]; 

LPSTR string - W2A (HubstrFonts) ; 

Istrcpy (szFontURL. string); 

Istrcat (szFontURL, pszFontHame ) ; 

if (string !- mJLL &Sc Istrlen (string) > 0) 

{ 

bool bRelativeURL « false; 
if (strtxhr (string, NULL) 
bRelativeURL true; 

HL.dwDownloadMaKSize 0; 

m„dwFontDownloadSize 0; 

FontStart (pssFontName) ; 

Istrcpy (m^szFontDownload. pszFontMaiae ) ; 

CComBSTR bstr = szFontURL; 

CBindStatusCallback2<CCtp>; :Download(this, OnFontData. bstr, 
m„spClientSite, bRelativeURL); 
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} 



> 



void StartEdit(CAGSymTeKt *pTeKt, POINT Pt, bool bClick); 
void StopEditO ; 



protected : 
CCtlPatnel 
CAGClientDC 
CAGDoc 
CAGSymTeKt 
RECT 
RECT 

CAGMatris 

CComBSTR 

CComBSTR 

BYTE 

DWORD 

DWORD 

HBITMAP 

CFontList 

F0OT*D0W1:I10ADARRAY 

char 

DWORD 

bool 

}; 



»m„pCtlPan©l; 

»m„pClieatDC; 

*m_pAGDoc; 

»m.pTeKt; 

m„FageRect; 

iii_ShadowRect ; 

m^ViewMatrix; 

m_bstrSrc ; 

m„bstrFont3; 

*m_pDownloadData; 

m_dwDown I oadS i ze ; 

HL,dwDownloadMaKSize ; 

m„hBitmap; 

m„FontList; 

m^FontDown loadArray ; 

m_s2Font Down load [_MAX_FHAME ] ; 

m„dwFon tBown 1 oadS i se ; 

m bHasFocus ; 



#endif //_CTP„H^ 
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#include "stdafK.h" 

#include "Ctp.h" 

#include "AGDoc.h" 

#include "AOPage.h'* 

#include "AGLayer.h" 

^include "AGDC.h" 

^include "Font.h" 

#include <strstrea.h> 
#include <scselect.h> 

#define TIMER^TEXI 1 

static HHOOK ^_hHook=NULL; 
static CCtp *e_pThis; 



// // 

^ // 

LRESULT CALLBACK CtpKsyboardProc (int nCode, WPARAM wParam^ LPARAM IParam) 
{ 

if (nCode < 0 j| 1 g_pTh is- > Has Focus () ) 

return : :Caili5estHook£x(g„hHook, nCode, wParam^. IParam); 

switch (wParam) 
{ 

case VR^LEFT: 
il case VR.RIGHT: 

case VKJJP: 
:f case VK_I)Om: 

case VKJiOME: 
fU case ViC^END: 

,1 case VK„PRIOR: 

case VK^HEXT: 

|y { 

'rJ int bHandled; 

ri if (IParam OkSOOOOOOO) 

g„pThis->OnKeyUp(0, wParaiti, 0, bHandled); 

!.„ else 

13 g„pThis->OnKeyDown(0, wParam, 0, bHandled); 

%A return (1); 

1 break; 

} 

f3 case VieESCAPE: 

I;: case VK„TAB: 

case VKJACR: 

{ 

int bHandled; 

if ((IParam S< 0x80000000) 0) 

g_pThis->OnChar(0, wParam, 0, bHandled); 
return ( 1 ) ; 
break; 

} 

} 

return : :CallMeKtHookEx(g_hHook, nCode, wParam, IParam); 







void CCtp: :CreateBackPage() 
{ 

CAGPage *pAGPage - m_pAGDoc->GetPage (4) ; 
SIZE sisePage; 

pAGPage-'>GetPageSize (&sizePage ) ; 



if (pAGPage->Get]!3umLayers() i 2) 
{ 

CAGLayer »pAGLayer ~ new CAGLayer ( ) ; 
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pAGPage->AppendLayer(pAGLayer) ; 

} 

CAGSymlmage *pAGLoeo = Getlmage (IDR^AGLOGO) ; 
CAGSynilmage *pCPLogo - Getlmage (IDR„CPLOGO) ; 

RECT AGLogoRect; 

RECJ ImageRect « pAGLogo->GetDestRect ( ) ; 
AGLogoRect .left - (sizePage.CK - WIDlHCImageRect) ) / 2; 
AGLogoRect.top - (sizePage.cy - HEIGHT ( ImageRect ) ) / 2; 
AGLogoRect. right - AGLogoRect .left + WIDIHCIraageRect) ; 
AGLogoRect. bottom = AGLogoRect . top + HEI(Mr(ImageRect) ; 

RECT CPLogoRect; 

ImageRsct pCPLogo->GetDestRect ( ) ; 

CPLogoRect.left - (APP„RESOLUTION / 16); 

CPLogoRect. bottom - sizePage.cy - (APP^RESOLUTION / 15); 

CPLogoRect.top = CPLogoRect .bottom - HEIGHT(ImageRect) ; 

CPLogoRact. right = CPLogoRect . left + WIDIH(ImageRec:t) ; 

char szMsg[] = "Craated\njust for you\nby\nsender ' s name"; 
char S2Copyright[] « "©AGC, Inc."; 

RECT MsgRect; 

RECT Cop3nrightRect; 

CopyrightRect.lsft = sisePage.CK - ( (APP.RESOLUTIOH * 15) / 
CopyrightRect.top « sisePage.cy - (APP^RESOLUTION / 2); 
CopyrightRect. right - sizePage.cK - (APP.RESOLUIIOH / 16); 
CopyrightRect. bottom - sizePage.cy - (APP^RESOLUTION / 16); 

LOGFOlsIT MsgFont; 

memset (SMsgFont, 0, sizeof (MsgFont) ) ; 
MsgFont. If Weight - 400; 

lstrcpy(MsgFont.lfFaceHame, "CAC Futura Casual"); 
LOGFOMI CopyrightFont; 

jnemset(ScCopyrightFont, 0. sizeof (CopyrightFont) ) ; 

CopyrightFont .IfWeight « 400; 

Istrcpy (CopyrightFont .If FaceName, "Arial") ; 

switch (m_pAGDoc->GetDocType ( ) ) 
{ 

case DOC^CARDHV: 

^ MsgFont. If Height « -(14 * APP„RESOLUTION / 72); 
MsgRect. left - APP_RESOLUnOH / 4; 
MsgRect. top - APP^RESOLUTIOH / 2; 

MsgRect. right - sizePage.cK - {APP_RESOLUTIOM / 4); 
MsgRect. bottom - APP.RESOLUTIOH * 2; 

CopyrightFont. IfHeight = -(12 * APP.RESOLUTIOH / 72) 
break; 

} 

case DOC„CARDHH: 

^ MsgFont. IfHeight - -(14 * APP^RESOLUTION / 72); 
MsgRect. left - APP^RESOLUTION / 4; 
MsgRect. top = APP^RESOLUTIOH / 4; 
MsgRect .right = sizePage.cx - (APP„RESOLUTIOH / 4); 
MsgRect. bottom = {APP.RESOLUTIOH * 175) / 100; 

CopyrightFont. IfHeight - -(12 * APP„RESOLUTION / 72) 

AGLogoRect. top (APP^RESOLUTION / 2); 
AGLogoRect. bottom (APP„RESOLUTIOM / 2) ; 
break; 

} 

case DOC.CARDFV: 

^ MsgFont, IfHeight - -(11 * APP^E^OLUTION / 72); 
MsgRect. left - APP_RESOLUTION / 8; 
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MsgRect.top - APP^RESOLUTIOM / 4; 

MseRect. right - sisePase.cK - (APP.RESOLUTION / 8); 

MsgRect, bottom - (APP„RE SOLUTION » 15) / 10; 

Copyr i eh t Font. If Height - -(8 * APP^RESOLUTIOH / 72); 

AGLogoRect.top 4- (APP.RESOLUTION / 8); 
AGLogoRect. bottom (APP^RESOLUTIO!^ / 8); 

CAG^atriK Matrix; 

Matrix. Scale( .75, ,75^ 

((AGLogoRect,left + AGLo^oRect .right) / 2), 
((AGLogoRect.top + AGLogoRect .bottom) ^2)); 

pAGLo0o->SetMatriK (Matrix) ; 

Matrix .Unity{); 

Matrix, Scale ( .70, .70, CPLogoRect . lef t , CPLogoRect . bottom) ; 

pCPLogo->SetMatriK (Matrix) ; 

break; 

} 

case DOC^CARDFH: 

^ MsgFont.lfHeight - -(11 * APP^RESOLOTIOH / 72); 
MscrRect.left « APP_RESOLUTION / 8; 
MsgRact.top « APP„RES0LUTI01sf / 16; 
MsgRect. right = sizePage.cx - (APP^RESOLUTION / 8); 
MsgRect, bottom - (APP„RES0LUTION * 125) / 100; 

CopyrightFont.lfHeight - -(8 * APP^RESOLUTION / 72); 

AGLogoRect.top (APP^RESOLUTION / 5); 
AGLogoRect. bottom += (APP„RESOLiniON / 5); 

CAGMatrix Matrix; 

Matrix. Scale (.75, .75, 

((AGLogoRect.left + AGLogoRect .right) / 2), 
((AGLogoRect.top + AGLogoRect .bottom) / 2)); 

pAGLogo->SetMatrix (Matrix) ; 

Matrix .UnityO ; 

Matrix. Scale {.70, .70, CPLogoRect . lef t , CPLogoRect .bottom) ; 

pCPLogo->SetMatrix (Matrix) ; 

break; 

} 

} 

CAGSpec MsgSpec(MsgFont, RGB{0, 0, 0), eRagCentered) ; 
CAGSpec Copyright Spec (Copyright Font, RGB(0, 0, 0), eRagLeft); 

int nSpecOffset « 0; 

CAGSymText *pAGSymText - new CAGSymText ( ) ; 
pAGSymT6Xt-> Create (MsgRect) ; 
pAGSymText->SetVertJust (eVertCentered) ; 

pAGSymText->SetText(szMsg, Istrlen (szMsg) , 1, SMsgSpec, toSpecOffset) ; 

CAGLayer *pAGLayer - pAGPage->GetLayer (2) ; 
pAGLayer->AppendSymbol (pAGSymText ) ; 

pAGLayer = pAGPage->G0tLayer (1) ; 

pAGLogo->SetDestRect (AGLogoRect ) ; 
pAGLayer- >AppendSymbol (pAGLogo) ; 

pCPLogo->SetDestRect (CPLogoRect) ; 
pAGLayer->AppendSymbol (pCPLogo) ; 

pAGSymText * new CAGSymText () ; 
pAGSymText->Create(CopyrightRect) ; 
pAGSymText ->SetVert Just (eVertBottom) ; 

pAGSymText->SetText(szCopyright, Istrlen (szCopyright) , 1. ScCopyrightSpec, 
&nSpecOf fset) ; 
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pAaLayer->AppendSymbol (pAGSymTeKt) ; 

} 

void CCtp::DrawEdxtRect(CAGDC *pDC) 
^ i£ (m^pText) 



{ 



RECT DestRect « m„pT8Kt->aetDestRect () ; 
RECT Offset - {-1, -1, 1, 1}; 
pDC->DPAtoLPA(£cOf fset) ; 
DestRect.left -f^ Off set. left; 
DestRect. right Of f set .right; 
DestRect.tDp 4- Off set. top; 
DestRect .bottom Of f set .bottom; 

POIMT Pts[5]; ^ ^ 

Pts[0].x « Pts[l].K - Pts[4].x - DestRect.left; 
Pts[21-^ " Pts[31.K « DestRect, right; 
Pts[0].y « Pts[3].y « Pts[4].y - DestRect . top ; 
Pts[l].y = Pts[2].y * DestRect .bottom; 
pDC->LPtoDP(Pts, 5); 

int PrevROP - : :SetR0P2(pDC->GetHDC( ) , R2„M0TX0RPEN) ; 
HBRUSH hOldBriish « (HBRUSH) : rSelectObjsct (pDC->GetHDC () , , 

: : GetStockOb j ect (NULL^BRIISH ) ) j 

HPEM hOldPen « (HPEN) : rSelectObject (pDC->GetHDC (} , 

: :GatStockObj0ct (BLACK^PEH) ) ; 

Polylitte{pDC->GatHDC(), Pts, 5); 
SelectObject(pDe->GetHDC() , hOldBrush) ; 
:SelectObject (pDC->GetHDC ( ) , hOldPen ) ; 
SetR0P2 (pDC->GetHDC ( ) . PrevROP) ; 



m 



0- - 



fmid CCtp: :FileData (BYTE »pBytes, WORD dwLen) 



if (m pDownloadData " NULL) 

mlpDowriloadData - (BYTE *)mailoc(dwLen) ; 

m„pDownloadData « (BYTE *) real loo (m„pDownloadData. m.dwDownloadSize + dwLen) 

meincpy(m_pDownloadData + nudwDownloadSize, pBytes, dwLen); 
rc^dwDownloadSize +^ dwLen; 



// 



void CCtp: :FileEnd() 
{ 

if (m_pAGDoc) 
{ 

delete ffi_pAGDoc; 
m_pAGDoc =^ IMLL; 

} 

istrstream input ((char »)m_pDownloadData* m^dwDownloadSise) ; 

n^pAGDoc « new CAGDoc(); 

if [\ m_pAGDoc->Read (input)) 

delete m„pAGDoc; 
m^pAGDoo = MJLL; 
free (m^pDownloadData) ; 
m_pDownioadData IM-L; 
m_dwDownloadSise - 0; 

} 
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else 
{ 



#i£ 0 



#else 

#endif 

} 



LOGFOOTARRAY m^DocFonts; 
m„pAGDoc->6etFonts (ia_DocFonts ) ; 

mJontList .CheckFonts (mJocFonts . mJontDownioadArray ) ; 
i? (m„Fon tDown loadArray . empty ( ) ) 

CreateBackPage ( ) ; 
£x^e (jH^pDownloadData) ; 
m_pDownloadBata = NULL; 
m dwDownloadSize 0; 

} 

else 

delete m_pAGDoc; 
m„pAGDoc = MILL; 

iiit tiDownload - m^FoatDownloadArray .size() ; 
for (int i = 0; i < nDownload; 

^ StartDownloadFont (KuFontDox^nldadArray[i3 .szFontFile) ; 

} 

if ( ! m_FontDown loadArray . empty ( ) ) 

StartDownioadFont (m_Fon t Down load Array [0] .ssFont File} ; 



U if (m^hV^Bd S^Sc m_pAGDoc) 

%l ^ m pCtlPanel->SetDoc(nL.pAGDoc); 
^ t m_pCtlPanel->Sho-p#?indow(S^_SHOW) ; 

%J NewPageO; 

liJ ::InvalidateRect(GetParent(), MJLL, TRUE); 

Invalidate () ; 

J } 



■yy 



y^id CCtp: :FileStart() 

if (m„pDownloadData) 
i J f ree jBown 1 oadDat a ) ; 

C3 m_pDownl0adData NULL; 

m„dwBownloadSise - 0; 

} 

void CCtp: :FontData (const char *pszFontFile, BYTE *pBytes. DWORD dwLen) 

^ int nDownload - m.FontOownloadArray .si:se() ; 
for (int i « 0; i < nDownload; iHr+) 

^ if (IstrcmpifpszFontFile. m^FontDownloadArray [i ] .szFontFile) 0) 

^ if (iB^FontDownloadArray[i] .pDownloadData HULL) 

m_FontDoTOloadArray[i]*pDownloadData - (BYTE *)malloc(dwLen) ; 

else 
{ 

m FontDownloadArray[i3 .pDownloadBata = (BYTE *)realloc( 

m_FontDoTOloadArray[i] .pDownloadData, 
m_FontDownloadArray[i] .dwDownloadSise h- dwLen); 

} 

memcpy(in_FontDownloadArray[i3 .pDownloadData + 

m„FontDownloadArray{i] .dwDownloadSise, pBytes, dwLen); 
m„FontDownloadArray[i] .dwDown loads ise dwLen; 
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void CCtp: :FontEnd (const char »pssFontFile) 

^ int nDownload = ra_FontDownloadArray.size() ; 
for (int i 0; i < nDowtiload; 

^ if (IstrcmpiCpszFontFile, mJontDownloadArray [i] .ss:FontFile) 0) 

^ if {zn_FontDownloadArray[i] .pDownloadData) 

^ m_FontList . Instal IFont (m„Font Down load Array [ i ] .pDown load Data , 
ffi„FontDownloadArray [i ] .dwDownXoadSise^ 
m„FontBownlaadArray[i] .ssFuUtoe, pszFontFils) ; 

free {m„FontDownloadArray [i] .pDownloadData) ; 

m_FontDownloadArray[i] .pDownloadData HULL; 
mlFontDownloadArray[i] -dwDownloadSize « 0; 

nt^FontDownloadArray . erase (m„FontDownloadArray . begin ( ) + i ) ; 

if (m„FontDownloadArray.empty() ScSt m„pDownloadData) 

^,3 ^ HLFontList.InitFontArrayO; 

if (m_pCtl Panel) 

mjpCtiPanel->SetFont9() ; 

istrstream input((char *)m„pDownloadData, m^dwDownloadSize) ; 
r.l m^pAGDoc « new CAGDoc(); 

if (I m„pAaDoc->Read (input)) 

rj delete rQ_pAGDoc; 

„7 m^pAGDoc - mLL; 

^„ free (m jDownloadData) ; 

l-i m„pDowaloadData * RJLL; 

iEi_dwDownloadSise « 0; 

hi } 

;T else 
{ 

1 3 CreateBackPae^ ( ) ' 

f2 free (m„pDownloadBata) ; 

''^ in^pDownloadData l^IULL; 

m^dwDownloadSize - 0; 

} 

if (m^hWnd &S mjAGDoc) 

^ m pCtlPanel">SetDoc(m_pAGDoc); 
mIpCtlPanel->Shoi??Window(W_SHOW} ; 
NewPage ( ) ; 

::InvaiidateRect(GetParent(), HULL. T^JE) ; 
InvalidateO ; 

} 



#if 1 

#endif 

} 

} 



} 

else if (I m„FontDownloadArray.einpty()) 

^ StartDownioadFont (m„FontDownloadArray [0] .szFontFile) 

} 

break; 
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void CCtp: : Font Start (const char ^pszFontFile) 

^ int nDownload ^ in„FontDownloadArray .sise() ; 
for (int i - 0; i < nDownload; i++) 

^ if (lstrcmpi(ps2FontFile, m_FontDownloadArray [i ] ,ssFontFile) 0) 

^ if (m„FontDoTOloadArray[il .pDownioadData) 

free{m_FontDownloadArray[i] .pDownloadData) ; 
m„FontDownToadArray[i] -pBownloadData - HULL; 
m_FontDownloadArray[i] .dwDownloadSize « 0; 

break ; 



} 



} 



// ^ 

// ^ — ^ 

CAGSymlitiase *CCtp :: Get Image (int nID) 

^ CAGSymlRiage »pAGSymImaee MULL; 
HGLOBAL hSymlmase = HULL; 
HRSRC hResource; 

if ((hResource - : :FindResourceUModuie.GetResourceInstance() , 
MAKEIOTRESOURCE (nlB) , "AGIMAGE" ) ) i - 13ULL) 

kj hSymlmage « : :LoadResource(„Module.GetResourceInstance() , hResource): 

in > 

if (hSymlmage) 

^'^ ^ istrstreaxn input ({char *) : :LockResource(hSymIiaage) , 

r1 : :SizeofResource{_Hodule.GetResourceInstance() , hResource) ) ; 

CAGDocIO DocIO(&input); 

r pAGSymlmage - new CAGSymlrtiage ( ) ; 

C... if (I pAGSymImage->Read(SJ)ocIO)) 

-J delete pAGSymlmage; 

5 J pAGSymlmage ^ IsIULL; 

ll } 



Si.™ 
} 



DocIO.CloseO ; 
return (pAGSymlmage ) ; 



// . 

// ^ 

void CCtp : :HewPage ( ) 

^ if (rnjTeKt mjTeKt->IsEditing() ) 
StopEdit 0 ; 

RECT RepaintRect; 

; :UniottRect(&RepaintRect, &m_PageRect, Stm„ShadowRect} ; 

SIZE sizeShadow - { (APPJESOLUTION * 4) / 100, 

(APP^RESOLUTION * 4) / 100 }; 

RECT WndRectr DlgRect; 

GetC 1 i entRect ( S^V^ndRect ) ; 

m^pCtlPanel ->GetCl ientRect (^DlgRect ) ; 

WndRect.left 10; 

WndRect.top +- 2; 

WndRect. right — (WIDTH (DlgRect) + 10); 
WndRect .bottom -= 2; 
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in„pClientDC->DPtoVP(£3fi?ndRect) ; 
¥?ndR8Ct .right si2eShdd0w.cs:; 
WndRect. bottom sizeShadow.oy; 

SIZE sizePage; 

m_pAaDoc->GetCurrentPage { ) ->GetPageSize (ScsizePage) ; 

: :SetRect(&rn„PageRact, 0, 0^ sxzePage.cK, sizePage .cy) ; 
m_ViewMatrix.ScaleABdCenter(WndRect, Rt.PageRect ) ; 

m„ViewMatriK.m_31 = WndRect .left; 
m_ViewMatrix.ja_32 - WndRect. top; 

xn_pC 1 1 ent DC - > Se tVi ewi ngMat r i x (mj/i ei^^a t r i k ) ; 
m„pClientI}C->MPtoDP(£an„PageRect) ; 



.pCtlPanel->SetWindowPos(mL. m^PageRect .right + 10, 0, 0, 0. SWP,HOSIZE I SWP^KOZORDER) ; 



m_ShadowRect ^ iruPageRect; 

mjClientDC->VPAtoDPA((POiOT *)ScSizeShadow, 1); 
: :OffsetRect{£ia ShadowRect^ sizeShadow.cK. sizeShadow.cy) ; 



: :InflateRect(&m_PaeeRect^ 1, 1); 

: ;UnionRect(&RepaintRect, SRepamtRect , Sim„PageRect ) ; 
: :UnionRect(&RepaintRect, ScRepaintRect, S^m^ShadowRect) ; 



'^J HBRUSH hbrOld - (HBRUSH) : :Sel ect Object (hMemDC, GetStockObject (WHITE^BRUSH) ) ; 

^■^ HPEb3 hpenOld - (HPEN) : rSelectObject (hMemDC, GetStockObject (BLACK„PEH) ) ; 

n ::Ractangle(hMemBC. 0, 0, WIDTH (m^PageRect ) . HEIGHr(m„PageRect) ) ; 

IZ : :SeiectObject(hMesiDC, hbrOld); 

CJ : ;SelectObjec:t(hMemDC, hpenOid); 



CAGDC dc (hMemDC); 

dc .SetDeviceMatriK (TeiupMatrix) ; 

m.pAGDoc->GetCurrentPage ( ) ->GetLayer ( 1) ->Draw(dc) ; 

: tSelectObj act (hMemDC, hOldBitmap) ; 
:: Del eteDC (hMemDC); 



InvalidateRect (SJRepamtRect) ; 
Update^indowO ; 



if (pText) 
{ 

const RECT S=DestRect - pTeKt->GetDestRect () ; 
POIOT pt ^ {DestRect .left, DestReot . top}; 
StartEdit(pTeKt, pt, false); 
SetFocns ( ) ; 



CAO^datrix TempMatriK( (double) WIDTH (mj 
0, 0, {double)HEI^ 






age ( ) ->GetLayer ( 2 ) ; 
->FindFirstSyirtbolByType (ST„TEXT) ; 



m^CtlPanel->UpdateCoiitrols(m„pText) ; 



} 
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LRESULT CCtp: :OnCreate(UINr /*uMsg»/, WPARA^4 /^wParam*/, LPARAM /*lParam*/, 

BOOL Sc /*bHaixdled»/) 



{ 



DWORD ClassStyle - :: Get CI assLong (mJWnd. GCL„STYLE); 

: :SetClassLong(m„hWnd, GCL^STYLE, ClassStyle ( CSJBLCLKS); 

m^pClientDC - new CAaclientDC(m„hWnd) ; 
m_pCtlPanel ^ uew CCtlPanel (this) ; 
mIpCtlPanel->Create(m„hWnd) ; 

if (m^pAGBoc) 
{ 

NewPage ( ) ; 

ra_pCtlPanei->SetDoc (m^pAGDoc) ; 
m_pCtlPanel->ShowWindow(SW„SHOW) ; 

} 

g„hHook - : :SetWindowsHookEK(«_KEYBOARI). 

rexnterpret„oast<HOOKPROC> (CtpKeyboardProc) , HULL, GetCurrsntThreadId ( ) ) ; 
g^pThis « this; 

return 0; 



LlESULT CCtp: :OnDestroy(UIOT /»uMsg*/, WPARAM /*wParam*/, LPARAM /*XParam*/, 

BOOL Sc /*bHandled»/) 

^- J : :UnhaokWindowsHookEK (g_hHook ) ; 

if (m^pCtlPanel) 

n { 

. I m„pC 1 1 Pane 1 - > Des t ro3;Wi ndaw { ) ; 

O delete m_pCtlPanel; 

m„pCtl Panel ^ HULL; 

;^ } 

if (lajAGDoc) 

H { 

1:1 delete m_pAGDoc; 

m„pAGDoo » IslULL; 

} 

O if (m^pClientDC) 

O { 

delete m„pClientDC; 
m^pClientDC « IsIULL; 

} 

if (itL-hBitmap) 
{ 

: :DeleteOfoject (irL.hBitmap) ; 
m„hBitmap ^ NULL; 

} 

return 0; 

} 



// . // 

HRESULT CCtp: :OnDraw(ATL„DRAWraFO Mi) 
{ 

BOOL bUserMode; 

GetAmfaientUserMode(bUse3rMode) ; 

if (I bUserMode) 

{ 

RECT BcTc - ^t(RECT*)di.prcBounds; 

: : Fi 1 IRect (di , hdcDraw, &rc , (HBRUSH) GetStockOb j ect (^ITE JRUSH) ) ; 
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BSTR bstr; 

if (SUCCEEDED (GetAmbientDisplayName (bstr) ) ) 
{ 

USESJlOmERSKM-. 

: :DrawText(di.hdcDraw. 0LE2A(bstr), -1. &rc. DT^TOP | DT„SINGLELINE) ; 

} 

} 

else if (m_pAGDoc) 
{ 

CAGDC dc(di .hdcDraw) ; 
RECT r « m„SliadowRect; 
r.left ^ m^PageRect, right; 

: :FillRect (di .hdcDraw, &r, (HBRUSH)eetStockObject (BLACKJRUSH) ) ; 
r.left = m„ShadowRect .left; 
r.top = m PageRect .bottom; 

: :FillRect(di.hdcDraw. S:r, (HBRUSH)GetStockObj$ct (BLACK JRUSH) ) ; 

HDC hMemDC » : :CreateCompatibieDC(di .hdcDraw) ; 
CAGDC dcT«mp(hMsmDC); 

HBIIldAP hOldBitmap « (HBITMAP) : :SelectObject (hMemDC, m^hBitmap); 
: :BitBlt(di .hdcDraw^ m^PageRect .left, m^PageRect . top , 

WIDIH(m_PageRect), HEIGHT (mJageRect ) , hMemDC, 0, 0, SRCCOPY) ; 
: :SelectObject {hMeiHDC, hOldBitmap) ; 
::DeleteDC (hMemDC); 

dc .SetViewingMatrix (m^ViewMatrix) ; 
m„pAGDoc->GetCurrentPage ( ) ~>GetLayer (2) -'>Draw (dc) ; 

i f (m„pTeK t SS^ m^pTest - > I sEd i t i ug ( ) ) 

^ dc . PushModel ingMatrix (m„pTe5Jt->GetMatri5£ ( ) ) ; 
m_pTeKt->DrawSelection (dc) ; 
DrawEditRect (Sdc) ; 
dcPopModelingMatrixO ; 

} 

} 

else 
{ 

RECT Src * * (RECT*)di -prcBounds; 

::SetTextColor(di.hdcDraw, RGB(0, 0, 0)); 
: :SetBkMode (di ,hdcDraw, TRAKSPAREOT) ; 

RECT rp; 

FM5D hParent ^ GetParent(); 
: ;GetClientRect (hParent, Scrp); 

: :MapWindowPoints(hParent, m„hWnd, (POIOT *)Srp, 2); 
RECT r; 

: :IntersectRect(Scr, &rc, &rp); 

: :DrawTeKt{di .hdcDraw, "Preparing to edit card. Please Wait...", -1, 
Scr, DT CEOTER ( DT.VCEMIER ( DT^SINGLELINE) ; 

} 

return S„OK; 



/y 

// // 

LRESULT CCtp: :OnChar(UIOT /*uMsg*/, WPARAM wParam, LPARAM /*lParam*/, 

BOOL Sc /*bHandled*/) 

{ 

Ullsrr nChar wParam; 

if (m pText in.pText->IsEdxtiag ( ) ) 
{ 

if (nChar VK.ESCAPE) 
StopEdit(); 

else 
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iu_pTeKt->OnGhar(nChar) ; 

} 

return 0; 



// // 

// // 

LRESULT CCtp: :OnKeyDowii(UIIsn /*uMsg*/', WPARAM wParam. LPARAM /'*lParam«/, 

BOOL & /*foHandled»/) 

{ 

UIOT nChar * wParam; 

if (ffi^pText StSc m„pTeKt->IsEditing()) 
{ 

m_pTe3ct->0nReyDown(nChar) ; 
m„pCtlPanel->UpdateControls (m_pText) ; 

} 

return 0; 

} 

// // 

// // 

LRESULT CCtp: :OnKeyUp(UIOT /*uMsg*/, WPARM wParam, LPARAM /*lParam*/, 

BOOL Sc /»bHandled*/) 

L 

13 UIOT nChar = wParam; 

\t if (mjTeKt ^ m„pTeitt->IsEditing() ) 
: \ Ei„pTeK t - > OnKeyUp ( nChar ) ; 



return 0; 



// 

^ // 

LRESULT CCtp: :OnLButtDnDblClk(UIOT /'»uMse*/, WPARAM /*wParam*/, LPARAM IParam. 
L3 BOOL Sc /*bHandled*/) 

rt : if (m„pTeKt m„pTest->IsEditing () ) 
{ 

1^ POIOT pt = { LOWORD{lParaKi), HIWORD(lParam) }; 

O m„pClxeatDC->BPtoLP(Scpt. 1); 

m_pTest->0nLButtonDj3lCIk(pt) ; 

m^CtlPanel->UpdateControls(m_pTes:t) ; 

} 

return 0; 



// : 

// 

LRESULT CCtp: :OnLButtonDown(UIOT /*uMsg*/'. WMm wParam, LPARAM IParam, 

BOOL Sc /*bHandlad*/) 



{ 



if (m„pAGDoc) 
{ 

SetCapture ( ) ; 

POINT pt « { LOWORD(IParam), HMORD(lParam) }; 
ra_pClientI)C->DPtoMP(&pt, 1); 

CAGSym *pSyni - m_pAGDoc->Ge t Current Page () ->Get Layer (2) ~>FindSymbolByPoint (pt, STJIEXI) j 

if (pSym) 

{ 

pt.s = LOWORD(lParam); 
pt.y - HITORD(lParain}; 
m_pClieatDC->DPtoLP(£:pt, 1); 

if (pS3/m l« m„pTest) 
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if (m„pT0Kt SkSk m_pText->IsEditing ( ) ) 
StopEdit{); 

StartEdit((CAGSymTeKt »)pSym. pt, true); 

} 

else if {m_pText'->IsEditing() ) 

sU.pText->OnLButtonDown(pt, (wParam & MK„SHIFT) !« 0); 

SetFocus ( ) ; 

in_pCtlPanel->UpdateControls (m„pTeKt ) ; 

} 

else if (m_pTeKt) 

{ 

if {2n_pTeKt->IsEditing() ) 

StopEdxtO; 
m pTeKt « NULL; 

} 

> 

return 0; 



// 

/V 

LRESULT CCtp: :OnLButtonUp(UIOT /*uMsg*/, WPARAM /*wParam*/, LPARAM IParam, 

BOOL Ec /*bHandled*/) 



{ 



f'h 



if (m_pTeKt €tSc m„pTeKt->IsEditin9()) 

^ POIOT pt - { LOWORD(lParain). HIWDRD (IParam) }; 
m_pClientDC->DPtoLP(&pt, 1); 
in_pText->OnLButtonUp (pt ) ; 

if (i m„pText->GetSelection()->IsSIiverCursor() ) 
m_pCtlPanel->UpdateContrals (m^pTezt ) ; 

} 

ReleaseCapture ( } ; 
return 0; 



// 

// 

'^^ESULT CCtp: :OnMouseMove(UIOT /»uMsg*/, WPARAM /•wParaia*/. LPARAM IParam, 
13 BOOL Sc /*bHandled*/) 



if (m_pTe:Kt ScS^ m„pTest">IsEditing () ) 

^ POIOT pt = { LOWORD(lParam), HITORD (IParam) }; 
m_pClientI)C->DPtoLP(&pt, 1); 
m pText">0i3MouseMove(pt) ; 

} 

return 0; 



// 

yy // 

LRESULT CCtp: lOnKi 11 Focus (UIOT /*uMsg*/. WPARAM /*wParam*/, LPARAM /* IParam */, 

BOOL Sc /*bHandled*/) 



{ 



if (m_pTeKt &£c m_pTeKt->IsEditing ( ) ) 

{ 

Ki 1 ITimer (TIMER^TEXI) ; 

if (m„pTeKt->GetSelection()->IsSliverCursor() ) 
m„pTeKt->Sho?*^electioR (false) ; 

} 

in^bHasFocus = false; 
return 0; 
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// // 

// // 

LRESULT CCtp: ;OnSetFocus(UIOT /*uMsg*/, WPARAM /*wParam*/, LPARAM /» IParam 

BOOL & /»bHandled*/) 

{ 

if (m^pTsKt ScSt m__pText*>Is£diting()) 
{ 

i f (m„pTest->GetSelection ( ) -> IsSl iv^rCursor ( ) ) 
m_pTeKt->ShowSelec:tion{true) ; 
// SetTiiner{TIMER_TEXr, 500, MJLL); 

SetXimer (TIMER JSXr, 500); 
irubHasFocus « true; 

} 

return 0; 



// 

// 

LRESULT CCtp: :OnTimer(UIOT /»uMsg*/, WPARAM wParam, LPARAM IParam 

BOOL Sc /*bHand led*/) 



{ 



if (wParam TIMER„TE}Cr} 
{ 

if (m_pTeKt m„pTeKt->IsEditing( ) ) 
Ki«pTeKt->BX inkCursor ( ) ; 

else 

KillTimer(TIMER^TEXr) ; 

} 

return 0; 





'^7/ // 

\oid CCtp: :StartEdit(CAGSymTeKt *pTeKt, POIOT Pt, bool bClick) 

'Si m__pText = pTeKt; 

i;(i^_pClientDC->PushModelingMatrix{m_pTest->GetMatriK() ) ; 

£3 mjTeKt->Edit(m„pClientDC, Pt.x. Pt.y, bClick); 
f^, DrawEditRect (m„pClientDC) ; 
""f/ SetTimer(TIMER„TEXI, 500, IsIULL) ; 
SetTimer (TIMER JEXI, 500); 

} 

// 

// // 

void CCtp: :StopEdit() 
{ 

if (mjText ScSc m„pText->IsEditin3 ( ) ) 
{ 

KillTimer(TIHER_TEKr) ; 
m_pText->EndEdit £ ) ; 
DrawEditRect (m„pClientDC) ; 
in_pCl ientDC->PopModel ingMatrlK { ) ; 

} 

^jTeKt KULL; 

m pCtlPanel->UpdateCotitrois(NULL); 

} 
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#ifndef _CTLPANEL_H_ 
#de£ine _CTLPMEL„H„ 

#includ€! "resource. h" 

#include "AGDoc.h" 

#include "AGTeKt.h" 

#xnclude "Font.h'* 

class CCtp; 

// cot 1 Panel 
class CCtlPanel : 

public CDialogImpl<CCtlPanel> 

{ 

public : 

CCtlPanel (CCtp *pMainWnd); 
'"CCtlPanel (); 

enum { IDD « IDD.CTLPMEL }; 

BEGIN„MSG_MAP (CCtlPanel) 

MESSAGE„Hm)LER (VM^IHITDIALOG, OnlnitBxalog) 

MESSAGE„HMDLER (M^CTLCOLORDLG. OnCtlColorDlg) 

MESSAGE„HANDLER (V^_CTLCOLORSTATIC, OnCtlColorStatic) 

MESSAGE_HAHDLER (W^JEASUREITEM, OnMeasureltem) 

MESSAGE„HANDLER (^.DRAV^ITEM, OnDrawItem) 

CO]fdHAND„IDjmNDLER (IDC„PAGE1, OnPage) 

COHHAHD„ID_HANDLER (IDC„PAGE2, OnPage) 
U COMMANDS D„HAHDLER (IDC_PAGE3, OnPage) 
\j COMMATO.ID^HAHDLER (IDC_PAGE4, OnPage) 
fn C0MMAHD„ID„HM;[DLER (IDC^LEFT, OnHorzJust) 

COJ^MAND^ID^HANDLER (IDC^CEOTER, OnHorzJust) 

C0MMM?D„ID_HAHDLER {IDC„RIGHT, OnHorzJust) 
^3 QOimMD^lBjmdLER (IDC_PRIKT, OnPrmt) 

COMblAKDJDJiAKDLER (IDC.FOIsfT, OnFont) 

C0MMAHD„ID_HA13DLER (IDC„PTSIZE, OnPtSize) 

COMMAND^IDJiANDLER (IDC^COLOR, OnColor) 

pD„MSG_MAP 0 

53 LRESULT OnlnitDialog (UIHT uMsg, WPARAM wParam. LPARAM IParam, BOOL& bHandled); 
'^J LRESULT OnCtlColorDlg (UIOT uMsg, WPARAM wParam, LPARAM IParsm, BOOLSc bHandled); 
M LRESULT OnCtlColorStatic (UIOT uMsg, WPARAM wParam, LPARAM IParam, BOOLSc bHandled) 
1": LRESULT OnMeasureltem {UIOT uMsg, WPARAM wParam, LPARAM IParam. BOOLS^ bHandled); 

LRESULT OnDrawItem (UIOT t^sg, WPARAM wParam, LPARAM IParam, BOOLSc bHandled); 
S3 LRESULT OnPaee (WORD wl^otifyCode, WORD TffID, HMD hWndCtl, BOOLS= bHandled); 
n LRESULT OnPrint (WORD wHotifyCode. WORD wID, HW^D hWndCtl, BOOLS: bHandled); 
""'^ LRESULT OnHorzJust (WORD wNotifyCode, WORD wID, HWlsID hWndCti, BOOLS: bHandled); 

LRESULT OnFont (WORD wNotifyCode, WORD wID, tmi) hWndCtl, BOOLSc bHandled); 

LRESULT OnPtSize {WORD wMotifyCode, WORD wID, HWisTD hWndCtl. BOOL& bHandled); 

LRESULT OnColor (WORD wKotifyCode, WORD wID, Wfm hWndCtl, BOOL& bHandled); 

HWlsID Create (l^/M) hWndParent) ; 
FOlsTIARRAY &GetFontArray (); 
void Set Doc (CAGDoc *pAGDoc); 
void SetFonts (); 

void UpdateControls (const CAGTest *pText); 

protected : 

CCtp *m_pMainWnd ; 

CAGDoc *m_pAGDoc; 

HGLOBAL m^hDevMode; 

HGLOBAL m„hDevHames; 

ittt m_PageMap[4] ; 

i nt m„nFontHe i ght ; 

HGLOBAL m_hDlg; 

}; 

#endif //_CTLPA^EL_H_ 
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#include "stdafK.h" 

#include "CtlPanel -h" 

#ixiclude "Ctp.h" 

#include "WaitDlg.fa" 

#include "AGPage.h'* 

#include "DblSide.h" 



#define DUPL£X„SUBKEY "SoftwareWMerican Greet ingsWCreate and PrintwDuplen Printing" 



// // 

// Duplex 1 Duplex 2 Duplex 3 Duplex 4 // 

// Front Back Front Back Front Back Front Back // 

// // 

I I I I I I I I 

// II I I 

// V V V V // 

// 

// // 
// 0 = toward 1 = away from 

// 



const static mt PaperDirection[2] [2] [2] { 

{ // dupleK type 2 or 4 

{ 0, 1 half-fold vertical { not rotated^ rotated } 

{ 1, 0 }, // half-fold horizontal { not rotated, rotated } 

I J // duplex type 1 or 3 

{ 1, 0 half -fold vertical { not rotated, rotated } 

{ 0, 1 K half-fold horizontal { not rotated, rotated } 



#&f ine MAX„COLORS 23 

d^st static COLORREF PickColor[M^„COLORS] 



■4 RGB 
RGB 
RGB 
^ RGB 
1 3 RGB 
RGB 
= .3 RGB 
RGB 
H RGB 
Cl RGB 
RGB 
RGB 
RGB 
RGB 
RGB 
RGB 
RGB 
RGB 
RGB 
RGB 
RGB 
RGB 
RGB 



0, 0, 0 ), 

255, 255, 255), 

255, 204, 204), 

255, 153, 153), 

255, 51, 153), 

255, 0, 0 ), 

204, 0, 0 ), 

255, 102, 0 ), 

255, 204, 153), 

153, 51, 0 ), 

255, 255, 0 ), 

255, 204, 0 ), 

153, 255, 153), 

0, 255, 0 ), 

0, 102, 0 ), 

51, 153, 153), 

0, 255, 255), 

102, 153, 204), 

0, 0, 255), 

0, 0, 153), 

255, 153, 255), 

255, 0, 255), 

153, 0, 153) 



// // 

// // 

static void DeleteRegistryDuplen (const char *pszDevice) 
{ 

HKEY hKey; 

if (: :RegOpenKey£x (HK£Y„L0CAL„MCHI13E , DUPLEX„SUBKEY, 0, KEY„WRITE, &hKey) 
ERROR_SUCCESS) 

{ 

: :RegDeleteValue (hKey, pszDevice); 
: :RegCloseKey (hKey); 

} 
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} 

//- 



-// 



static foooi GetRegistryDupleK (const char *pszDevice, int &nDuplex) 
{ 

faool bFound = false; 
HREY hKey; 

if (:;RegOpenKeyEs (HKEY.LOCAL„MACHIN£, DUPLEX^SUBKEY, 0, KEY„QUERY„VALUE , 
SchKey) ERROR_SUCCESS) 

{ 

char s2Duplex[10] ; 
DWORD dwType; 

DWORD dwSize ^ sizeof (szDnpleK); 

if (: :RegQueryVaiueEx (hKey, pszDevice, 0, &dwType, (BYTE *) ssDuplsK, 
SdwSise) ERROR„SUCCESS) 

{ 

if (dwType REG_S2) 
{ 

nDupleK » atoi (ssDuplex); 
bFound = true; 

} 

} 

: :RegCloseRey (hRey) ; 



return (bFound); 



-4^ 



// 

^ ^ ■■ // 

iiatic void SetRegistryDupleK (const char *ps2:Device, int nDuplex) 

\1 HKEY hKey; 
t.i DWORD dw; 

if {:;RegCreateReyEK {HKEY„LOCAL„MACHINE, DUPLEX_SUBREY, 0. REG„HOHE, 
■'-J REG„OPTION„MOH VOLATILE. REY.WRITE, ISIULL, SchRey, Mw) ERROR„SUCCESS) 

C3 { 

char szDuples[10] ; 

™itoa (nDupleK, szDupleK, 10); 

: iRegSetValueEK (hRey, pszDevice, 0, REG_S2, (BYTE *) szDupleK, 
'"'tJ Istrlen (szDupleK) + 1); 

I A : :RegCloseRey (hRey) ; 

n }" 

// 

>7 

Static UINT APIEOTRY PrintHookProc {mm hWnd, UIOT msg, UIOT wParam, 
LONG IParam) 

static booi *pbSingleFold * MULL; 

switch (msg) 
{ 

case M_INITDIALOG: 

^ PRIOTDLG *ppd = (PRIOTDLG *) IParam; 
pbSingleFold - (booi *) ppd->iCustData; 
if (»pbSingleFold) 

^ : :SendDigIteinMessage (hWnd. IDC^SINGLEFOLD, BH_S£TCHECR, 
BST.CHECRED. 0); 

} 

else 

;:SendDigIteinMessage (hWnd, IDC^QUARTERFOLD, BJ1.SETCHECK. 
BST_CHECRED, 0); 

} 

mt n - : ;SendDlgIteinKessage (hWnd, cmb4, CB_GETCURSEL , 0. 0); 
if (n >- 0) 
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{ 

ctia3r sisDe^i ce ^ lOO ^ i- 

: cSendDlgltemMessage (bWnd. cmb4. CB_GETLETEXr, n, 
(LPARAM) szDevice); 

int nDuplex; 

::ShowWindow ( : :GetDlgItein (hWnd, II)C„DBLSIDE) , 
GetRegistryDuplez (ssDevice, nDnplex)); 

} 

break ; 

} 

case ™„COMMAM): 
{ 

switch (LOWORD (wParam)) 
{ 

case IDOK; 
{ 

if (: iSendDlsItemMessage (hWad, IDC„SIIsfGLEFOLD, BH„GETCHECK, 
0, 0) BST_CHECRED) 

{ 

*pbSingleFold « true; 

} 

else 
{ 

»pbSingleFcild - false; 

} 

if (: ilsWindowVisible ( : :GetDlgItem (hWnd. IDC„DBLSIDE) ) 
: iIsWmdowEnabled ( : ;GetBl^Item (hWnd, IDC„DBLSIDE) ) 
: :SendDlgIteinMessage (hWnd, IDC„DBLSIDE, BM_GETCHECK, 
0, 0) BST„CHECRED) 

int n - : :SendDlBlteinMessaee (hWnd, cmb4, CB„GETCURSEL , 

0. 0); 
if (n >- 0) 
{ 

char s2Device[100]; 

: :SendDlgItemMessage (hWnd, cmb4, CB_G£TLBTEXr , n, 

(LPARM) szDevice); 
DeleteRegistryDuplex (szDevice); 

} 

} 

break; 

} 

case IDC.QUARTERFOLD : 

^ : :Enabl^indow ( : :GetDlgItem (hWnd, IDC„DBLSIDE) , false); 
break ; 

} 

case IDC^SIl^GLEFOLD: 

^ : :EnableWindow ( : rGetDlgltem (hWnd. IDC_DBLSIDE) , true); 
break; 

} 

case cmb4: 

^ if (HIWORD (wParam) CBH„SELCHAMGE ) 

^ int n = : :SendDleItesaMessage (hWnd, cmb4, CB„GETCURSEL , 
0. 0); 
if (n >- 0) 
{ 

char szDevice [ 100] ; 

: :SendDl0ltejnHessage {hWnd, cmb4. CB_GETLBTEXT. n, 
(LPARAM) ssDevice); 

int nBuplex; 

::Show^indow ( ; :GetDlgItein (hWnd, IDC„DBLSIDE) . 
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GetRegistryDupleK (szDevice, nDuplex)); 

} 

} 

break ; 



default: 
break ^ 



} 



} 



default: 
break; 

} 

return (FALSE); 



-// 



// 

yy : ^ 

CCtlPanel : :CCtlPanel (CCtp *pMainWnd) 

mjMainWnd = pMainWnd; 
m_pAGDoc ^ NULL; 
sL_hDevMode = IsfULL; 
m„hDevNames = MULL; 
in„nFontHeight = 0; 
mJiBls ^ NULL; 

u 

]l 

J5 

C&lPanel : : "'CCtlPanel () 

|y 

kj if (m„hDevMode ) 

::GlobalFree (m^hDevMode) ; 
'fi if (m„hDevNames) 

'""I ; : GlobalFree (m^hDevNames ) ; 
O if (mJiDlg) 

::GlobalFree {m„hDlg); 

h 

fpragma pack (push, 1) 

tfpedef struct 

13 

fl WORD dlgVer; 

WORD signature; 

DWORD helpID; 

DWORD esStyle; 

DWRD style; 

WORD cDlgl terns; 

short k; 

short y; 

short ck; 

short cy; 

short menu; 

short windowClass; 

short title; 

short pointsise; 
} DLGTEMPLATEEX; 

#pragma pack (pop) 

HWfc?D CCtlPanel: : Create (1«3D hWndParent) 

^ ASSERTE (m_hWnd miL) . 

_Module.AddCreateWixdData (&m_thunk.cd, (CDialoglmplBase *) this); 

HDC hDC = ::GetDC (hWndParent ) ; 

int nLogPiselsY - : :GetDeviceCaps (hDC. LOGPIXELSY) ; 
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::RaleaseDC (hWndParent, hDC); 

imB hWnd - KiULL; 

if {nLogPixelsY > 96) 

^ HINSTANCE hinst - ^Module -GetRasourcelnstance (); 

HRSRC hRsrc = : :FindResaurce (hInst, MAKEIOTRESOURCE (CCtlPanel : : IDD) , 

RT3IAL0G) ; 
if (hRsrc) 

^ HGLOBAL hXemplate « : :LoadResource (hInst. hRsrc); 

DLGTEMPLATEEX *pTemplate - (DLCTEMPLATEEX*) : :LockResource (hXemplate) 

mt nSize = : :Si2eof Resource (hInst, hRsrc); 
ffi„hDlg - : :GlobalAlloc (GPTR, nSize); 
if (m3Dlg) 

^ DLGTEMPLATEEX «pHew = (DLGTEMPLATEEX *) ; rGlofoalLock (m^hBig) ; 
memcpy ((BYTE ») pNew, pTemplate, nSize); 

pHew->pointsize = (pls[ew->pointsize * 96 / nLogPixelsY) ; 

hWnd - : :CreateDialogIndirectParam (hInst. (DLGTEMPLATE *) pNew, 
hWndParent. (DLGPROC) CCtlPanel : :StartDialogProc, ]:5ULL) ; 

::GlobalUnlock (m„hDlg); 

} 

} 

,™ } 
I J else 

3S ^ hWnd « : :CreateDialogParam (_Module ,GetResourceInstance{) . 

MAKEIOTRESOURCE (CCtlPanel : : IDD) , hWndParent, 
fU (DLGPROC) CCtlPanel: :StartDialogProc, HULL); 

J^SSERTE (m.hWnd hWnd); 
"-'4 return hWnd; 

O 



zy ^ — 

if'j 

rOOTARRAY ScCCtlPanel: :GetFontArray () 

il 

''''^ return (HupMaLinWnd~>GetFontList ( ) . GetFontArray ()); 

|; 

'pTpf ^ 



LRESULT CCtlPanel: :OnInitDialog (UIOT /*uMsg*/. WPARAM /*wParam*/, 

LPARAM /»lParam*/, BOOL Sc /«bHandled*/) 

^ SendDlgltemMessage (IDC„PAGE1, BM^SETCHECK, TRUE); 

for (int i = 0; i < MAX„COLORS; i++) 

^ SendDlgltemMessage (IDC„COLOR, CB^ADDSTRING. 0. (LPARAM) "'*); 
SendDlglteKiMessage (IDC_COLOR, CB„SETITEMDATA, i, PickColor [i ] ) ; 

SendDlglteinMessage (IDC„COLOR, CB_SETCURSEL , (WPARAM) -1, 0); 

for (i - 8; i <- 72; i 2) 
{ 

char s2PtSize[ 10] ; 

SendDlgltemMessage (IDC.PTSIZE, CB^ADDSTRING, 0, 
(LPARAM) „itoa (i, szPtSize, 10)); 

SendDlgltemMessage (IDC.PTSIZE, CB„SETCURSEL , (WPARAM) -1, 0); 
HFOOT hFont - (HFOOT) GetStockOb j ect (SYSTEM„FOOT) ; 
SendDlgltemMessage (IDC„PTSIZE, ^^^^SETFOOT, (WPARAM) hFont, 0); 

SetFonts ( ) ; 
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SendDlgltemMessage (IDC^FOOT, CB„SETCURSEL , (WPARM) -1, 0); 
return ( 1 ) ; 

} 



// 

LRESULT CCtlPanel: :OnCtlColorDlg (UltTT /*ulfeg*/, WPARAM wParam, 

LPARAM /*lParam*/, BOOL SJsHandled) 

{ 

bHandled = TRUE; 

SetBkMode ((HDC) wParam, TRM3SPAREHr) ; 
return ((LRESULT) GetStockObject (IsIULL JRUSH) ) j 

} 

// ^ 

// 

LRESULT CCtlPanel : rOnCtlColorStatic (UIOT /*uMsg*/, WPARAM wParam, 
LPARAM /*lParaffl*/, BOOL S=bHandled) 

{ 

bHandled - TRUE; 

SetBkMode ((HDC) wParam, TRAMSPAREOT) ; 
return ((LRESULT) GetStockObject (miLLJRUSH) ) ; 

} 

// 

// 

LRESULT CCtlPanel : lOnMeasureltem (UINT /'*uMsg*/, WPARAM wParam^ 

LPARAM IParam, BOOL ScfaHandled) 

13 

i3 UIOT idCtl = wParam; 

LPMEASUREITEMSTRUCT Ipmis - (LPMEASUREITedSTRUCT) IParam; 

fy if (idCtl 1DC„F0OT) 
c% itt.nFontHeight - lpmis->itainHeight; 

bHandled - TRUE; 
'J return (TRUE); 

13 

1^ 

iJ 

L-KESULT CCtlPanel: lOnDrawItem (UIOT /*uMsg*/, WPARAM wParam, 
\ : LPARAM IParam, BOOL &bHandied) 

|y 

mm idCtl wParam; 
13 LPDRAWITEMSTRUCT Ipdis - (LPDRAWITEMSTRUCT) IParam; 

if (idCtl IDC.COLOR) 
{ 

CAGDC dc (lpdis->hDC); 

HBRUSH hbr = (HBRUSH) GetStockObject (WHITE„BRUSH) ; 
FillRect (lpdis->hDC, S=lpdis->rcltem, hbr); 

if ((int) lpdis->itemli) != -1) 

^ COLORREF clr = (COLORREF) ; :SendMessage (lpdis->hwndltem, 
CB„GETITEMDATA, lpdis->itemID, 0); 

RECT rect lpdis~>rcltem; 
InflateRect (toect, -4, -2); 

hbr - CreateSolidBrush (clr ! PALETIERGB.FLAG) ; 
FillRect (lpdis->hDC, &rect, hbr); 
DeleteObject (hbr); 

hbr = (HBRUSH) GetStockObject (BLACR_BRUSH) ; 
FrameRect (lpdis->hDC. Street, hbr); 

} 

if (lpdis->itemState & ODS„FOCUS |1 lpdis->itemState & ODS^SELECTED) 
{ 

hbr - (HBRUSH) GetStockObject ( BLACK JRUSH ) ; 
FrameRect (lpdis->hDC, £clpdis->rcltem, hbr); 

} 
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} 

else If (idCtl IDC„FOOT) 
{ 

if ((int) lpdis->itemID i= -1) 

^ int nFont = : :SendMessage {lpdis->hwndlteiii, CB.GETITEMDATA, lpdis->itemID, 0). 

FOKTARRAY ScFontArray « GetFontArray ( ) ; 
LOGFOOT NewFont « FontArray [nFont] .If ; 
NewFont -IfHeight = m_nFontHeight ; 
HewFont. If Width 0; 

if (MewFont-lfCharSet SYMBOL„CHARSET) 
{ 

Istrcpy (HewFont .IfFacsName, "Arial"); 
MewFont.lfCliarSet - ANSI_CHARSET; 
NewFont.lfPitchAndFamily - FF„SWISS; 

} 

SaveDC (lpdis->hDC) ; 

SetTextAlign (lpdis->hDC, TA^LEFT | TA„TOP | TA_HOUPDATECP ) ; 

if (lpdis->itemState & ODS_SELECTED ) 

SetTextColor (lpdis->hDC, GetSysColor (C0LOR_HIGHLIGHITEXr) ) ; 

e 1 se 

SetTestColor Clpdis->hDC, GetSysColor (COLOR.WINDOOTEXT) ) ; 

if (lpdis->itemState S< ODS_SELECTED ) 

SetBkColor (lpdis->iiDC, GetSysColor (COLOR„HIGHLIGHT) ) ; 

n SetBkColor (lpdis->hDC, GetSysColor (C0L0R„WIHDOW) ) ; 

';f HFOOT hFont « CreateFontlndirect (£JsfewFont) ; 

Cn HFOOT hOldFont - {HFOOT) SeleotObject (lpdis->hDC, hFont); 

fU EKtTextOut (lpdis->hDC, lpdis->rcltem. left ^ lpdis->rcItem.top^ 

I'i ETO„CLIPPED 1 ETO_OPAQUE, &lpdis->rcltem, 

;i FontArray [nFont] .szFuiiName, 

iy Istrien (FontArray [uFont] .szFuilHame) , NULL) ; 

if {lpdis->itemState & ODS_FOCUS) 

DrawFocusRect (lpdis->hDC, £tlpdis->rcltem) ; 

13 SelectObject (lpdis->hDC, hOldFont); 

DeleteObject (hFont); 
, RastoreDC (lpdis->hDC, -1); 

;i bHandled = TRUE; 
return (TRUE); 

} 

// 

// 

LRESULT CCtlPanel: rOnPage (WORD /»wMotifyCode»/, WORD wID, HWlsfD /•hWndCtl*/, 

BOOL ScfoHandled) 

{ 



} 



if (m_pAGDoc) 

^ in_pAGDoc->SetCurrentPage (m„PageMap[wID - IDCJAGEl]); 
in„pMa i nWnd - >HewPage ( ) ; 

} 

m^MainWnd->SetFocus { ) ; 

bHandled = TRUE; 
return (TRUE); 



// // 

yy // 

LRESULT CCtlPanel : :OnPrint (WORD /*?9MotifyCode*/, WORD /*wID»/. IMID /*hWndCtl«/, 

BOOL ^ /*bHandled*/) 

{ 
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if (mjAGDoc) 
{ 

AGDOCTYPE DocType = mjAGDoc->GetDocType (); 

bool bSingleFold - (DocType DOC.CARDHV || DocType == DOC_CARDHH) ; 
PRIibTIDLG pd; 

memset (&pd, 0, sized (pd)}; 
pd.lStructSize sizeof (pd); 
pd . hwndOwner = GetParent ( ) ; 
pd. hDevMode « m„hDe^ode; 
pd . hDevHames = m_hD$vHames ; 

pd.hlnstance - ^Module .GetResource Instance (); 
pd.lCustData » (DWORD) &foSingleFold; 
pd.lpfnPrintHook = PrintHookProc; 

pd.lpPrintTeinplateMame « MAKEIOTRESOURCE {PRIOTDLGORD) ; 
pd. Flags « PD_EHABLEPRIOTrEMPLATE ! PD„EMBLEPRIOTHOOK; 

if (PrintDlg (S^pd)) 

^ DEWAMES *pDevls[ames - (DEWAMES *) GlobalLock (pd .hDevMames) ; 
DEVMODE *pDevMode - (DEVMODE *) GlobalLock (pd .hDevMode) ; 
char »pszDriver = ((char *) pDe%^ames) pDevNames->wDriverOf fset; 
char *pszDevice * ((char ») pDevNames) + pDevMaiues">wDevic80f fset; 
char *pszOutput = ((char *) pDevMaines) + pDevHames">wOutputOf fset ; 

int nOuplen; 

if [\ GetRegistryDupleK (pszDevice, nDupIes)) 
nDupleK - -1; 

fl if (bSingleFold nDuples -1) 

^ { 

:z CDblSidelntro Intro; 

CDblSideStepl Step!; 

fU CDblSideStep2 Step2; 

,3 CDblSideEnd End; 

PROPSHEETPAGE »pPropPages - new PROPSHEETPAGE [ 4 ] ; 
"^J pPropPages[0] - Intro .m^sp; 

fj pPropPages[l] « Stepl.m„psp; 

pPropPagesfzj « Step2 .m_psp; 

pPropPages [3] = End.m_psp; 

Intro .m^pszDriver ^ Stepl .m^pszDriver - pszDriver; 
,1 Intro.m„pszDevice = Stepl.m„pszDevice = pszDevice; 

Intro .m„pszOutput = Stepl.m_pszOutput = pszOutput; 
1^ Intro.m_pDevMode « Stepl .irupDevMode « pDevMode; 

;i PROPSHEEIHEADER psh; 

psh.dwSize » sizeof (PROPSHEETHEADER) ; 

psh.dwFlags = PSH_WIZARD I PSH„PROPSHEETPAGE ; 

psh . hwndParent = GetParent ( ) ; 

psh .hinstance - HULL; 

psh.hlcon = MILL; 

psh.pszCaption - NULL; 

psh.nPages « 4; 

psh.nStartPage - 0; 

psh.ppsp ^ pPropPages; 

psh .pfnCallback « t3ULL; 

: : PropertySheet (Stpsh ) ; 
if (End.IsFinished ()) 

{ 

nDupleK « Step2.GetSelected (); 
SetRsgistryDuplex (pszDevice^ nDupleK); 

} 

delete [] pPropPages; 

} 

if (! (bSingleFold nDupleK -1)) 
{ 

CWaitDlg WaitDlg; 

WaitDlg. Create (GetParent ()) ; 
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WaitDlg.UpdateWindowO ; 
MSG insg; 

while (PeekMessage(S;msg, NULL, 0. 0, PM_REMOVE)) 
{ 

TranslateMessage(&msg) ; 
DispatchMessage (Simsg) ; 

} 

bool bRotated; 

mt nCopies * pd.nCopies; 

while (nCopies — > 0) 

{ 

if (bSingleFold) 
{ 

i!UpAGDoc->PrintCardSingle (PRIOTLOUTSIDE, pszDriver, 
pszDevice^ pszOutput, pDevMode, bRotated); 

} 

else 

{ 

m„pAGDoc->PrintCardQuarter (pszDriver, pszDevice, 
pszOutput^ pDevMode); 

} 

} 

WaitDlg.DestroyWindowO ; 

if (bSingleFold) 
{ 

O char szFace[10]; 

if (nDuplex > 2) 

Istrcpy (szFace, "UP"); 

V" else 

ry Istrcpy (szFace, "DCW); 

J": DWORD dwOrientation « : :DeviceCapabilities (pszDevice, 

ly pszOutput, DC.ORIEOTATION, iTULL, pDevMode); 

bool bHorz = (DocType DOC.CARDHH i| DocType DOC^CARDFH) ; 
if (ibHorz £c& dwOrientation 270) 
^ bRotated ^ I bRotated; 

char szDirection{15] ; 
/I int nDirection = PaperDi recti on [nDuplex X 2] [bHorz j [bRotated] ; 

if (nDirection 1) 
1=^ Istrcpy (szDirection. "AWAY FROM"); 

else 

Istrcpy (szDirection, "TOWARD"); 
char szMsg[256]; 

wsprmtf (szMsg, "To print the inside of your card, reinsert the page with the p 
rinted side 5^s\nand the front panel of the card Zs the printer .\n\n \nC lick OK when you are ready to 
print the inside.", 

szFace, szDirection) ; 

if (MessageBoK (szMsg, "Print inside", ME^ORCANCEL) IDOK) 
{ 

WaitDlg. Create (GetParent ( ) ) ; 
WaitDlg.UpdateWindowO ; 

MSG msg; 

while (PeekMessage(Sjusg, NULL, 0, 0, PM_REMOVE)) 
{ 

TranslateMessage (StTtisg) ; 
DispatchMessage(S<msg) ; 

} 

nCopies = pd.nCopies; 
while (nCopies — > 0) 
{ 

m„pAGDoc->PrintCardS ingle (PHIIsn.INSIDE, pszDriver, 
pszDevice, pszOutput, pDevMode, bRotated); 

} 
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} 



WaitDlg.DestroyWindowO ; 

} 

} 

} 

GlobalUnlock (pd .hDevNames) ; 
Global Unlock (pd .hBevMode) ; 



} 



iu„hI^evMode * pd.bDevMode; 
m„hDevNanies « pd . hDevNames ; 

m„pMainWnd->SetFocus ( ) ; 

} 

return (TRUE); 



// // 

^ // 

void CCtlPanel : :SstDoc (CAGDoc *pAGDoc) 
{ 

mjAGDoc = pAGDoc; 

AGDOCTYPE DocType = in„pAGDoc->GetDocType (]; 

bool foCardType - (DocType DOC^CARDW 1 | DocType == DOC_CARDHH \ | 
DocType DOC.CARDFV \ \ DocType DOC„CARDFH) i 

I J int nPages - 3H_pAGDoc->GetNumPaees (); 

■"i for (int nPage « 1, nMap « 0; nPage nPages; nPage++) 

IZ { 

CAGPage »pPage - m_pAGDoc-> Get Page (nPage); 
:I i£ ((\ pPage->IsEmpty ()) |1 (bCardType nPage 4)) 

;1 { 

const char *pszPdgelsfame ^ pPage->GetPageName (); 
^'■^•J SetDlglteiuTeKt (IDC„PAGE1 + nMap, pszPageHame) ; 

fi ::ShowWindow (GetDlgltem (IDC^PAGEl + nMap), SW^SHOW) ; 

m„PageMap [nMap++ ] = nPage; 

} 



O } 



while (nMap < 4) 
{ 

::ShowWindow (GetDlgltem (1DC_PAGE1 + nMap), SW_HIDE)! 
m PageMap [nMap++] =0; 

} 



// 



void CCtlPanel : :UpdateControls (const CAGTeKt *pTeKt) 

{ 

scTypeSpecList tsList; 

int nHumI terns =^0; 

if (pTert) 
{ 

pText->GetSelTSList (tsList); 
nliTumI terns « tsList .Huml terns (); 

} 

if (nNumI terns =-0) 
{ 

SendDlgltemMessage (IDC^FOlsTT, CB„SETCURSEL, (WFARM) -1, 0); 

SendDlgltemMessage (IDC.PTSI2E, CB„SETCURSEL, (WPARAM) -1, 0); 

SendDlgltemMessage (IDC COLOR, CB„SETCURSEL, (WPARAM) -1, 0); 

SendDlgltemMessage (IDC^LEFT, BM.SETCHECK, FALSE); 

SendDlgltemMessage (IDC„CEOTER, BM^SETCHECK, FALSE); 

SendDlgltemMessage ( IDC.RI GHT, BM„SETCHECK, FALSE); 



return ; 
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} 

CAGSpec *pAGSpec - (CAGSpec *) (tsList [0] .ptr ()); 

LOGFOWr SpecFont = pAGSpec->m„Font; 

int nSpecPtSize - abs (pAGSpec->m„Font . IfHeight) * 72 / APP_RESOLUTION; 

COLORREF SpecColor ^ pAGSpac->m_Color; 

bool bFont ^ true; 

bool bPtSize ^ true; 

bool bColor - true; 

if (nlSfuml terns > 1) 
{ 

for (int i = 1; i < nNumltems; i++) 
{ 

pAGSpec = (CAGSpec *) (tsList [i] .ptr ()); 

if (IstrcKip (SpecFont .If FaceName, pAGSpec->m_Font .IfFaceName) 0 
I! SpecFont. IfWeight != pAGSpec->m_Font . IfVteight 
II (SpecFont. If Italic i- 0) i= (pAGSpec->m_Font . If Italic i- 0)) 

{ 

bFont « false; 

} 

int nPtSize - abs (pAGSpec->m_Font . If Height ) * 72 / APP„R£SOLUriOM; 
if (nSpecPtSize \^ nPtSise) 
bPtSize ^ false; 

if (SpecColor i= pAGSpec->m_Color) 
bColor ^ false; 

} 

} 

if (bFont) 
{ 

FOOTARRAY &FontArray = GetFontArray (); 
int nFonts ^ Font Array .size ()i 
for (int i 0; i < nFonts; i++) 
{ 

if (Istrcmp (SpecFont . IfFaceName. FontArray[i ] . If . IfFaceName) 0 
SpecFont. IfWeight == FontArray [i] .If . IfWeight 
(SpecFont, If Italic I- 0) (FontArray [i ]. if . If Italic != 0)) 

{ 

break ; 

} 

} 

if (i >^ nFonts) 

SendDlglteinMessage {IDC_F0]}3T, CB.SETCURSEL , (WPARAM) 0); 

else 

^ int index - SendDlglteitiMessage (IDC_FOOT, CB„FINDSTRIHGEXACT, 
(WPARAM) -1, (LPARAM) FontArray[i ] .szFuimame) ; 
SendDlgltemMessage (IDC„FOKT, CB_SETCURSEL , index, 0); 

} 

} 

else 

SendDlgltemMessage (IDCFOKT, CB„SETCURSEL, (WPARAM) -1, 0); 

if (bPtSize) 
{ 

char szPtSize[10] ; 

int nPtSize « abs (SpecFont . IfHeight) * 72 / APP^RESOLUTION; 
int index « SendDlgltemMessage (IDC_PTSIZE, CB.FINDSTRINGEXACT. 

(WPARAM) -1, (LPARAM) _itoa (nPtSize, szPtSize, 10)); 
if (indeK CB_ERR) 

{ 

mt nitems = SendDlgltemMessage (IDC„PTSIZE, CB_GETCOUl?r, 0|. 0); 

for (int i = 0; i < nitems; i+-^) 

{ 

char szTemp [20]; 

SendDlgltemMessage (IDC.PTSIZE, CB„GETLBTEXT, i. 

(LPARAM) szTemp); 
if (nPtSize < atoi (szTemp)) 
{ 
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indes: = SendDlgltemMessage (IDCJTSIZE, CB„INSERTSTRING, 

(LPARAM) szPtSize); 
break ; 

} 

} 

if (i >= nitems) 
{ 

indeK « SendDlgltemMessage (IDC_PTSIZE, CB^ADDSTRIMG, 0, 
(LPARAM) szPtSize); 

} 

} 

SendDlgltemMessage (IDC^PTSIZE, CB„SETCURSEL , index, 0); 

} 

SendDlgltemMessags (IDC„PTSIZE, CB_SETCURSEL, (WPARM) -1, 0); 

if (bColor) 
{ 

int nitems - SendDlgltemMessage (IDC.COLOR, CB^GETCOUOT, 0, 0); 

for (int i « 0; i < nltsms; i++) 

{ 

CQLORREF Color « (COLORREF) SendDl gIteinMessage (IDC^COLOR, 

CB^GETITEMDATA, i, 0); 
if (Color SpecColor) 
fasreak; 

} 

if (i >= nltsms) 

{ 

SendDlgltemMessage (IDC_COLOR, CBJNSERTSTRING, 0, (LPARAM) 
SendDlglteinMessage (IDC„COLOR, CB_SETITEMDATA. 0, SpecColor) ; 
1 - 0; 

} 

SendDlgltemMessage (IDC_COLOR, CB„SETCURSEL, 0); 

} 

else 

SendDlgltemMessage (IDC„COLOR, CB.SETCURSEL , (WPARAM) -1, 0); 



scTypeSpecList tsListPara; 
pTeKt->G6tSelParaTSList (tsListPara) ; 
nNumI terns « tsListPara ,Num I tens (); 

pAGSpec = (CAGSpec *) (tsListPara [0] .ptr ()); 
eTSJust SpecHorzJust = pAGSpec*>m„Hor2Just ; 
bool bHorzJust « true; 

if (nNumltems > 1) 

{ 

for (int i = 1; i < nNuml terns; i++) 
{ 

pAGSpec = (CAGSpec *) (tsListPara [i ] ,ptr ()); 
if (SpecHorzJust f- pAGSpec- >in_„Horz Just) 
bHorzJust - false; 

} 

} 

if (bHorzJust) 
{ 

swi tch (SpecHorzJust ) 
{ 

case eRagCentered : 

SendD 1 g 1 1 eiaMessage 
SsndDlgltesiMessage 
SendD 1 g I t emMessage 
break ; 

case eRagLeft: 

SendD 1 g I t emMessage 
SendD i g 1 1 eniMessage 
SendD 1 g I t emMessage 
break ; 



(IDC^CEKIER, BM.SETCHECR, TRUE); 
(IDC.LEFT, BM_.SETCHECR, FALSE); 
(IDC^RIGHI, EM^SETCHECK, FALSE); 



(IDC.RKKI, BM.SETCHECK, TRUE); 
(IDC„LEFT, BM„SETCHECK, FALSE); 
(IDCCEbTIER. BM.SETCHECK, FALSE); 
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case eRagRight: 
default: 

SendDlgltemMessage (IDC„LEFT, BM^SETCHECK. TRUE); 
SendDlgltemMessage (IDC_CEin*ER. BM„SETCH£CK. FALSE); 
SendDlglteniMessage (IDC^RIOHT, BM_SETCHECK, FALSE); 
break ; 

} 

} 

else 
{ 

SendDlgltextiMessage (IDC^LEFT, BM.SETCHECR, FALSE); 
SendDlglteinMessage (IDC„CEOTER. BM.SETCHECK, FALSE); 
SendDlglteraMessage (IDC^RIGHT, BM„S£TCHECK, FALSE); 



// 

// 

LRESULT CCtlPanel: :0nHor2:Just (WORD /*wHotifyCode*/, WORD wID, mm /*hWndCtl*/, 
BOOL ScfaHandled) 

{ 

CAGTest *pText - m_pMainWnd->GetTeKt (); 

if (pTeKt) 

{ 

switch (wID) 
{ 

case IDC^LEFT: 

pTeKt->SetHorzJust (eRagRight) ; 
break; 

case IDC„CEOTER: 
Cn pI^st->SetHorzJust (eRagCentered) ; 

f\\ break; 



} 



case IDC.RIGHT: 

pTest->SetHor2Jiist (eRagLeft); 
break; 



'-^ } 

|l m„pMainWiid-> Set Focus ( ) ; 

bHandled = TRUE; 
iy areturn (TRUE); 

^ 

rg. 

LRESULT CCtlPanel: :OnFont (WORD wNotifyCode, WORD wID, HWbJD hWndCtl, 

BOOL ScbHandled) 

{ 

if (wNotifyCode i- CBH_SELCHAHGE) 
{ 

if (wNotifyCode CBM^CLOSEUP ) 
m_pMa i nWnd - > SetFocus ( ) ; 

bHandled - TRUE; 
return (TRUE); 

} 

int nitem - SendDlglteitiMessage (IDC^FOOT, CB„GETCURSEL , 0, 0); 

if (nltem 0) 

{ 

CAGTeKt *pTeKt = m„pMainWad->GetText (); 

if (pTeKt) 

{ 

int nFont = SendDlgltemMessage (IDC.FOOT, CB„GETITEMDATA. nItem, 0) ; 
FOOTARRAY &FontArray - GetFontArray (); 
pTeKt->SetTypeface (FontArray [nFont] ,lf); 

} 

m„pMainWnd-> SetFocus { ) ; 
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foHandled - TRUE; 
return (TRUE); 

} 



LRESULT CCtlPanel : :OnPtSize (WORD wNotifyCode, WORD wID, mm hWndCtl, 

BOOL £.bHandled) 
{ 

if (wHotifyCode != CBS:3[_SELCHAKGE ) 
{ 

if (wNotifyCode CBN_CLOSEUP) 
m„pMainWnd->S8tFocus ( ) ; 

bHandled - TRUE; 
return (TRUE); 

} 

int nitem = SendDlgltemMessage (IDC.PTSIZE, CB^QETCURSEL, 0, 0); 
if {nlt^m 0) 

{ 

CAGTest *pText - m_pMainWnd->GetTeEt (); 

if (pTeKt) 

{ 

char ssPtSi2e[20]; 

SendDlgltemMessage (IDC_PTSI2E, CB^GETLBTEXT, nitem, 

(LPARAM) ssPtSize); 
pTe2ft->SetPtSi2e (atoi (szPtSize)); 

fl } 

} 

"it m„pMainWnd->SetFocus (); 

ry bHandled - TRUE; 
return (TRUE); 



^ 

/i^RESULT CCtlPanel: :OnColor (WORD ^otifyCode. WORD wID, HWWD hWndCti, 
s BOOL ScbHandled) 

m 

if (v?NotifyCode != CBlsT^SELCHAHGE ) 
{ 

if (wNotifyCode CBN„CLOSEUP) 
1=2= iB_pMainWnd-> Set Focus (); 

!f bHandled = TRUE; 

vJ return (TRUE); 

} 

int nitem = SendDlglteirtMessage (IDC„COLOR, CB^GETCURSEL , 0, 0); 

if (nltem >= 0) 

{ 

CAGTest *pText - m_pMainWnd->GetText (); 

if (pTest) 

{ 

COLORREF Color = (COLORREF) SendDlgltefflMessage (IDC_COLOR, 

CB_GETITEMDATA, nItem. 0); 
pTest->SetColor (Color) ; 

} 

} 

in„pMainWnd->SetFocus ( ) ; 



} 



bHandled - TRUE; 
return (TRUE); 



void CCtlPanel: :SetFonts () 

SendDlgltettiMessage (IDC„FOOT, CB„RESETCOOTEOT, 0, 0); 
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FONTARRAY ScFontArray « GetFontArray ( ) ; 
int nFonts « Font Array .size (); 
for (int 1 === 0; i < nFonts; 
{ 

if (SendDigltemMessage (IDC„FOOT. CB„FIMDSTRIHGEXACT, 

(WPARAM) -1, (LPARAM) Fon t Array [i ] .szFullName) CB__ERR) 

{ 

int index * SendDlgltemMessaee (IDC^FOlsTT, CB^ADDSTRING, 0. 

(LPARAM) FontArray[i] .ssFullName) ; 
SendDlglteinMessage (IBC^FOOT, CB„S£TITEMDATA, index, i); 

} 

} 

} 



File: Work\CrtPrt\Axctp\Bsc2 .h 



Page: 1 



#ifndef _BSC2„H„ 
#def ine _BSC2_H_ 

template <class T> 

class CBindStatusCallfoack2 : public CBindStatusCailback<T> 
{ 

public: 

STDMETHOD(OnProgress) (ULONG ulProgress, ULONG ulProgressMax, ULONG ulStatusCode, LPCWSTR szStatu 
sTest ) 

{ 

ATLTRACE (_T( "CBindStatusCallback2 : :OnProgress" ) ) ; 

return itt.pT->OnProgress ( ulProgress, ulProgressMax, ulStatusCode, szStatusText ); 



static HRESULT Download (T* pT, ATL^PDATAAVAILABLE pFunc, BSTR bstrURL, lUnknown* pUnkContainer - 
miL, BOOL bRelative - FALSE) 
{ 

CComObject<CBindStatusCallback2<T> > *pbsc; 

HRESULT hRes - CComObject<CBindStatusCallback2<T> > : :CreateInstance C&pbsc) ; 
if (FAILED (hRes)) 
ret-urn hRes; 

return pbsc- > Start AsyncDown load (pT, pFunc, bstrURL, pUnkContainer, bRelative); 
#endif BSC2„H„ 
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/* this ALWAYS GENERATED file contains the proxy stub code */ 



File created by MIDL compiler version 5,01.0164 
/* at Thu Mar 09 10:57:11 2000 
*/ 

/« Compiler settings for AKCtp.idl: 

Oicf (OptLev=i2), Wl. Zp8, env*Win32, jns„est, c„ext 
error checks: allocation ref bounds_check enum stub_data 

»/ 

/-/©^MIDL^FILE^HEADING ( ) 
#def ine USE„STUBLESS_PROXY 



/* verify that the <rpcproKy.h> version is high enough to compile this file*/ 
#ifndef _REDQ„RPCPROX!CH„VERSION_ 
#define _REQUIRED„RPCPROXY„H„VERSION_ 440 
#endif 



#include "rpcproxy.h" 

#ifndef _RPCPROX!f„H„VERSIOH_ 

#error this stub requires an updated version of <rpcproxy.h> 
#endif // _RPCPROXY„H„VERSION_ 



#include "AxCtp.h" 

redefine lYPE^FORMAT^STRIHG^SIZE 55 
:';|define PR0C_F0RMAT_STRI£3G„SIZE 113 

Wypedef struct „MIDL„TYPE_FORMAT_STRING 

ru { 

™ short Pad * 

"^■^ unsigned char Format [ TYPE.FORMAT^STRING^SIZE ]; 
W } MIDLJIYPE^FORMAILSTRIMG; 

..lypedef struct _MIDL__PROC_F0RMAT„STRING 

- { 

^ short Pad ; 

fj unsigned char Format [ PROC_FORMAT_STRING„SIZE ]; 
J] } MIDL„PROC_FORMAT_STRIKFG; 



|:^Ktern const MIDL_TYPE„FORMAT„STRIHG _MIDL_TypeFormatString; 
f^Ktern const MIDL„PROC„FORMAT_STRIHG MIDL_ProcFonnatString; 



/* Object interface: lUnknown^ ver. 0.0, 

GUID-{OkOOOOOOOO, 0x0000, 0x0000, 0x00,0x00, 0x00, 0x00, 0x00, 0x00, 0x46}} */ 



/* Object interface: IDispatch, ver. 0.0, 

GUID={0xQ0020400, 0x0000, 0x0000, {0x00,0x00.0x00, 0x00,0x00, 0x00, 0x00, 0x46}} */ 



/» Object interface: ICtp, ver. 0,0, 

GUID={0x38578BFE,OxOABB,0xllD3, {0x93, 0x30, 0sO0,0x80,0xC6,0xF7, 0x96, OxAl}} */ 



extern const MIDL„STUB„DESC Object_StubDesc; 



extern const MIDL_SERVER„INFO ICtp_ServerInfo; 
#pragma code_seg ( " . orpc " ) 

extern const USERJ4ARSHAL_ROirni3E„QUADRUPLE UserMarshalRoutines[ 1] ; 

static const MIDL_STUB„DESC Object„StubDesc - 

{ 

0, 

NdrOl eAl locate , 
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NdrOleFree, 

0, 

0, 

0, 

0, 

0, 

^MIDL_TypeFormat String . Format ^ 

1, /» -error bounds„cheok flag */ 
0k20000, /* Ndr library version 
0. 

0s50100d4, /» MIDL Version 5.1.164 */ 
0. 

UserMarshal Routines, 

0, /» notify & notify_flag routine table »/ 

1, /* Flags *y 
0, /* Reserved 3 

0, /* Reserved 4 *y 
0 /« Reserved 5 */ 

}; 

static const unsigned short ICtp_FormatStringOf fsetXable [ ] 
{ 

(unsigned short) -1, 

(unsigned short) -1, 

(unsigned short) -1, 

(unsigned short) -1, 

0. 

28, 

56, 

n 84 

Jttlitic const MIDL„SERVER„IOTO ICtp_ServerInfo = 

fU { 

, StObject_„StubDesc, 

0, 

^MIDL_ProcFormatString .Fomat, 

'^-J SsICtpJormatStringOf fsetTable[-33 , 

- 0, 

- 0, 

fj 0 

Q >' 

Mtic const MIDL_STUELESS„PROXY„INFD ICtp„ProKyInfo - 

I- { 

f 2 &0b j ect_S tubDesc , 

^MIDL„ProcFormatString . Format , 

£cICtp„FomatStringOf fsetTable[-3] , 

0, 

0, 

0 

}; 

CIlSnERFACE„PROXY„VTAELE(ll) JCtpProxyVtbl - 
{ 

&ICtp„ProsyInfo, 
&IID_ICtp, 

IUnknown„QueryInterface_Pro3sy, 
IUnknown„AddRef „Proxy , 
IUnknown_Release_Prosy , 

0 /* (void *)-l /* IDispatch; :GetTypeInfoCount */ , 
0 /« (void «)-! /» IDispatch: :GetTypeInfo *x , 
0 /» (void *)-l IDispatch: ;GetID©OfNames */ , 
0 IDispatch_Invoke„Prosy */ , 
(void *)-! /* ICtp: ;put„Fonts */ , 
(void *)-! /* ICtp: ;get„Fonts , 
(void *)-! /* ICtp; :put_Src */ , 
(void «)-l /* ICtp;:get Src */ 

}; 



static const PRPC„SltrB_FUNCTION ICtp„table[] - 
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{ 

STUB_FORWARDIHG„FUHCTION , 
STUB_F0HWARDIHG_FUNCTI01sf , 
STUB_FORWARDING„FUNCTION. 
STUB^FORWARD IHG^FUNCTIOM , 
NdrStubCall2, 
NdrStubCall2. 
NdrStubCall2, 
NdrStubCall2 

CInterfaceStubVtbl „ICtpStubVtbl - 
{ 

ScIID^ICtp, 
ScICtp^Serverlnf o , 
11, 

£sietp_table[-3], 

CStdStubBuffer.DELEGATING^MElHODS 
#pragma data_seg ( " . rdata '* ) 

static const USER„MARSHAL„ROUTIHE„QUADRUPLE UserMarshalRoutines [ 1] = 
{ 

{ 

BSTR_UserSize 
, BSTR^UserMarsha 1 
, BSTR_UserUnmarsha 1 
f2 .BSTR UserFree 

in }; 



#ff ! defined (_RPC_wm32_) 

Smrror Invalid build platform for this stub. 
M ! (TARGET„IS.lsn40_0R„LATER) 

^jrror You need a Windows WI 4,0 or later to run this stub because it uses these features: 

^#^ror -Oif or -Oicf, [wire„maarshal ] or [user„marshal ] attribute, more than 32 methods in the mte 

rjf pee , 

#e|rror However, your C/C++ compilation flags indicate you intend to run this app on earlier systems, 

^bvoT This app will die there with the RPC„X_WROHG„STUB„VERSIOH error. 

#«aidif 

£3 

J^tic const MIDL_PROC„FORMAT„STRIHG ^MIDL_ProcFormatString « 

{ 

0, 

{ 

/* Procedure put_Fonts */ 

0x33, /» FC„AUTO„HAHDLE */ 

0s6c, /« Old Flags: object, Oi2 «/ 

/* 2 */ NdrFcLong( 0x0 ), /« 0 »/ 
/* 6 */ HdrFcShort( 0k7 ), y* 7 *y 
#ifndef „ALPHA_ 

x» 8 *y NdrFcShort( Oxc ), k86, MIPS, PPC Stack size/offset - 12 
#else 

NdrFcShort( OslB ), Alpha Stack size/offset = 24 */ 

#end if 

/* 10 MdrFcShort( 0x0 ), /» 0 «/ 

/« 12 KIdrFcShort( 0x8 ), /* 8 */ 

/» 14 */ 0x6, /» Oi2 Flags: clt must sise, has return, */ 

0x2, /* 2 */ 

Parameter strFonts */ 

/» 16 HdrFcShort( 0x8b ), /* Flags: must size, must free, in, by val, */ 

#ifndef _ALPHA„ 
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/* 18 »/ NdrFcShort( 0k4 ), x86, MIPS, PPC Stack size/offset - 4 */ 
#else 

NdrFcShort( 0k8 /» Alpha Stack size/offset = 8 */ 

/* 20 */ NdrFcShort( Oxla /» Type Offset=26 */ 

/* Return value */ 

/* 22 */ MrFcShort ( Os70 ), /* Flags: out^ return, base type^ */ 
#ifndef „ALPHA„ 

/* 24 */ NdrFcShort( 0x8 ), /* x86, MIPS, PPC Stack size/offset = 8 
#else 

NdrFcShort( 0x10 ), /* Alpha Stack size/offset « 16 */ 

#endi£ 

/* 26 */ 0x8, /* FC^LONG 

0x0, /* 0 */ 

/» Procedure get„Fonts */ 

/* 28 */ 0x33, /* FC^ADTO.HANDLE */ 

0k6c, /« Old Flags: object, 012 «/ 
/» 30 »/ NdrFcLong( 0x0 ), /* o */ 

/* 34 */ NdrFcShort( 0x8 ), /* 8 */ 
#ifndef _ALPHA„ 

/» 36 */ NdrFcShort{ Oxc ), /* x86, MIPS, PPC Stack size/offset ^ 12 */ 
#else 

NdrFcShart( 0x18 ), /* Alpha Stack size/offset = 24 «/ 

#endif 

/* 38 *^ NdrFcShortC 0x0 ), /* 0 

1^ 40 */ NdrFcShort( 0x8 ), /» 8 «/ 

/€ 42 */ 0x5, /* 012 Flags: srv must size, has return, */ 

)t 0x2, /* 2 */ 

fy /* Parameter pstrFonts */ 

<^ 44 */ HdrFcShort( 0x2113 ), /* Flags: must size, must free, out, simple ref, srv alloc size 
4^ */ 

#ijfndef „ALPHA„ 

4% 46 HdrFcShort ( 0x4 ), /* x86, MIPS, PPC Stack size/offset - 4 */ 

Mise 

^ NdrFcShort( 0x8 ), /* Alpha Stack size/offset = 8 «/ 

if»dif 

4^ 48 »/ NdrFcShort( 0x2c ), /» Type Offset-44 */ 
vJ Return value */ 

^ 50 »/ NdrFcShort ( 0x70 /» Flags: out, return, base type, */ 
#rfndef _ALPHA_ 

M 52 */ NdrFcShort( 0x8 ), x86, HIPS, PPC Stack size/offset = 8 */ 
#else 

KdrFcShort ( 0x10 ), /* Alpha Stack size/offset « 16 */ 

#endif 

/* 54 0x8, /* FC„LONG ^/ 

0x0, /* 0 */ 

Procedure put„Src */ 

/* 56 */ 0x33, /» FC_AUTO_HAlsrDLE */- 

0x6c, /* Old Flags: object, 012 */ 

/* 58 */ NdrFcLong( 0x0 ), /* 0 

62 */ NdrFcShort( 0x9 ), /* 9 */ 
#ifndef _ALPHA_ 

64 */ NdrFcShortC Oxc ), ^* x86, MIPS, PPC Stack sizez-offset = 12 */ 
#else 

HdrFcShort( 0x18 ), /* Alpha Stack size/offset = 24 

#endif 

/* 66 HdrFcShort( 0x0 ), g */ 

/» 68 */ ^drFcShort( 0x8 ), 8 */ 

/* 70 */ 0x6, /* 012 Flags; clt must size, has return, */ 

0x2, /* 2 «/ 

/* Parameter strSrc */ 
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0K8b ). 


/* 


Flags: must sise, must free, in. 


by val, */ 


0k4 ), 


/* 


x86, MIPS, PPC Stack size/offset 


= 4 */ 


0^8 ), 


/« 


Alpha Stack size/offset = 8 */ 




OKla ), 


/* 


Type Offset=«25 */ 





/* 72 */ NdrFcShort( 
#ifndef „ALPHA_ 

74 NdrFcShort( 
#else 

NdrFcShort ( 

#endif 

/» 76 */ NdrFcShort ( 

/* Return value */ 

/* 78 */ NdrFcShort ( 0s70 /* Flags: out, return, base type, */ 
#ifndef _ALPHA„ 

/» 80 */ NdrFcShort ( 0x8 ), /* x86, MIPS, PPC Stack size/offset « 8 */ 
#else 

NdrFcShort ( 0x10 ), /* Alpha Stack size/offset « 16 */ 

#endi£ 

/* 82 0x8, /* FC„LONG */ 

0x0, /* 0 */ 

/* Procedure get_Src */ 

/» 84 */ 0x33, /» FC„AUTO„HANDLE */ 

0x6c, /* Old Flags: object, Oi2 */ 

/* 86 */ NdrFcLongf 0x0 ), /« 0 */ 
/* 90 */ NdrFcShort ( Oxa ), /* 10 
#ifndef _ALPHA„ 

/* 92 */ NdrFcShort ( Oxc ), xS6, MIPS, PPC Stack size/offset - 12 */ 
#else 

NdrFcShort ( 0x18 ), /* Alpha Stack size/offset = 24 */ 

f#idif 

94 */ NdrFcShort ( 0x0 ), /* 0 »/ 
>ji 96 */ NdrFcShort ( 0x8 ), /* 8 */ 

m 98 *y 0x5, /* 012 Flags: siv must size, has return, »/ 

fij 0x2, /« 2 «/ 

/» Parameter pstrSrc */ 

|y 

100 »/ NdrFcShort( 0x2113 ), /» Flags: must size, must free, out, simple ref, srv alloc size 
Iffndef „ALPHA_ 

102 */ NdrFcShort ( 0x4 ), /* x86, MIPS, PPC Stack size/offset « 4 */ 
##Lse 

%A NdrFcShort( 0x8 ), /* Alpha Stack size/offset 8 */ 

#&dif 

104 */ NdrFcShort { 0x2c ), /* Type Offset=44 
H ^* Return value */ 

%^ 106 »/ NdrFcShort( 0x70 ), /» Flags: out, return, base type, */ 
#irndef _ALPHA„ 

/* 108 «/ NdrFcShort ( 0x8 ), /* x86, MIPS, PPC Stack size/offset ^ B ^/ 
#else 

NdrFcShort ( 0x10 ), /* Alpha Stack size/offset - 16 

#endif 

/» 110 */ 0x8, /* FC„LONG */ 

0x0, /* 0 



0x0 



static const MIDL„TYPE_FORMAT_STRING ^MIDL_TypeFortnatString = 

{ 



0, 

{ 



NdrFcShort ( 0x0 ), /* 0 */ 



/* 2 */ 

0x12, 0x0, /* FC„UP */ 
/* 4 */ NdrFcShort ( Oxc ), /* Offset- 12 (16) */ 
/« 6 */ 

Ox lb, /* FC„CARRAY 

0x1, /* 1 »/ 

/* 8 NdrFcShort ( 0x2 ), /* 2 */- 
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/* 


10 


*/ 


0k9, 


/* Corr desc: FC„ULONG */ 












QkO, 


/* «/ 








12 


»/ 


NdrFcShort ( 


Oxf f fc ) , -4 */ 








14 


*/ 


0x6 ^ 


/* FC^SriORT */ 














/* r t„£.ND */ 








16 


»/ 


















r C_CS iKUC i */ 












0x3, 


/» 3 */ 








18 


»/ 


MrFcShort ( 


0x8 ) , 8 */ 






/« 


20 


*/ 


NdrFcShort ( 


Oxf f f ft f f 2 ) , Offset- 


-14 


(6) */ 


/* 


22 


*/ 


0k8, 


^* fc„long */ 












0x8, 


/* FC„LuNG */ 






/* 


24 


«/ 


Ok 5c, 


/» FC_PAD */ 












Ox 5b, 


FC_END *^ 






/* 


26 


*/ 


0xb4, 


/* FCJJSER_MaRSHAL */ 












0x83, 


/* 131 */ 






/« 


28 




NarF cSnort ( 


□xO J , /* 0 */ 






/« 


30 


*/ 


NdrFcShort ( 


0x4 ) , /* 4 */ 






/4t 


32 




Narrcbnort ( 


uxu ) , /* y 






/* 


34 


*/ 


NdrFcShort ( 


OxffffffeO ), /* Offset- 


-32 


(2) »/ 


/« 


36 


»/ 
















0x11, 0x4, 


/* FC_RP [aiioced_on_stack] 


*/ 




/« 


38 


*/ 


NdrFcShort ( 


0x6 ), /* Offset^ 6 (44) */ 




/* 


40 


*/ 














0x13, 0x0, 


/* FC OP */ 






/* 


42 


*/ 


NdrFcShort ( 


0xffffffe6 ), /* Offset' 


-26 


(16) */ 


/* 


44 


»/ 


0xb4, 


/* FC_.US£R_„MARSHM. */ 










0x83, 


/* 131 */ 






/* 


46 


*/ 


NdrFcShort { 


0x0 ), /« 0 








48 


*y 


NdrFcShort ( 


0x4 ), /* 4 »/ 








50 


*/ 


NdrFcShort ( 


0x0 ), /* 0 */ 








52 


*/ 


NdrFcShort ( 


0xfffffff4 ), /* Offset- 


-12 


(40) */ 








0x0 









6clnst ClnterfacePi-oxyVtbl * _AxCtp_ProxyVtblList[] = 

H 

( ClnterfaceProxyVtbl •) &_ICtpPro5ryVtbl , 

s 0 

li 

C&st ClnterfaceStubVtbl • AxCtp StubVtblList[] « 

|y 

ii C ClnterfaceStubVtbl *) &_ICtpStubVtbl, 

\i 

PCInterfaceName const AxCtp„InterfaceNamesList [] = 
{ 

"ICtp". 
0 

}; 

const IID • „A^Ctp_BaseIIDList [] ^ 
{ 

&IID_I Dispatch, 
0 

}; 



#define „A3JCtp„CHECK„IID(n) IID_GENERIC_CHECK_IID ( _AxCtp, pi ID, n) 

int stdcall _AxCtp_IID„Lookup( const IID » pIID, int * pindex ) 

{ 

i f ( ! _AxCtp„CHECK_I ID ( 0 ) ) 
{ 

*plndex =0; 
return 1 ; 
} 
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return 0; 

} 

const ExtendedProxyFilelnfo AKCtp„PrcKyFileInfo « 
{ 

(PCInterfaceProKyVtblList *) £c „AKCtp_ProKyVtblList , 

(PCInterfaceStubVtblList *) & „AKCtp„StubVtblList, 

(const PCIaterfaceName * ) & ^AxCtp^InterfaceMamesList, 

(const IID «* ) Sc 3KCtp_BaseIIDList. 

S= _AKCtp_IID_Lookup, 

1, 

2, 

/* table of [async„uuid] interfaces *^ 
0, /* Fillerl */ 
0, /» Filler2 */ 
0 /» Fillers */ 
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/* this file contains the actual definitions of */ 
/* the I IDs and CLSIDs */ 

/« link this file in with the server and any clients */ 



/* File created by MIDL compiler version 5.01.0164 */ 
/* at Thu Mar 09 10:57:11 2000 
*/ 

/* Compiler settings for AxCtp.idl: 

Oicf (OptLev-i2), Wl, 2p8. env-Win32, ms__aKt, c^ext 
error checks: allocation ref bounds^check enum stub„data 

»/ 

//@@MI DL_F I LE^HEAD IHG ( ) 

#ifdef cplusplus 

extern "C"{ 
#endif 



#ifndef _IID„DEFIHED_ 
#define _IID„DEFINED_ 

typedef struct _IID 
{ 

unsigned long 
unsigned short si; 
unsigned short s2; 
unsigned char c[81; 

find if // IID_DEFIHED 

y^fndef CLSID_DEFINED 
IMefine CLSID„DEFIHED 
#pedef IID CLSID; 
Ifndif // CLSIDJEFMED 

cinst IID IIDJCtp - {Os38578BFE.0k0ABB,0k11D3,{0k93, 05^30, 0k00,0k80.0kC6,0kF7,0k96,0kA1}}; 



IID LIBID„AXCTPLib = {OK385?8BFl,0s0ABB,OKilD3, {0x93, Ok30,Ok0O. 0x80, OxC6,0xF7, 0x96, OxAl}}; 



CLSID CLSID.Ctp - {0x38578BF0,0x0ABB,0xllD3, {0x93, 0x30. 0x00, 0x80, 0xC6,0xF7, 0x96, OxAl}}; 



ft^Lfdef _cplusplus 
¥endif 
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//Microsoft Developer Studio generated resource script. 
// 

#include "resource. h" 

#define APSTUDIO_READONLY_SYMBOLS 

////////////////////////////////////////////////////////////////// 

/////////// 

// 

// Generated from the TEXT INCLUDE 2 resource. 
// 

#include "winres.h" 

////////////////////////////////////////////////////////////////// 
/////////// 

#undef APSTUDIO_READONLY_SYMBOLS 

////////////////////////////////////////////////////////////////// 
/////////// 

// English (U.S.) resources 

#if ! defined {AFX_RESOURCE_DLL) | | defined {AFX_TARG_ENU) 
#ifdef _WIN32 

LANGUAGE LANG_ENGLISH, SUBLANG_ENGLISH_US 
#pragma code_page (1252) 
#endif //_WIN32 

#ifdef APSTUDIO_INVOKED 

////////////////////////////////////////////////////////////////// 

/////////// 

// 

// TEXT INCLUDE 
// 

1 TEXTINCLUDE DISCARDABLE 
BEGIN 

" resource. h\0" 

END 

2 TEXTINCLUDE DISCARDABLE 
BEGIN 

"#include ""winres .h""\r\n" 

END 

3 TEXTINCLUDE DISCARDABLE 
BEGIN 

"1 TYPELIB ""AxCtp.tlb""\r\n" 

"#include ""Res\\Version.rc2""\r\n" 
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"\0" 



END 
#endif 



// APSTUDIO INVOKED 



11 1 1 1/ 1 n 1 1 1 1 1 u 1/ f If I n 1 1 n 1 1 1 1 1 1 1 1 n 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n 1 1 1 1 1 1 1 If 
inmiiiii 

I! 

II REGISTRY 
// 



IDR CTP 



REGISTRY DISCARDABLE 



"Ctp.rgs" 



iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiniiiiiiiiiiiiiiiiiiiiiiiiiiiitii 

nil III nil 

II 

II Dialog 
// 

IDD_CTLPANEL DIALOGEX 0, 0, 137, 169 

STYLE WS_CHILD 

EXSTYLE WS_EX_TRANS PARENT 

FONT 12, "CAC Futura Casual", 0, 0, 0x1 

BEGIN 



LTEXT 
CONTROL 

10,8,73,10 
CONTROL 

UTTON, 10, 

CONTROL 
BUTTON, 10, 

CONTROL 
0,31,73,10 
LTEXT 

NT 

COMBOBOX 



LTEXT 
NS PARENT 

COMBOBOX 
SCROLL I 



"View Card Panel", IDC_STATIC, 3, 1, 122, 8 
"Front", IDC__PAGE1, "Button", BS_AUTORADIOBUTTON, 

"Inside Left", IDC_PAGE2, "Button", BS_AUTORADIOB 

15,73, 10 

"Inside Right", IDC_PAGE3, "Button", BS_AUTORADIO 
23,73,10 

"Back", IDC_PAGE4, "Button", BS_AUTORADIOBUTTON, 1 

" Font " , I DC_STAT 10,3,44,122, 8,0, WS_EX_TRANS PARE 

IDC_F0NT, 10, 53, 122, 112, CBS_DROPDOWNLIST I 
CBS_OWNERDRAWFIXED | CBS_SORT | CBS_HASSTRINGS 

WS_VSCROLL I WS_GROUP i WS_TABSTOP 

"Point Size", IDC_STATIC, 3, 68, 122, 8, 0, WS_EX_TRA 

IDC_PTSIZE,10,77,38,88,CBS_DROPDOWNLIST | WS_V 

WS GROUP I WS TABSTOP 
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LTEXT 
NS PARENT 

COMBOBOX 



LTEXT 

CONTROL 
WS_GROUP I 

CONTROL 
N, 10, 132, 

CONTROL 
10,140,48, 



PUSHBUTTON 



"Text Color", IDC_STATIC, 3, 92, 122, 8, 0,WS_EX_TRA 

IDC_COLOR, 10, 101, 67, 67,CBS_DROPDOWNLIST i 
CBS_OWNERDRAWFIXED I WS_VSCROLL | WS_TABSTOP, 
WS_EX_TRANS PARENT 

"Text Alignment", IDC_STATIC, 3, 117 , 122 , 8 , 0, 
WS_EX_TRANS PARENT 

"Left", IDC_LEFT, "Button", BS_AUTORADIOBUTTON | 

WS_TABSTOP , 10,124,48,10, WS_EX_TRANS PARENT 
"Center", IDC_CENTER, "Button", BS_AUTORAD I OBUTTO 

48,10, WS_EX_TRANS PARENT 

"Right", IDC_RIGHT, "Button", BS_AUTORADIOBUTTON, 

1 0 , WS_EX_TRANS PARENT 
"Print", IDC PRINT, 3, 154, 50, 11 



END 



WS POPUP I WS V 



1538 DIALOG DISCARDABLE 32, 32, 287, 157 
STYLE DS_MODALFRAME | DS_3DL00K | DS_CONT EXT HELP 
ISIBLE 1 

WS_CAPTION i WS_SYSMENU 
CAPTION "Print" 
FONT 8, "MS Sans Serif" 
BEGIN 

GROUPBOX "Printer", 1075, 8, 4, 272, 84, WS_GROUP 

LTEXT "&Name:",1093,16,20,36,8 

COMBOBOX 1139, 52, 18, 152, 152, CBS DROPDOWNLIST | CBS_SORT 



IX 



IX 



IX 



PUSHBUTTON 

LTEXT 

CONTROL 



LTEXT 
CONTROL 



LTEXT 
CONTROL 



LTEXT 

CONTROL 



WS_VSCROLL I WS_GROUP i WS_TABSTOP 
"&Properties", 1025, 212, 17, 60, 14,WS_GR0UP 
"Status: ", 1095, 16,36, 36, 10, SS_NOPREFIX 
"", 1099, "Static", SS_LEFTNOWORDWRAP I SS_NOPREF 

WS_GROUP, 52,36,224, 10 

"Type :", 1094, 16, 48, 36, 10, SS_NOPREFIX 

"", 1098, "Static", SS_LEFTNOWORDWRAP | SS_NOPREF 

WS_GROUP, 52, 48,224,10 

"Where:", 1097, 16, 60,36, 10, SS_NOPREFIX 

"", 1101, "Static", SS_LEFTNOWORDWRAP | SS_NOPREF 

WS_GROUP, 52, 60, 224, 10 

"Cormnent :", 1096, 16, 72, 36, 10, SS_NOPREFIX 
"",1100, "Static", SS LEFTNOWORDWRAP | SS NOPREF 
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IX 



CONTROL 



WS_GROUP,52,72,152,10 

"Print to fi&le", 1040, "Button", BS AUTOCHECKBOX 



GROUPBOX 
CONTROL 
ADIOBUTTON, 

CONTROL 

LTEXT 
EDITTEXT 
DEFPUSHBUTTON 
PUSHBUTTON 
GROUPBOX 
CONTROL 
Button", 

END 



WS_GROUP I WS_TABSTOP,212,70, 64, 12 

"Print Format " , I DC_STAT 10,8,93,136,39, WS_GROUP 

"Single-fold", I DC_S INGLE FOLD, "Button", BS_AUTOR 

15,104,80,10 

"Quarter- f old", IDC_QUARTERFOLD, "Button", 

BS_AUTORADIOBUTTON, 15, 116, 80, 10 

"Number of &copies: ", 1092, 162, 105, 68, 8 

1154,234,103,32,12,ES_NUMBER I WS_GROUP 

"OK" , IDOK, 180,137,48,14, WS_GROUP 

"Cancel", IDCANCEL, 232, 137, 48, 14 

"Copies", IDC_STATIC, 152, 93, 128, 39, WS_GROUP 

"Run Double-Sided Printing Test", IDC_DBLSIDE, " 

BS AUTOCHECKBOX j WS TABSTOP, 8, 140, 115, 10 



IDD_WAITDLG DIALOG DISCARDABLE 0, 0, 186, 44 

STYLE DS_MODALFRAME | WS_POPUP I WS_VISIBLE I WS_CAPTION 

CAPTION "Printing" 

FONT 8, "MS Sans Serif" 

BEGIN 

CTEXT "Your document is being printed. Please wait. 

IDC_STATIC, 6,14,173,8 

END 

IDD_DBLSIDEINTRO DIALOG DISCARDABLE 0, 0, 346, 105 
STYLE DS_MODALFRAME | WS_POPUP I WS_CAPTION I WS_SYSMENU 
CAPTION "Double-Sided Printing Test" 
FONT 8, "MS Sans Serif" 
BEGIN 

LTEXT "To help guide you through printing a single-f 

old card on both sides of a page, some information needs to be gat 
hered about the way paper feeds through your printer.", 

IDC_STATIC,0,4,345,24 
LTEXT "This print test will use one piece of paper. 

It will only need to be run once for a particular printer.", 

IDC_STATIC, 0, 32, 345, 24 
LTEXT "Click Next when you are ready to print the te 

st page.", 

IDC STATIC, 0,97, 345, 8 
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END 



IDD_DBLSIDESTEP1 DIALOG DISCARDABLE 0, 0, 34 6, 105 
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU 
CAPTION "Double-Sided Printing Test" 
FONT 8, "MS Sans Serif" 
BEGIN 

LTEXT "After the test page has printed, it must be p 

rinted on once more to complete this test.", 

IDC_STATIC,0,4,345,8 
LTEXT "Please put the page back into the printer wit 

h the printed side UP and the arrow pointing TOWARD the printer.", 

IDC_STATIC, 0, 24, 345, 24 
LTEXT "Click Next when you are ready to print. ",IDC_ 

STATIC, 0, 

97,345,8 

END 



IDD_DBLSIDESTEP2 DIALOG DISCARDABLE 0, 0, 346, 105 
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU 
CAPTION "Double-Sided Printing Test" 
FONT 8, "MS Sans Serif" 
BEGIN 

LTEXT "Please click on the option below that matches 

your printed page.", 

IDC_STATIC,0,4,345,8 

" " , I DC_FRAME 1," Static", SS_ETCHEDFRAME ,0,20,56, 

"", IDC_FRAME2, "Static", SS_ETCHEDFRAME, 66,20, 56 

"", IDC_FRAME3, "Static", SS_ETCHEDFRAME, 132,20, 1 

"", IDC_FRAME4, "Static", SS_ETCHEDFRAME, 244, 20, 1 

210, IDC_STATIC, "Static", SS_BITMAP, 8, 26, 40,49 
212, IDC_STATIC,"Static",SS_BITMAP,74,26,40,49 
208, IDC_STATIC, "Static", SS_BITMAP, 140, 26, 40, 49 
208, IDC_STATIC, "Static", SS_BITMAP, 252, 26, 40, 49 
209, IDC_STATIC, "Static", SS_BITMAP, 186,26,40,49 
211, IDC_STATIC, "Static", SS_BITMAP, 298 ,26,40,49 
"Front", IDC_STATIC, 152,76, 17, 8 
"Back", IDC_STATIC, 197, 76, 18,8 
"Front" , IDC_STATIC, 264,77,17,8 
"Back", IDC_STATIC, 309, 77, 18, 8 
"Click Next to continue .", IDC STATIC, 0, 97 , 345, 



CONTROL 

68 

CONTROL 

, 68 

CONTROL 

02, 68 

CONTROL 

02, 68 

CONTROL 
CONTROL 
CONTROL 
CONTROL 
CONTROL 
CONTROL 
LTEXT 
LTEXT 
LTEXT 
LTEXT 
LTEXT 

8 
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END 

IDD_DBLSIDEEND DIALOG DISCARDABLE 0, 0, 346, 105 

STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION i WS_SYSMENU 

CAPTION "Double-Sided Printing Test" 

FONT 8, "MS Sans Serif" 

BEGIN 

LTEXT "The double-sided printing test is complete.", 

IDC_STATIC, 

0,4,345,8 

LTEXT "It is now time to print your card. IDC_STATI 

C, 0,24, 345, 

8 

LTEXT "Click Finish when you are ready. IDC_STATIC, 

0, 97,345,8 

END 



1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / III 1 1 1 1 1 1 1 1 1 1 1 n 1 1 1 1 1 n I / 1 1 1 m 1 1 n 1 1 1 1 u I / m / 

I II II II 1 1 II 

II 

II DESIGNINFO 
// 

#ifdef APSTUDIO_INVOKED 
GUIDELINES DESIGNINFO DISCARDABLE 
BEGIN 

IDD_WAITDLG, DIALOG 
BEGIN 

LEFTMARGIN, 7 
RIGHTMARGIN, 179 
TOPMARGIN, 7 
BOTTOMMARGIN, 54 

END 

END 

#endif // APSTUDIO INVOKED 



1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

III II II II II 

II 

II AG IMAGE 
// 



IDR_AGLOGO 
IDR CPLOGO 



AGIMAGE DISCARDABLE "ResWAGLogo. agi" 

AGIMAGE DISCARDABLE "ResWC&PLogo . agi" 
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////////////////////////////////////////////////////////////////// 

/////////// 

// 

// TTZ 
// 

IDR CACFC TTZ DISCARDABLE "ResWCacfc .ttz 



////////////////////////////////////////////////////////////////// 

/////////// 

// 

// Bitmap 
// 



IDB_1UP 
IDB_2UP 
IDB_3UP 
IDB_2D0WN 
IDE 1UP2D0WN 



BITMAP DISCARDABLE 

BITMAP DISCARDABLE 

BITMAP DISCARDABLE 

BITMAP DISCARDABLE 

BITMAP DISCARDABLE 



"ResWlup.bmp" 
"Res\ \2up.bmp" 
"ResWSup.bmp" 
"Res\ \2ciown.bmp" 
" Re s \ \ 1 up 2 down . bmp 



////////////////////////////////////////////////////////////////// 

/////////// 

// 

// String Table 
// 

STRINGTABLE DISCARDABLE 
BEGIN 

IDS_PROJNAME "AxCtp" 

END 

#endif // English (U.S.) resources 

////////////////////////////////////////////////////////////////// 
/////////// 



#ifndef APSTUDIO_INVOKED 

////////////////////////////////////////////////////////////////// 

/////////// 

// 

// Generated from the TEXTINCLUDE 3 resource. 
// 
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1 TYPELIB "AxCtp.tlb" 
#include "ResXVersion. rc2" 

////////////////////////////////////////////////////////////////// 
IIIUIlllll 

#endif // not APSTUDIO INVOKED 
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<html> 
<body> 
<pre> 

<hl>Build Log</hl> 
<h3> 

Configuration: AxCtp - Win32 Release 

</h3> 

<h3>CoiRmand Lines</h3> 

Creating temporary file "c:\wxndows\TEMP\RSPC0F3.IMP" with contents 
[ 

/nologo /Zp2 /MT /W3 /GX /Ol /I *\.\ZLib" /I " . . \Stanehnd " /D "WIN32" /D "KIDEBUG" /D '^WINDOWS" /D " 
„USRDLL" /D "„ATL_STATIC3EGISTRY" /Fp^Release/AKCtp .pch" /Yu"stdafK .h" /To"Release/" /Fd"Release/" 
/FD /c 

"C : \Work\Crt PrtNAxctpXCtp . cpp " 
] 

Creating command line "cl,exe @c :\windows\TEMP\RSPC0F3 .IMP" 
Creating temporary file "c:\windows\TEMP\RSPC0F4.TOP'* with contents 
[ 

kernel32.1ib user32.1ifa gdi32.1ifo winspool.lib comdlg32.1ib advapi32.1ib shell32.1ib ole32.1ib oleau 
t32.1ib uuid.lib odbc32.1ib odbccp32,lib coffictl32.1ib /nologo /subsystem: windows /dll /incremental :n 
o /pdb:"Release/AKCtp,pdb" /machine:I386 /def .NAsCtp.de f" /out : "Release/AxCtp.dll'* /implib: "Releas 
e/AxCtp.lib" 
.\Release\AGDC.obj 
. \Rel saseNAGDoc . ob j 
, \Release\AGLayer , ob j 
. \Release\AGMatriK .obj 
.\Release\AGPage ,obj 
. ^Release^AGS3m . ob j 
.\Release\AGText ,obj 
f.l^ReleaseNAxCtp .obj 
.".JvReleaseNCtlPanel .obj 
;V2^Release\Ctp . obj 
yiReleaseNdblside . obj 
fL^iReleaseNFont .obj 
J.|.Release\StdAfK .obj 
J'SRe leaseNWa i tD 1 g . obj 
itaeleaseNAsCtp .res 
N|?ork\CrtPrt\ZLib\Release\2Lib .lib 
=M^ork\CrtPrt\Stonehnd\Release\Stonehnd -lib 

r 

Creating command line "link.exe §c :\windows\TEMP\RSPC0F4 .IMP" 
Ideating temporary file *'c :\windows\TEMP\RSPC0F5 .BAT" with contents 

gfcho off 

¥4i^svT32 /s /c " ,\ReleaseNAxCtp.dH" 

'^ho regsvr32 exec, time > *' .\Re lease \regsvr 32, trg" 

eating command line "c:\windows\TEMP\RSPC0F5.BAT" 
"fe^mpiling . . . 
Ctp.cpp 
Linking . . , 

Creating library Release/AxCtp .lib and object Release/AxCtp .eKp 
<h3>0utput Window</h3> 
Registering ActiveX Control . . . 



<h3>Results</h3> 

AxCtp.dll - 0 error(s)^ 0 warning(s) 

</pre> 

</body> 

</html> 
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#include <olectl.h> 

// AKCtp.idl : IDL source for AsCtp.dll 

// 

// This file will be processed by the MIDL tool to 

// produce the type library (AxCtp.tlb) and marshalling code. 

import '*oaidl -idl"; 
import "ocidl.idl"; 



E 

object, 

UUid(38578BFE-OABB-llD3-9330*0080C6F796Al), 
dual, 

helpstringC'ICtp Interface"), 
po in ter_def au 1 1 { un i que ) 

1 

interface ICtp : IDispatch 
{ 

[propput, id(0)} 

HRESULT Fonts ([ in JBSTR strFonts); 
[propget, id(0)] 

HRESULT Fonts ( [out, retval]BSTR* pstrFonts); 

[propput, id(l)] 
HRESULT Src ( 1 in ] BSTR strSrc ) ; 
{propget, id{l)] 
r% HRESULT Src ( [out ,retval ] BSTR* pstrSrc ) ; 

It 

C:^ uuid(38578BFl-0ABB-llD3-9330-0080C6F796Al) , 
ry version ( 1. 0) , 

helpstringC'AsCtp 1.0 Type Library") 

VL 

^^iibrary AXCTPLib 

f =^ importlib ( "stdole32 . tlb" ) ; 
import libf'stdoleZ.t lb"); 



\A uuid(38578BFO-OABB-llD3-9330-0080C6F796Al) , 

:1 helpstring ("Ctp Class") 

ly ] 

15* coclass Ctp 

C3 { 

[default] interface ICtpi 
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/* this ALWAYS GElsIERATED file contains the definitions for the interfaces 



/» File created by MIDI compiler version 5.01.0164 */ 
/* at Thu Mar 09 10:57:11 2000 
*/ 

/* Compiler settings for AxCtp.idl: 

Oicf (OptLev=i2), Wl. 2p8, env«Win32, ms„eKt, c„est 
error checks: allocation ref bounds„check enum stub_data 

»/ 

//@(aMIDL„FILE„HEADING ( ) 



/* verify that the <rpcndr.h> version is high enough to compile this file*/ 
#ifndef _REQUIRED„RPCNDR„H.VERSIOM_ 
#define _REQUIRED_RPOTDR„H„VERS10N_ 440 
#endif 

#include "rpc.h" 
# include "rpcndr.h" 

#ifndef _RP™DR_H„VERSI0H_ 

#error this stub requires an updated version of <rpcndr.h> 
#endif _RPCroR„H.VERSIOK_ 

#ifnaef COM„HO„WINDOWS_H 
#include "windows. h" 
#include ^'ole2.h" 
,d^ndif /*COM„NO„WINDOWS_H*/ 

^Jlfndef _AKCtp„h 

|«efine _AxCtp_h 

^^ifdef cplusplus 

^.Sstern "C"{ 
Ifendif 

Forward Declarations */ 

s ^ 

.#ifndef _ICtp„FWD JEFINED_ 
'ImeEiXiB _ICtp„FWD„DEFIHED_ 
"fypedef interface ICtp ICtp; 
■'^^endif /* _ICtp„FTO„DEFINED_ */ 



?iifndef _Ctp„FWD_DEFINED 

C ^define Ctp_FWD_DEFINED 

"iifdef cplusplus 

typedef class Ctp Ctp; 
#else 

typedef struct Ctp Ctp; 
#endif /* ^cplusplus */ 

#endif /* Ctp„FWD„DEFIHED */ 



/* header files for imported files */ 
#include "oaidl .h" 
#include "ocidl.h" 

void RPC FAR « RPC^USER MIDL„user„al locate (si ze„t ) ; 

void _RPCIUSER MIDL_user_free ( void _RPC„FAR * ); 

#ifndef _lCtp_IlsrrERFACE„DEFIHED_ 
#def ine _ICtp„IOTERFACE„DEFIHED_ 

/« interface ICtp */ 

/* [unique] [helpstring] [dual] [uuid] [object] *^ 



EKIEWj: const I ID IID„ICtp; 
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#if defined (_cplusplus) ! defined (CINTERFACE) 

MIDL_IlsrrERFACE("38578BFE-OABB-llD3-9330-0080C6F796Al") 

ICtp : public IDispatch 

{ 

publ ic : 

virtual /* [id] [propput] */ HRESULT STDMEIHODCALLTYPE putJonts( 
/* [in] »/ BSTR strFonts) - 0; 

virtual /* [id] fpropget] */ HRESULT STDMEIHODCALLTYPE get_Fonts( 
/* [retval] [out] */ BSTR RPC_FAR *pstrFonts) - 0; 

virtual /* [id] [propput] »/ HRESULT STDMEIHODCALLTYPE put„Src( 
X* [in] */ BSTR strSrc) - 0; 

virtual /* [id] [propget] */ HRESULT STDMEIHODCALLIYPE get„Src( 
/* [retval] ["^^^^l ^^'^^ RPC„FAR *pstrSrc) - 0; 



#else /» C style interface */ 

typedef struct ICtpVtbl 
{ 

BEGIN.IiniRFACE 

HRESULT ( STDMEIHODCALLIYPE _RPC„FAR *Query Inter face ) ( 

ICtp RPC^FAR * This. 

/-« [in] */ REFIID riid, 
;3 /* [iid„is] [out] »/ void _RPC„FAR » RPC^FAR *ppvObject); 

SS ULOlsTG ( STDMEIHODCALLP/PE _RPC_FAR *AddRef ) ( 
ill ICtp RPCJFAR * This); 

.1 ULONG ( STDMEIHODCALLIYPE RPC_FAR *Re lease )( 

ICtp RPC_FAR * This); 

'J HRESULT ( STDMEIHODCALLIYPE RPC„FAR »GetTypeInfoCount ) ( 

'1 ICtp RPC_FAR » This, 

r [out] */ UINT RPC_FAR *pctinfo); 

= 3 HRESULT C STDMEIHODCALLIYPE _RPC„FAR *GetTypeInfo ) ( 

ICtp RPCJAR * This, 

:] /* [in] */ UIHT iTInfo, 

^'''^ /* [in] */ LCID Icid, 

/* [out] */ ITypelnfo _RPC.FAR *_RPC_FAR »ppTInfo); 

^ HRESULT ( STDMEIHODCALLIYPE _RPC„FAR *GetIDsOfisfames ) ( 

ICtp _RPC„FAR * This, 

[in] */ REFIID riid, 
/» [size„is] [in] */ LPOLESTR _RPC„FAR »rgszNames, 
y* [in] */ UIOT cHames, 

[in] */ LCID Icid, 
/* [size„is][out] */ DISPID RPC.FAR *rgDispId); 

/* [local] */ HRESULT ( STDMEIHODCALLIYPE _RPC„FAR *Invoke )( 
ICtp _RPC_FAR * This, 
/* [in] */ DISPID dispIdMember, 
/* [in] */ REFIID riid, 
/* [in] LCID Icid, 
/* [in] WORD wFlags, 

/* [out] [in] */ DISPPARAJ^ _RPC_FAR *pDispParams, 

/* [out] VARIAOT RPC„FAR •pVarResult, 

/» [out] */ EXCEPINFO RPC„FAR *pEscepInfo, 

/* [o\xt] */ UIOT RPC_FAR *puAreErr); 

[id] [propput] */ HRESULT ( STDMEIHODCALLIYPE _RPC„FAR *put__Fonts )( 

ICtp RPC_FAR * This, 

/* [in] BSTR strFonts); 

/* [id] [propget] */ HRESULT ( STDMEIHODCALLIYPE _RPC„FAR *get„Fonts )( 
ICtp _RPC_FAR * This, 

/* [retval] [out] */ BSTR RPC_FAR *pstrFonts); 
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/* [id] [propput] »/ HRESULT ( STDMEIHODCALLTYPE _RPC„FAR »put„Src )( 
ICtp _RPCJAR * This, 
/« [m] »/ BSTR strSrc); 

/* [id][propget] */ HRESULT ( STDMEIHODCALLTYPE _RPC_FAR *get„Src )( 
ICtp _RPC„FAR * This, 

/* [aretval] {out] */ BSTR _RPC_FAR *pstrSrc); 

END_IlsiTERFAC£ 
} ICtpVtbl; 

interface ICtp 

^ CONST„VTBL struct ICtpVtbl _RPC„FAR *lpVtbl; 



#ifdef COBJMACROS 



#define ICtp„QueryInterfac8(This,riid,ppvObject) \ 

(This)->lpVtbl -> Query2Rterface(This,riid,ppvObject) 

#define ICtp^AddRef (This) \ 

(This)->ipVtbl "> AddRef(This) 

fdefine ICtp_Release (This) \ 
O" (This)->lpVtbl -> Release (This) 



ii^define ICtp_GetTypeInfoCount (This,pctinfo) \ 

III (This)->lpVtbl -> GetTypeInfoCount(Thxs,pctinfo) 

r-Sdefine ICtp.GetTypelnfo (This,iTInfo,lcid,ppTInfo) \ 

ji (This)->lpVtbl -> GetTypeInfo(This,iTInfo,lcid,ppTInfo) 

i ide f i ne I Ctp^Oet I DsOfKames (Th i s . r i i d , rgszNames , cMames , 1 c i d , rgDi sp I d ) N 

(This)->lpVtbl -> GetIDsOfHaities(This,riid,rgs2Names,cNames,lcid,rgDispId) 

Cidefine ICtpJnvoke(This,dispIdMeinber,riid,lcid,wFlags,pDispParams,pVarResult,pEscepInfo,puAreErr) 

I J (This)->lpVtbl ~> Invoke (This, dispIdMember,ri id, lcid,wFlags,pDispParams,pVarResult,pExcepInfo, 
:"|rgErr) 

Cidefine ICtp_.put_Fonts (This,strFonts) \ 

'^'^ (This)->lpVtbl -> put_Fonts(This,strFonts) 

#define ICtp„3et_Fonts(This,pstrFonts) \ 

(This)->lpVtbl -> get„FoiEits(This,pstrFoiits) 

#define ICtp„put_Src (This^strSrc) \ 

(Tbis)->lpVtbl -> put„Src (This, StrSrc) 

#define ICtp_get„Src{This,pstrSrc) \ 

(This)->lpVtbl -> get_Src(This,pstrSrc) 

#endif /* COBJMACROS 



#endif /* C style interface */ 



/* [id] [propput] */ HRESULT STDMEIHODCALLTYPE ICtp^ut.Fonts.Proxy ( 
ICtp _RPC_FAR * This, 

[in] */ BSTR strFonts); 



void RPC_STUB ICtp_put„Fonts„Stub ( 

IRpcStubBuffer *This, 
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I RpcChanne 1 Bu f f »„pRpcChanne i Bu f f er , 
PRPC_MESSAGE „pRpcMessas6, 
DWORD *_pdwStubPhase); 

/* [id] tpropget] */ HRESULT STDMETHODCALLTYPE ICtp_get„Fonts„ProKy ( 
ICtp _RPC_FAR * This. 

X* [retval] [out] ^/ BSTR RPC„FAR *pstrFonts); 

void _RPC„STUB ICtp_get_Fonts_„Stub ( 
IRpcStubBuff^r *This. 
IRpcChannelBuf f er *„pRpcChannelBuf f er , 
PRPC„MESSAGE _pRpcMessage , 
DWORD *_pdwStubPhase) ; 

/* [id] [propput] */ HRESULT STDMEIHODCALLTYPE ICtp„put_Src„ProKy ( 

ICtp ^RPC.FAR * This, 

/* [in] */ BSTR strSrc); 

void _RPC_STUB ICtp_put„Src„Stub ( 
IRpcStubBuffer *This, 
IRpcChannelBuffer *jRpcChaniiel Buffer, 
PRPC.MESSAGE _pRpcMessaee, 
DWORD *„pdwStubPhase) ; 

C3* [id] [propget] »/ HRESULT STDMETHODCALLTYPE ICtp„get„Src„Pros:y ( 
i3 ICtp RPC_FAR * This, 

fS /« [retval] [out] */ BSTR RPC^FAR *pstrSrc); 

^Joid _RPC„STUB ICtp^get.Src^Stub ( 

i:= IRpcStubBuffer *This, 

l"', IRpcChannelBuffer *_pRpcChannelBuf fer, 

"-^ PRPC„MESSAGE .pRpcMessage , 

C3 DWORD *„pdwStubPhase) ; 

'•#endif /* _ICtp_IOTERFACEJEFI]sfED_ */ 

CSifndef _AXCTPLib_LIBRARY_DEFIHED_ 
Cfdefine _AXCTPLib.LIBRARY„DEFI]sIED_ 

library AXCTPLib 
/* [helpstring] [version] [uuid] */ 

EXTERH.C const I ID LIBID.AXCTPLib; 
EXTERH_C const CLSID CLSID_Ctp; 
#ifdef cplusplus 

class DECLSPEC_UUID("38578BFO-OABB-11D3-9330-0080C6F796A1") 

Ctp; 

#endif 

#endif /* _AXCTPLib_LIBRARY„DEFINED_ */ 

/* Additional Prototypes for ALL interfaces */ 

unsigned long _RPC_USER BSTR^UserSize ( unsigned long _RPC_FAR *, unsigned long 

, BSTR _RPC.FAR * ) ; 

unsigned char _RPC„FAR * _RPC„USER BSTR^UserMarsha I ( unsigned long _RPC„FAR unsigned char _ 
RPC„FAR BSTR _RPC„FAR * ); 

unsigned char RPC_FAR * RPG_USER BSTR„UserUnmarshal (unsigned long RPC„FAR unsigned char — 

RPC„FAR *, BSTR _RPC_FAR * ); ^^^^ 

void _RPC„USER BSTR„UserFree ( unsigned long ^RPC„FAR BSTR _RPC_FAR * 



File: Work\CrtPrtNAsctp\AKCtp .h 

end of Additional Prototypes 

#ifdef cplusplus 

} 

#endif 
#endif 
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Microsoft Developer Studio Workspace File, Format Version 6,00 
# WARNING: DO NOT EDIT OR DELETE THIS WORKSPACE FILE! 

################################################################## 
############# 

Project: "AxCtp"-, XAxCtp.dsp - Package Owner=<4> 

Package=<5> 
{{{ 

begin source code control 
"$/AxCtp", NDAAAAAA 

end source code control 

}}} 

Package=<4> 
{{{ 

Begin Project Dependency 
Project_Dep_Name ZLib 
End Project Dependency 
Begin Project Dependency 
Project_Dep_Name Stonehnd 
End Project Dependency 

}}) 

################################################################## 
############# 

Project: "Stonehnd"-. . \Stonehnd\Stonehnd.dsp - Package Owner-<4> 

Package=<5> 
{{{ 

begin source code control 
"$ /Stonehnd", CGAAAAAA 
. , \stonehnd 

end source code control 

}}} 

Package=<4> 

{{{ 

}}} 

################################################################## 
############# 
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Project: "ZLib"=. . \ZLib\ZLib.dsp - Package Owner=<4> 

Package=<5> 
{{{ 

begin source code control 
"$/ZLib", LBAAAAAA 
. . \zlib 

end source code control 

}}} 

Package=<4> 
{{{ 

}}} 

################################################################## 
############# 

Global: 

Package=<5> 
{{{ 

begin source code control 
"$/AxCtp", NDAAAAAA 

end source code control 

}}} 

Package=<3> 

{{{ 

}}} 

####!############################################################# 
############# 
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# Microsoft Developer Studio Project File - Name="AxCtp" - Package 
Owner=<4> 

# Microsoft Developer Studio Generated Build File, Format Version 
6.00 

# ** DO NOT EDIT ** 

# TARGTYPE "Win32 (x86) Dynamic-Link Library" 0x0102 
CFG=AxCtp - Win32 Debug 

'MESSAGE This is not a valid makefile. To build this project using 
NMAKE, 

! MESSAGE use the Export Makefile command and run 
! MESSAGE 

IMESSAGE NMAKE /f "AxCtp.mak". 
! MESSAGE 

IMESSAGE You can specify a configuration when running NMAKE 
IMESSAGE by defining the macro CFG on the command line. For exampl 
e: 

IMESSAGE 

IMESSAGE NMAKE /f "AxCtp.mak" CFG="AxCtp - Win32 Debug" 
IMESSAGE 

.'MESSAGE Possible choices for configuration are: 
IMESSAGE 

IMESSAGE "AxCtp - Win32 Debug" (based on "Win32 (x86) Dynamic-Link 
Library") 

IMESSAGE "AxCtp - Win32 Release" (based on "Win32 (x86) Dynamic-Li 

nk Library") 

IMESSAGE 

# Begin Project 

# PROP AllowPerConfigDependencies 0 

# PROP Scc_ProjName ""$/AxCtp", NDAAAAAA" 

# PROP Scc_LocalPath "." 
CPP=cl.exe 

MTL=midl . exe 
RSC=rc.exe 

I IF "$(CFG)" =- "AxCtp - Win32 Debug" 

# PROP BASE Use_MFC 0 

# PROP BASE Use_Debug_Libraries 1 

# PROP BASE Output_Dir "Debug" 

# PROP BASE Intermediate_Dir "Debug" 

# PROP BASE Target_Dir "" 

# PROP Use_MFC 0 

# PROP Use_Debug_Libraries 1 
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# PROP Output_Dir "Debug" 

# PROP Intermediate__Dir "Debug" 

# PROP Ignore_Export_Lib 0 

# PROP Target_Dir "" 

# ADD BASE CPP /nologo /MTd /W3 /Gm /Zi /Od /D "WIN32" /D "_DEBUG" 
/D "_WINDOWS" /D "_USRDLL" /Yu"stdafx.h" /FD /c 

# ADD CPP /nologo /Zp2 /MTd /W3 /Gm /GX /ZI /Od /I "..\ZLib" /I 
AStonehnd" /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_USRDLL" /D " 
_ATL_STATIC_REGISTRY" /Yu"stdafx.h" /FD /c 

# ADD BASE MTL /nologo /D "_DEBUG" /mktyplib203 /o "NUL" /win32 

# ADD MTL /nologo /D "_DEBUG" /raktyplib203 /o "NUL" /win32 

# ADD BASE RSC /I 0x409 /d "_DEBUG" 

# ADD RSC /I 0x409 /d "_DEBUG" 
BSC32=bscmake . exe 

# ADD BASE BSC32 /nologo 

# ADD BSC32 /nologo 
LINK32=link.exe 

# ADD BASE LINK32 kernel32.1ib user32.1ib gdi32.1ib winspool.lib c 
omdlg32.1ib advapi32.1ib shell32.1ib ole32.1ib oleaut32.1ib uuid.l 
ib odbc32,lib odbccp32.1ib /nologo /subsystem: windows /dll /debug 

; /machine: 1386 /pdbtype: sept 

ADD LINK32 kernel32.1ib user32.1ib gdi32.1ib winspool.lib comdlg 
:32.1ib advapi32.1ib shell32.1ib ole32.1ib oleaut32.1ib uuid.lib od 
jbc32.1ib odbccp32.1ib comctl32.1ib /nologo /subsystem: windows /dll 
t /debug /machine: 1386 /pdbtype : sept 

i§ Begin Custom Build - Registering ActiveX Control... 

iOutDir=.\Debug 

'■'Targ6tPath=. \Debug\AxCtp.dll 

=InputPath= . \Debug\AxCtp . dll 

■te0URCE="$ (Input Path) " 

^°"$ (OutDir) \regsvr32. trg" : $ (SOURCE) "$(INTDIR)" "$(OUTDIR)" 
J regsvr32 /s /c "$ (TargetPath) " 

[ echo regsvr32 exec, time > "$ (OutDir) \regsvr32 . trg" 

# End Custom Build 

lELSEIF "$(CFG)" == "AxCtp - Win32 Release" 

# PROP BASE Use_MFC 0 

# PROP BASE Use_Debug__Libraries 0 

# PROP BASE Output_Dir "AxCtp " 

# PROP BASE Intermediate_Dir "AxCtp " 

# PROP BASE Target_Dir "" 

# PROP Use_MFC 0 

# PROP Use_Debug_Libraries 0 
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# PROP Output_Dir "Release" 

# PROP Intermediate_Dir "Release" 

# PROP Ignore_Export_Lib 0 

# PROP Target_Dir "" 

# ADD BASE CPP /nologo /MT /W3 /Ol /D "WIN32" /D "NDEBUG" /D "_WIN 
DOWS" /D "_USRDLL" /D "_ATL_STATIC_REGISTRY" /D "_ATL_MIN_CRT" /Yu 
"Stdafx.h" /FD /c 

# ADD CPP /nologo /Zp2 /MT /W3 /GX /Ol /I "..\ZLib" /I "..\Stonehn 
d" /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_USRDLL" /D "_ATL_STAT 
IC_REGISTRY" /Yu"stdafx.h" /FD /c 

# ADD BASE MTL /nologo /D "NDEBUG" /mktyplib203 /o "NUL" /win32 

# ADD MTL /nologo /D "NDEBUG" /mktyplib203 /o "NUL" /win32 

# ADD BASE RSC /I 0x409 /d "NDEBUG" 

# ADD RSC /I 0x409 /d "NDEBUG" 
BSC32=bscmake . exe 

# ADD BASE BSC32 /nologo 

# ADD BSC32 /nologo 
LINK32=link.exe 

# ADD BASE LINK32 kernel32.1ib user32.1ib gdi32.1ib winspool.lib c 
^^omdlg32.1ib advapi32.11b shell32.1ib ole32.1ib oleaut32.1ib uuid.l 
iiib odbc32.1ib odbccp32.1ib /nologo /subsystem: windows /dll /machin 
^3e:l386 

J;:;# ADD LINK32 kernel32.1ib user32.1ib gdi32.1ib winspool.lib comdlg 
J'^;32.1ib advapi32.1ib shell32.1ib ole32.1ib oleaut32.1ib uuid.lib od 
^■;-=!bc32 . lib odbccp32.1ib comctl32.1ib /nologo /subsystem: windows /dll 
\ji /machine: 1386 

Begin Custom Build - Registering ActiveX Control... 
^"OutDir=, \Release 
J=.,TargetPath= . \Release\AxCtp . dll 
MlnputPath= . \Release\AxCtp . dll 
= :{S0URCE="$ (Input Path) " 

f':;/'$(OutDir)\regsvr32,trg" : $ (SOURCE) "$(INTDIR)" "${OUTDIR)" 
regsvr32 /s /c "$ (TargetPath) " 

echo regsvr32 exec, time > "$ (OutDir) \regsvr32 . trg" 

# End Custom Build 
lENDIF 

# Begin Target 

# Name "AxCtp - Win32 Debug" 

# Name "AxCtp - Win32 Release" 

# Begin Group "Source Files" 
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# PROP Default_Filter "cpp;c;cxx;rc;def ;r;odl;idl;hpj;bat 

# Begin Source File 

SOURCE=AAGDC.cpp 

# End Source File 

# Begin Source File 

SOURCE- . \AGDoc , cpp 

# End Source File 

# Begin Source File 

SOURCE- . \AGLayer . cpp 

# End Source File 

# Begin Source File 

SOURCE- AAGMatrix. cpp 

# End Source File 

# Begin Source File 

SOURCE- • \ AGPage , cpp 

# End Source File 

# Begin Source File 

SOURCE^ . \AGSym. cpp 

# End Source File 

# Begin Source File 

SOURCE- . \AGText . cpp 

# End Source File 

# Begin Source File 

SOURCE- . \AxCtp . cpp 

# End Source File 

# Begin Source File 

SOURCE=,\AxCtp.def 

# End Source File 

# Begin Source File 

SOURCE- AAxCtp.idl 

!IF "$(CFG)" — "AxCtp - Win32 Debug" 

# PROP Ignore_Default_Tool 1 

# Begin Custom Build - Performing MIDL step 
InputPath-. \AxCtp. idl 
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BuildCmds= \ 

midl /Oicf /h "AxCtp.h" /iid "AxCtp_i.c" "AxCtp.idl" 

"AAxCtp.tlb" : $ (SOURCE) "$(INTDIR)" "$ (OUTDIR) " 
$ (BuildCmds) 

"AAxCtp.h" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)" 
$ (BuildCmds) 

".\AxCtp_i.c" : $ (SOURCE) "$(INTDIR)" "$ (OUTDIR)" 
$ (BuildCmds) 

# End Custom Build 

lELSEIF "$(CFG)" == "AxCtp - Win32 Release" 

# PROP Ignore_Default_Tool 1 

# Begin Custom Build - Performing MIDL step 
InputPath= . \AxCtp . idl 

BuildCmds= \ 

midl /Oicf /h "AxCtp.h" /iid "AxCtp_i.c" "AxCtp.idl" 

".\AxCtp.tlb" : $ (SOURCE) "$(INTDIR)" "$ (OUTDIR) " 
$ (BuildCmds) 

".\AxCtp.h" : $ (SOURCE) "$(INTDIR)" "$ (OUTDIR) " 
$ (BuildCmds) 

".\AxCtp_i.c" : $ (SOURCE) "$(INTDIR)" "$ (OUTDIR)" 
$ (BuildCmds) 

# End Custom Build 

lENDIF 

# End Source File 

# Begin Source File 

SOURCE= . \AxCtp . rc 

# End Source File 

# Begin Source File 

SOURCE= . \CtlPanel . cpp 

# End Source File 

# Begin Source File 
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SOURCE^ ACtp.cpp 

# End Source File 

# Begin Source File 

SOURCE= . \dblside • cpp 

# End Source File 

# Begin Source File 

SOURCE=^ A Font * cpp 

# End Source File 

# Begin Source File 

SOURCE- . \StdAf X . cpp 

# ADD CPP /Yc"stdafx.h" 

# End Source File 

# Begin Source File 

SOURCE- • \WaitDlg . cpp 

# End Source File 

# End Group 

# Begin Group "Header Files" 

# PROP Default_Filter "h;hpp;hxx;hm; inl" 

# Begin Source File 

SOURCE- AAGDC^h 

# End Source File 

# Begin Source File 

SOURCE- AAGDib.h 

# End Source File 

# Begin Source File 

SOURCE- AAGDoc^h 

# End Source File 

# Begin Source File 

SOURCE- . \AGLayer . h 

# End Source File 

# Begin Source File 

SOURCE- . \AGMat rix . h 

# End Source File 

# Begin Source File 



SOURCE- AAGPage,h 
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# End Source File 

# Begin Source File 

SOURCE- A AGS ym.h 

# End Source File 

# Begin Source File 

SOURCE- AAGText-h 

# End Source File 

# Begin Source File 

SOURCE- ABsc2.h 

# End Source File 

# Begin Source File 

SOURCE-. \CtlPanel . h 

# End Source File 

# Begin Source File 

SOURCE-. \Ctp*h 

# End Source File 

# Begin Source File 

SOURCE^ Adb 1 s ide . h 

# End Source File 

# Begin Source File 

SOURCE^ A Font. h 

# End Source File 

# Begin Source File 

SOURCE- . \propsht . h 

# End Source File 

# Begin Source File 

SOURCE- . \Resource . h 

# End Source File 

# Begin Source File 

SOURCE- AS tdAfx.h 

# End Source File 

# Begin Source File 

SOURCE- . \version . h 

# End Source File 

# Begin Source File 
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SOURCE-^ AWaitDlg.h 

# End Source File 

# End Group 

# Begin Group '^Resource Files" 

# PROP Default_Filter "ico;cur;bmp;dlg;rc2;rct;bin;cnt;rtf ;gif ; jpg 

; jpeg; jpe" 

# Begin Source File 

SOURCE- ARes\ lup • bmp 

# End Source File 

# Begin Source File 

SOURCE- A Re s \ 1 up 2 down . bmp 

# End Source File 

# Begin Source File 

SOURCE^ . \Res \2down . bmp 

# End Source File 

# Begin Source File 

SOURCE- A Re s \ 2 up . bmp 

# End Source File 

# Begin Source File 

SOURCE^ ARes\ 3up , bmp 

# End Source File 

# Begin Source File 

SOURCE- . \Res\AGLogo . agi 

# End Source File 

# Begin Source File 

SOURCE^" . \Res\C&PLogo . agi" 

# End Source File 

# Begin Source File 

SOURCE- AResXCacfc .ttz 

# End Source File 

# Begin Source File 

SOURCE- ACtp.rgs 

# End Source File 

# Begin Source File 
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S0URCE=.\Res\Version.rc2 

# End Source File 

# End Group 

# End Target 

# End Project 
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; AxCtp.def : Declares the module parameters, 

LIBRARY "AxCtp.DLL" 

EXPORTS 

DllCanUnloadl^ow @1 PRIVATE 
DllGetClassObject @2 PRIVATE 
DllRegisterServer §3 PRIVATE 
DllUnregisterServer @4 PRIVATE 
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^include "stdafx.h" 
^include " resource, h" 
^include "initguid .h" 
#include "AxCtp.h" 

#inclizde "AxCtp_i.c" 
^include "Ctp.h" 

#include "scappint 

CCoinModule ^Module; 

BEGIN_OB JECT^MP (Ob j ectMap ) 

OBJECT^EOTHY (CLSID_Ctp , CCtp ) 
EMD_^OBJECT„MAP() 

yy DLL Entry Point 
©K'tern "C" 

BOOL WIHAPI DllHain(HIlsfSTMrC£ hinstance, DWORD dwReason. LPVOID ^*lpReserved*/) 
{ 

if (dwReason DLL^PROCESS^ATTACH) 
{ 

^Module .Init (Ob j ectMap, hinstance) j 
DisableXhreadLibraryCalls (hinstance) ; 
SCEtJG„Init(); 

U } 

fq else if (d??Reason DLL^PROCESS^DETACH) 

h i 

'T. „Module.Term(); 
U CAGDC: :Free(); 

id SCEHG^FiniO; 

M } 

return TRUE; // ok 

I'^ Used to determine whether the DLL can be unloaded by OLE 
SIDAPI DllCanUnloadHow(void) 

L 

return (Jlodule .GetLockCount () «-Q) ? S_OK : S_FALSE; 

N 

// Returns a class factory to create an object of the requested type 

STDAPI DllGetClassOfoject(REFCLSID rclsid, REFIID riid, LPVOID* ppv) 
{ 

return _Moduie.OetClassObject(rcisid, riid, ppv); 

} 

DllRegisterServer - Adds entries to the system registry 

STDAPI DllRegisterServer(void) 
{ 

// registers object, typelib and all interfaces in typelib 
return „Modu le. Reg isterServer (TRUE) ; 

} 

yy DllUnregisterServer - Removes entries from the system registry 

STDAPI DllUnregisterServer(void) 
{ 

^Module .UnregisterServerO ; 
return S_OK; 

} 
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# Microsoft Developer Studio Project File - Name="AxCtp" - Package 
Owner=<4> 

# Microsoft Developer Studio Generated Build File, Format Version 
5.00 

# ** DO NOT EDIT ** 

# TARGTYPE "Win32 (x86) Dynamic-Link Library" 0x0102 
CFG=AxCtp - Win32 Debug 

IMESSAGE This is not a valid makefile. To build this project using 
NMAKE, 

IMESSAGE use the Export Makefile command and run 
IMESSAGE 

IMESSAGE NMAKE /f "AxCtp.mak". 
IMESSAGE 

IMESSAGE You can specify a configuration when running NMAKE 
[MESSAGE by defining the macro CFG on the command line. For exampl 
e : 

IMESSAGE 

.'MESSAGE NMAKE /f "AxCtp.mak" CFG="AxCtp - Win32 Debug" 
IMESSAGE 

IMESSAGE Possible choices for configuration are: 

IMESSAGE . ^ , , 

'MESSAGE "AxCtp - Win32 Debug" (based on "Win32 (x86) Dynamic-Lmk 

Library") 

IMESSAGE "AxCtp - Win32 Release" (based on "Win32 (x86) Dynamic-Li 

nk Library") 

IMESSAGE 



# Begin Project 

# PROP Scc_ProjName ""$/AxCtp", NDAAAAAA" 

# PROP Scc_LocalPath "." 
CPP=cl . exe 

MTL=midl . exe 
RSC=rc. exe 

!IF "$(CFG)" == "AxCtp - Win32 Debug" 

# PROP BASE Use_MFC 0 

# PROP BASE Use_Debug_Libraries 1 

# PROP BASE Output_Dir "Debug" 

# PROP BASE Intermediate_Dir "Debug" 

# PROP BASE Target_Dir "" 

# PROP Use_MFC 0 

# PROP Use_Debug_Libraries 1 

# PROP Output_Dir "Debug" 
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# PROP Intermediate_Dir "Debug" 

# PROP Ignore_Export_Lib 0 

# PROP Target Dir "" 

# ADD BASE CPP /nologo /MTd /W3 /Gm /Zi /Od /D "WIN32" /D "_DEBUG" 
/D " WINDOWS" /D "_USRDLL" /Yu"stdafx.h" /FD /c 

# ADD"cpp /nologo /Zp2 /MTd /W3 /Gm /GX /Zi /Od /I "..\ZLib" /I ". 
AStonehnd" /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_USRDLL" /D " 

ATL STATIC REGISTRY" /Yu"stdaf x . h" /FD /c 

# ADD BASE MTL /nologo /D "_DEBUG" /mktyplib203 /o NUL /win32 

# ADD MTL /nologo /D "_DEBUG" /mktyplib203 /o NUL /win32 

# ADD BASE RSC /I 0x4 C 9 /d "_DEBUG" 

# ADD RSC II 0x409 /d "_DEBUG" 
BSC32=bscmake.exe 

# ADD BASE BSCS 2 /nologo 

# ADD BSC32 /nologo 

LINK32=link.exe . , , 

# ADD BASE LINK32 kernel32.1ib user32.1ib gdi32.1ib wmspool.lib c 
omdlg32.1ib advapi32.1ib shell32.1ib ole32.1ib oleaut32.1ib uuid.l 
ib odbc32.1ib odbccp32.1ib /nologo /subsystem: windows /dll /debug 
/machine:I386 /pdbtype: sept 

# ADD LINK32 kernel32.1ib user32.1ib gdi32.1ib winspool.lib comdlg 
32. lib advapi32.1ib shell32.1ib ole32.1ib oleaut32.1ib uuid.lib od 
bc32.1ib odbccp32.1ib comctl32.1ib /nologo /subsystem: windows /dll 

/debug /machine: 1386 /pdbtype : sept 

# Begin Custom Build - Registering ActiveX Control... 
Out Di r=. \ Debug 

TargetPath= . \Debug\AxCtp . dll 
Input Path= . \Debug\AxCtp . dll 
SOURCE=$ (Input Path) 

"$(OutDir>\regsvr32,trg" : $ (SOURCE) "$(INTDIR)" "$(OUTDIR)" 
regsvr32 /s /c "$ (TargetPath) " 

echo regsvr32 exec, time > "$ (OutDir) \regsvr32 . trg" 



# End Custom Build 

lELSEIF "${CFG)" == "AxCtp - Win32 Release" 



# PROP BASE Use_MFC 0 

# PROP BASE Use_Debug_Libraries 0 

# PROP BASE Output_Dir "AxCtp " 

# PROP BASE Intermediate_Dir "AxCtp 

# PROP BASE Targe t_Dir "" 

# PROP Use_MFC 0 

# PROP Use_Debug_Libraries 0 

# PROP Output_Dir "Release" 
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# PROP Intermediate_Dir "Release" 

# PROP Ignore_Export_Lib 0 

# PROP Target_Dir "" 

# ADD BASE CPP /nologo /MT /W3 /Ol /D "WIN32" /D "NDEBUG" /D "_WIN 
DOWS" /D "_USRDLL" /D "_ATL_STATIC_REGISTRY" /D "_ATL_MIN_CRT" /Yu 
"stdafx.h" /FD /c 

# ADD CPP /nologo /Zp2 /MT /W3 /GX /Ol /I "..\ZLib" /I "..\Stonehn 
d" /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_USRDLL" /D "_ATL_STAT 
IC_REGISTRY" /Yu"stdafx.h" /FD /c 

# ADD BASE MTL /nologo /D "NDEBUG" /mktyplib203 /o NUL /win32 

# ADD MTL /nologo /D "NDEBUG" /mktYplib203 /o NUL /win32 

# ADD BASE RSC /I 0x409 /d "NDEBUG" 

# ADD RSC /I 0x409 /d "NDEBUG" 
BSC32=bscmake . exe 

# ADD BASE BSC32 /nologo 

# ADD BSC32 /nologo 
LINK32=link.exe 

# ADD BASE LINK32 kernel32.1ib user32.1ib gdi32.1ib winspool.lib c 
oradlg32.1ib advapi32.1ib shell32.1ib ole32.1ib oleaut32.1ib uuid.l 
ib odbc32.1ib odbccp32.1ib /nologo /subsystem: windows /dll /machin 
e:l386 

# ADD LINK32 kernel32.1ib user32.1ib gdi32.1ib winspool.lib comdlg 
32. lib advapi32.1ib shell32.1ib ole32.1ib oleaut32.1ib uuid.lib od 
bc32,lib odbccp32.1ib comctl32.1ib /nologo /subsystem: windows /dll 

/machine: 1386 

# Begin Custom Build - Registering ActiveX Control... 
OutDir=. \Release 

TargetPath=. \Release\AxCtp.dll 
InputPath=. \Release\AxCtp.dll 
SOURCE=$ (Input Path) 

"$ (OutDir) \regsvr32.trg" : $ (SOURCE) "$(INTDIR)" "$(OUTDIR)" 
regsvr32 /s /c "$ (TargetPath) " 

echo regsvr32 exec, time > "$ (OutDir ) \regsvr32 . trg" 

# End Custom Build 
lENDIF 

# Begin Target 

# Name "AxCtp - Win32 Debug" 

# Name "AxCtp - Win32 Release" 

# Begin Group "Source Files" 

# PROP Default Filter "cpp;c;cxx;rc;def;r;odl/idl/hpj/bat" 
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# Begin Source File 

SOURCE=AAGDC.cpp 

# End Source File 

# Begin Source File 

SOURCE= * \AGDoc . cpp 

# End Source File 

# Begin Source File 

SOURCE= . \AGLayer . cpp 

# End Source File 

# Begin Source File 

SOURCE- . \AGMat rix . cpp 

# End Source File 

# Begin Source File 

SOURCE- . \ AGPage . cpp 

# End Source File 

# Begin Source File 

SOURCE= . \AGSym . cpp 

# End Source File 

# Begin Source File 

SOURCE= . \AGText . cpp 

# End Source File 

# Begin Source File 

SOURCE- . \AxCtp . cpp 

# End Source File 

# Begin Source File 

SOURCE- , \AxCtp . def 

# End Source File 

# Begin Source File 

SOURCE- . \AxCtp . idl 

!IF "$(CFG)" — "AxCtp " Win32 Debug" 

# Begin Custom Build - Performing MIDL step 
Input Path- • \AxCtp . idl 



BuildCmds= \ 
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midl /Oicf /h "AxCtp.h" /iid "AxCtp_i.c" "AxCtp.idl" 

"AAxCtp.tlb" : $ (SOURCE) "$(INTDIR)" "$ (OUTDIR) " 
$ (BuildCmds) 

"AAxCtp.h" ; $ (SOURCE) "$(INTDIR)" "$ (OUTDIR) " 
$ (BuildCmds) 

".\AxCtp_i.c" : $ (SOURCE) "$(INTDIR)" "$ (OUTDIR) " 
$ (BuildCmds) 

# End Custom Build 

lELSEIF "$(CFG)" == "AxCtp - Win32 Release" 

# Begin Custom Build - Performing MIDL step 
Input Path= . \AxCtp . idl 

BuildCmds= \ 

midl /Oicf /h "AxCtp.h" /iid "AxCtp_i.c" "AxCtp.idl" 

".\AxCtp.tlb" : $ (SOURCE) "$(INTDIR)" "$ (OUTDIR) " 
$ (BuildCmds) 

".\AxCtp.h" : $ (SOURCE) "$(INTDIR)" "$ (OUTDIR) " 
$ (BuildCmds) 

".\AxCtp_i.c" : $ (SOURCE) "$(INTDIR)" "$ (OUTDIR)" 
$ (BuildCmds) 

# End Custom Build 

lENDIF 

# End Source File 

# Begin Source File 

SOURCE=.\AxCtp.rc 

# End Source File 

# Begin Source File 

SOURCE= . \ Ct 1 Pane 1 . cpp 

# End Source File 

# Begin Source File 

SOURCE=.\Ctp.cpp 

# End Source File 

# Begin Source File 
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SOURCE- . \dblside . cpp 

# End Source File 

# Begin Source File 

SOURCE=.\ Font. cpp 

# End Source File 

# Begin Source File 

SOURCE= . \ S t dAf X • cpp 

# ADD CPP /Yc"stdafx.h" 

# End Source File 

# Begin Source File 

SOURCE==- \WaitDlg,cpp 

# End Source File 

# End Group 

# Begin Group "Header Files" 

# PROP Default_Filter "h;hpp;hxx;hm;inl" 

# Begin Source File 

SOURCE- . \AGDC . h 

# End Source File 

# Begin Source File 

SOURCE^. \AGDib,h 

# End Source File 

# Begin Source File 

SOURCE= • \AGDoc • h 

# End Source File 

# Begin Source File 

SOURCE- . \ AGLayer . h 

# End Source File 

# Begin Source File 

SOURCE- . \AGMatrix . h 

# End Source File 

# Begin Source File 

SOURCE- . \AGPage . h 

# End Source File 

# Begin Source File 
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SOURCE=AAGSym.h 

# End Source File 

# Begin Source File 

SOURCE- . \AGText . h 

# End Source File 

# Begin Source File 

S0URCE=ABsc2.h 

# End Source File 

# Begin Source File 

SOURCE- . \CtlPanel . h 

# End Source File 

# Begin Source File 

SOURCE- ACtp.h 

# End Source File 

# Begin Source File 

SOURCE- . \dblside . h 

# End Source File 

# Begin Source File 

SOURCE-. \Font.h 

# End Source File 

# Begin Source File 

SOURCE- Apropsht • h 

# End Source File 

# Begin Source File 

SOURCE- • \Resource . h 

# End Source File 

# Begin Source File 

SOURCE- AS tdAfx • h 

# End Source File 

# Begin Source File 

SOURCE- . \version * h 

# End Source File 

# Begin Source File 

SOURCE- AWaitDlg , h 

# End Source File 
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# End Group 

# Begin Group "Resource Files" 

# PROP Default_Filter "ico;cur;bmp;dlg;rc2;rct;bin;cnt;rtf ;gif ; jpg 
; jpeg; jpe" 

# Begin Source File 

SOURCE- . \ Re s \ 1 up . bmp 

# End Source File 

# Begin Source File 

S OURCE= A Re s \ 1 up 2 down . bmp 

# End Source File 

# Begin Source File 

SOURCE^ ARes\2down.bmp 

# End Source File 

# Begin Source File 

S OURCE= A Re s \ 2 up . bmp 

# End Source File 

# Begin Source File 

SOURCE= A Re s \ Sup . bmp 

# End Source File 

# Begin Source File 

SOURCE- . \Res\AGLogo • agi 

# End Source File 

# Begin Source File 

SOURCE-" . \Res\C6cPLogo . agi" 

# End Source File 

# Begin Source File 

SOURCE- ARes\Cacfc .ttz 

# End Source File 

# Begin Source File 

SOURCE- ACtp.rgs 

# End Source File 

# Begin Source File 

SOURCE- . \Res Wersion . rc2 

# End Source File 

# End Group 



a 
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# End Project 
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#ifndef _AGTE}0:„H„ 
#define _AGTEXT_H„ 

#include "AGDC.h" 

#includs "AGDoc.h" 

#include *'sctypes .h*' 

^include "scapptyp.h" 

#include "scpufoobj .h" 

^include "scse lect.h" 



CAGSpec class 

// 

class CAGSpec : public stSpec 
{ 

public: 

CAGSpec ( ) ; 

CAGSpec (const LOGFOISIT &Font. COLORREF Color, 

eXSJust HorzJust = ©RagRi^ht, int nKbav^^^ToL^^diin^ « 0, 
mt nBelowParaLeading ^ 0, int nLmeLeading = 0); 

CAGSpec (const CAGSpec ScSpec); 



void operator = (const CAGSpec ScSpec) ; 

int operator -= (const CAGSpec StSpec) const; 

int operator 1= (const CAGSpec SsSpec) const 

void Read(CAGDocIO *plnput); 

void Write (CAGDocIO *pOutput) const; 



{ return (i opera tor=« (Spec) ) ; } 



^siblic: 
rn UFont 

COLORREF 
^ ^ elB Just 
%'i int 
int 
int 



IS. 



ffl_Font ; 
m„Color; 
in^Horz Just ; 
Hi„nAboveParaLeading ; 
m_nBelowParaLeading ; 
HL-^LineLeading ; 



"/V CAGTeKt class 

|dlass CAGTes:t 

public: 
KJ CAGTeKt (); 
13 "CAGTeKt (); 

void BiinkCursorO i 

void Create {const RECT &DestRect); 

void DrawColumn(CAGDC Sdc); 

void 0rawSelection(CAGDC &dc); 

void Edit(CAGDC »pdc, int int y, 

void End£dit(); 

scColumn *GetColuiim() 

CAGDC «GetDC() const 

const RECT ScGetDestRect () const 

CAGBocIO *GetDocIO() const 

void GetFonts(LOGFO]srrARRAy &lf Array) j 

scSelection *GetSelection() const { return (m„pSelection) ; } 

void GetSelParaTSList (scTypeSpecList &tsList) const; 

void GetSelTSList (scTypeSpecList SctsList) const; 



bool foClick = false); 



} 



{ return (m_^Column): 

{ return (m_pdc); } 

{ return (m_DestRect ) ; } 

{ return (m„pDocIO); } 



const ScTypeSpecList &GetTSList() const 
eVertJust GetVertJust() const; 
scTypeSpecList *GetWriteTSList () const 
bool IsEditingO const 
bool IsEmptyO const; 
bool IsLButtonDoTO ( ) const 
void OnChar(Uim' nChar) ; 
void OnKeyDown (UIOT nChar) ; 
void OnKeyUp(UIHr nChar) ; 
void OnLButtonDblClk(POIiin Point); 
void OnLButtonDown (POINT Point, bool bShift); 



{ return (m^TSList); } 



{ return (m_pWriteTSList) ; } 
{ return {m_pSelection \ - l^fULL); } 

{ return (in^bLButtonDown) ; } 
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void OnLButtonUp(POIlsIT Point); 
void OnMo^iseMove (POIOT Point); 
void ReadColumn{CAGDocIO *plnput); 

void SetDC(CAGDC *pdc) { m_pdc - pdc; } 

void SetColor(COLORREF Color); 
void SetFont (const LOGFOiNn SFont); 
void SetHorz Just (eXSJust HorzJust); 
void SetWext Spec (const CAGSpec S=Spec); 
void SetPtSize (int nPtSize); 

void SetTest (const char *pTeKt^ int nChars, int nSpecs^ 

const CAGSpec *pAGSpecs, const int »pSpecOFfsets) 

void SetTypef ace (const LOGFOOT &Font); 
void SetUnderl ine (boo 1 bUnderl ine); 
void SetVert Just (eVert Just VertJust); 

void ShowSeletction (bool bShow) ; 
void WriteColumn(CAGDocIO «pOutput); 

prxstected : 

void ComputeRedisplay(scRedispList ScColRedisp) ; 
void EstendSalection (eSelesctMove movement); 
void MoveSelection(eSelectMove movement); 
void UpdateSelectionC) ; 



protected : 

^™ CAGBC 

vJ scColumn 

|n scSelection 

a;: bool 

^ ^ bool 

%'J bool 

|J bool 

C,l bool 

CAGSpec 

I J scSelection 

a CAGBocIO 

f scTypeSpecL i st 

J"": scTypeSpecList 

'''4 scMuPoint 



*m_„pdc ; 
m^DestRect ; 
*m„pColumn; 
»ia„pSe lection; 
m_bSelecticn; 
m_bOverstrike; 
m_bSh i ft Key Down ; 
m_bControlKeyDown ; 
m_bLButtonDown ; 
«m_jiHext Spec; 
m_SelNeKtSpec ; 
*m„pDocIO; 
m^TSList; 
*m„pWriteTSList ; 
m_LdstPt ; 



^iendif //_^GTEXXJL 
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#include "stdafs.h" 
#include "AGText.h" 

#include "scappint.h" 

^include "sccsllbk.h" 

^include "scstyle.h" 

#include "scselect .h" 

#include "scapptes .h" 

#include "sccolumn.h" 

#include "scparagr.h" 

#ifdef _AFX 
#ifdef DEBUG 
#undef IHIS.FILE 

static char IHIS„FILE []-_FILE_; 

#define new D£BUG_N£W 

#endif 

#endif 

static long ReadFunc (APPCtxPtr pTeKt, void *ptr, long size); 
static long WriteFunc (APPCtsPtr pTest, void *ptr, long size); 



// 

// 

CAGSpec: :CAGSpec() 

i--? memset (£jti_Font, 0, sizeof {m„Font) ) ; 

0 m_Color 0; 

ff\ ^„HorzJust « ©RagRight; 
!;3 m_nAboveParaLeading = 0; 

in_nBelowParaLeading ~ 0; 
i3 nijLineLeading * 0; 

fjj/ // 

// 

i^GSpec: rCAGSpec (const LOGFOKIT &Font, COLORREF Color, eTSJust HorsJust, 

int nAboveParaLeading, int nBelowParaLeading^ int nLineLeading) 

1 J aaJFont ^ Font; 
{7 ituColor Color; 

VI iTLjicrzJust HorzJust; 
O Hi„nAboveParaLeading « nAboveParaLeading; 
f j Hi^nBelowParaLeading « nBelowParaLeading; 
mjLineLeading = nLineLeading; 



// // 

// // 

CAGSpec: :CAGSpsc( const CAGSpec ScSpec) 
{ 

in_Font ~ Spec.m„Font; 
HE„Color ~ Spec. m_Color; 
m_HorzJust « Spec .m_Horz Just ; 

m_nAboveParaLeading = Spec .m„nAboveParaLeading; 
m^nBelowParaLeading * Spec. m„nBelowParaLeading; 
m_nLineLeading - Spec .irunLineLeading ; 

} 



// // 

// // 

void CAGSpec: .'operator =( const CAGSpec ScSpec) 
{ 

m„Font Spec.iii_Font; 
m_Color * Spec.m^Color; 
mJFiorzJust « Spec .m_Horz Just ; 

m„nAboveParaLeading - Spec.m„nAboveParaLeading; 
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m.nBelowParaLeading - Spec. m„nBelowParaLea ding; 
m^nLmeLeadine - Spec.m„nLineLeading; 



// 



int CAGSpec: :operator==« (const CAGSpec SSpec) const 

return (m_Font Spec.m_Fant 

m_Coior Spec .m^Color ScSt 
m^HorzJust Spec. m_Hor2 Just ScSc 
mjAboveParaLeading Spec .m_nAboveParaLeading ScS: 
mInBelowParaLeading Spec.m_nBelowParaLeading 
m^nLineLeading — Spec .ffl_nLineLeading) ; 

} 



// 

yy — 

void CAGSpec: ; Read (CAGDoc 10 *plnput) 

^ prnput->Read (^_Font , siseof (ai^Font ) ) ; 
pInput->ReadC£aa„Color, sizeof (m^Color) ) ; 
pInput->Read(£tm_HorzJust, siseof (m_Horz Just) ) ; 

pInput->Read(Scm„nAboveParaLeading, sizeof (m_nAboveParaLeading) ) \ 
pInput->Read(&m_nBelowParaLeading, siseof (irunBelawParaLeading) ) ; 
pInput->Read(&mInLineLeading, siseof (mjLineLeading) ) ; 

h 



^y 

|>> 

iMtid CAGSpec: :Write(CAGDocIO *pOutput) const 

pOutput->Write(£cm_Font, sizeof (m_Font ) ) ; 

pOutput->Write(£3Ji_Color^ sizeof (m_Color) ) ; 
"J pOutput->Write (&m_HorzJust , sizeof (m^Horz Just ) ) ; 
fl pOutput->Write (&m_nAboveParaLeading, sizeof (mjAboveParaLeading ) ) ; 

pOutput->Write(£jn„nBelowParaLeading^ sizeof (m„nBelowParaLeading) ) ; 

pOutput->Write(Siii_nLineLeading, sizeof (m^nLineLeading) ) ; 



yy-^^ 



piGText: :CAGTeKt() 

""'^^ ; :SetRect(&in.DestRect, 0, 0, 0, 0); 
m_pColumn = NULL; 
m„pSelection - MILL; 
m„pdc ^ IsiULL; 
m_bSelection ^ false; 
zn_bShiftKeyDown false; 
m_bControlKeyDown ~ false; 
m_bLButtonDown = false; 
m^foOverstrike ^ false; 
m^pNeKtSpec = HULL; 
m_pWriteTSList - HULL; 

} 



// 



CAGText: :'"CAGText() 

^ SCCOL_Delete(m„pColumn, 0); 



} 



if (m„pNeKtSpec) 

delete m„pHextSpec; 
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// : // 

// // 

void CAGText: :BlinkCursor{) 
{ 

if (ra„pSelection m_pSelection->IsSliverCursor{ ) ) 
{ 

if (1 m_bt*ButtonDown ) 

ShowSelsction ( I m^faSe lection) ; 

} 

} 

// // 

// // 

void CAGTest : :ComputeRedisplay (scRedispList StColRedisp) 
{ 

scCol Redisplay colRect; 

for (int limit « 0; limit < colRedisp.GetNumItems(); Iimit-i-+ ) 
{ 

col Red i sp . Gat Da t aAt ( 1 imi t , (El ement P t r ) S:Co 1 R©c t ) ; 

i f (colRect . fHasDamage ) 
{ 

scXRect dRect (colRect . fDainageRect ) ; 

RECT r { m„DestRect .left + dRect.Kl, mJestRect . top + dRect.yl, 

in__DestRect .left + dRect.K2, mJestRect .top + dRect.y2 }: 

H POIOT Pts[4]; 

\^ Pts[0].K = Pts[l].x - r.left; 

£fl Pts[2].K = Pts[3].K = r. right; 

h\ Pts[0].y « Pts[3].y * r.top; 

Pts[l].y » Pts[2].y ^ r. bottom: 
U ii\^dc->LPtoDP(Pts, 4); 

l^i r,left « r.top - LONGJ^AX; 

„?' r. right = r. bottom - LOKG^Mm; 

y for (int i = 0; i < 4; i++) 

{ 

if (PtsfiJ.K < r.left) 
:1 r.left - Pts[i] .x; 

'■'^ if (Pts[i].K > r. right) 

IJ r, right « Pts[i]»x; 

n if (Pts[i].y < r.top) 

'1- r.top = Pts[i] ,y; 

if (Pts[i].y > r. bottom) 
C3 r. bottom « Pts[i].y; 

} 



:lnvalidateRect(m„pdc->GetWnd(), Ssr, false) j 



if (oolRect .fHasRepaint) 
{ 

scXRect rRect (colRect . f RepaintRect ) ; 

RECT r ^ { mJestRect .left + rRect.sl, m_DestRect . top + rRect.yl, 

mJestRect .left rRect.K2, m_DestRect . top + rRect.y2 }; 

POIlsrr Pts[4]; 

Pts[0].K - Pts[l].K = r.left; 
Pts[2],K = Pts[3].K ^ r. right; 
Pts[0].y « Pts[3].y = r.top; 
PtsflJ.y = Pts[2].y ^ r. bottom; 
m.pdc->LPtoDP(Pts, 4); 

r.left « r.top - LOmj^AX; 
r. right = r. bottom - LONG„MIN; 
for (int i « 0; i < 4; i++) 
{ 

if (Pts[i] .s < r.left) 
r.left « Pts[i] .s; 
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if (Pts[i] .X > r. right) 

r. right ^ Pts[i] .k; 
if {Pts[i] ,y < r.top) 

r,top Pts[i] .y; 
if (Pts[i],y > r, bottom) 

r. bottom « Pts[i].y; 

} 

: ;InvalidateRect (m„pdc->6etWnd() , Scr, false); 

} 

if (colRect . flmmediateRedi splay) 
{ 

scXRect iRect (colRect . f ImmediateArea , f ImmediateRect ) ; 
SCCOL_UpdateLine(colRact . fColumnID, coIRect.f Immediate Are a, this) ; 

} 

} 

} 



// // 

// . // 

void CAGText: : Create (const RECT ^DestRect) 
{ 

jnJestRect = DestRect; 

SCCOL„Hew(this, la^pColumn, WIDTH (m_DestRect ) , HEIGHT(Ri„DestRect) ) ; 
SCFS_Rec:ompose (scpCo 2 mm , 0 ) ; 

|jl // 

// 

vSid CAGText: :DrawColumn(CAGDC Scdc) 

yj CAGDC *pSaveDC ^ iEi„pdc; 
m„pdc ^ Stdc; 

^■^ scXRect ClipRect(0. 0, WIDIHCmJestRect ) , HEIGHT (mJestRect) ) ; 
2? SCCOL„Update(in_pColui!m, ClipRect, this); 



5i 



m_pdc = pSaveDC; 



^ // 

'yf : // 

IS id CAGTsKt : :DrawSe lection (CAGDC &dc) 
{ 

if (m_pSe lection &£< m_bSei action) 
{ 

CAGDC *pSaveDC - m_pdc; 
ffl„pdc » Mc; 

SCSEL_Hilite(in_pSelection, APPDrawRect) ; 
MUpdc = pSaveDC; 



// y/ 

// 

void CAGTeKt: : Edit (CAGDC *pdc. int int y, bool bClick) 
{ 

m_pdc - pdc; 
ShowSelection (false) ; 

if (IsEmptyO) 
{ 

TypeSpec ts (m_jsNextSpec) ; 

SCCOL_InitialSelect (m_jiCoiumn, ts, iu_pSelection) ; 
«i-pNeKtSpec « KULL; 
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ShowSe lection (true) ; 

} 

else 
{ 

scMnFoint pt(x - m_Dest feet . left, y - in_DestRect . top ) ; 
SCCOL„StartSelect (iR„pColumn, pt, APPDrawRect, this, mjSelection) ; 
m„bSelection - true; 

} 

m„bShi f tKeyDown - false; 
mJControlKeyDown ^ false; 
m_foOverstrike = false; 
in_bLButtonDo?m - bClick; 
m„LastPt . Invalidate ( ) ; 



// // 

// // 

void CAGTest : :EndEdit 0 
{ 

ShowSe lection (false) ; 
m„pdc ^ HULL; 
m_pSelection = HULL; 
m_bShiftKeyDown * false; 
m„bControlReyDown = false; 
m^bLButtonDovm false; 
m_bOverstrike « false; 



s'^ if (Ht^pNeKtSpec ) 

{ 

!f m„pNes:tSpec - MJLL; 

delete nupHeKtSpec; 



} 



: // 

^2 // 

v6id CAGText : :EKtendSelec:tion(eSelectMove movement) 

4 

[j- ShowSeiection (false) ; 

^ 1 SCSEL„Extend (m_pSe lect ion > movement ) ; 

UpdateSelection ( ) ; 
-UJ ShowSelection(true) ; 

^ // 

// 

void CAGTest: ;GetFonts(LOGFOOTARRAY Self Array) 
{ 

scTypeSpecList TSList; 
SCCOLjrSList (m„pColumn , TSList ) ; 

int nNumI terns = TSList .NumI terns () ; 

for (int i = 0; 1 < nNuml terns; i++) 
{ 

LOGFOHT If = ((CAGSpec *)TSList [i ] .ptr ( } j ->m_Font ; 

int nFonts ^ 1 f Array .size() ; 

for (int j = 0; j < nFonts; j++) 
{ 

if (lstrcmp(lf .IfFaceKame, IfArrayf j ] .IfFaceName) 0 
If, If Weight 1 f Array [j ] .IfWeight ScS, 
(lf,lfltalic !- 0) [ifArray[j] .If Italic !- 0)) 

{ 

break; 

} 

} 

if (j >- nFonts) 

1 f Array . push_back (If); 
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} 

} 

// // 

// // 

void CAGTeKt: ;GetSelParaTSList (scTypeSpecList StsList) const 
{ 

SCSEL„PARATSList (m^pSelesction, tsList) ; 

} 

// // 

// // 

void CAGTeKt: :GetSelTSList(scTypeSpecList SctsList) const 
{ 

i f (ni„pMeKtSpec ) 
{ 

TypsSpec ts (new CAGSpec {*m_pHeKtSpec ) ) ; 
tsList. Insert (ts) ; 

} 

else if (m^pSe lection) 

SCSELJTSList (mjSelection, tsList) ; 

} 

// // 

// // 

^MertJust CAGTeKt : :GetVertJu3t ( ) const 

yff' if (m _pColumn) 

Crt return {m„pColumn">GetVert Just () ) ; 

fy else 

'™ return (eVertTop); 

K 

// 

^ // 

t>ool CAGTesit : : IsEmpty ( ) const 

13 

s\ long IChCount ^ 0; 
i y i f (m„pCo 1 urun ) 

H { 

scStream *pStream = NULL; 
SCCOL_GetStream(m_pColuitin^ pStream); 

if (pStream) 

SCCTR^ChCount (pStream, IChCount ) ; 

} 

return (IChCount 0); 

} 

// ^ : // 

// // 

void CACTeKt : :MoveSelection(eSelectMove movement) 
{ 

ShowSelect ion (false) ; 
SCSEL„Move(m„pSelection, movsmant); 
UpdateSelection ( ) ; 
ShowSelection (true) ; 

> 

// 

// // 

void CAGText: :OnChar(UINr nChar) 
{ 

if (m„pSelection ! m3LButtonDown ) 
{ 
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scRedispList colRedisp; 
scKeyRecord keyRec ; 

keyRec,type() =^ m_bOverstrike ? scKeyRecord : rovers tr ike ; scReyRecord :: insert; 
keyRecr.keycodeO = CMappToCT{nChar} ; 
i f (m„plsfestSpec ) 
{ 

TypeSpec Spec(ffl_pHeKtSpec) ; 
keyRec . spec () « Spec; 
ttUpKextSpec = HULL; 

} 

else 
{ 

TypeSpec IsFullSpec; 
kayRec . spec ( ) = tJullSpec; 

} 

if (keyRec . keycode ( ) scParaSplit) 

keyRec . keycode ( ) « scHardReturn ; 
else if (keyRec.keycode{) scHardReturn) 

keyRec . keycode ( ) ^ scParaSplit; 

ShowSelection( false) ; 

SCSEL_InsertKeyRecordsCm„pSelection, 1, SfkeyRec, StColRedisp) ; 
Compu teRed i splay {col Red isp) ; 
ShowSelection (true ) ; 



// 

P // 

frgid CAGText: ;OnKeyDownCUIHT nChar) 

if (ffijSe lection ! m_bLButtonDora ) 

W { 

switch (nChar) 

A i 

case VRJOOTROL: 
s 2n„bControlKeyDown * true; 

fi break; 

^"j case ViSLSHIFT: 

iy m_bSlizftKeyDown » true; 

1;^ break; 

li case VK^It^^ERT: 

O m„bOverstrike = !m_bOverstrike; 

break ; 

case VK„DELETE: 
{ 

scRedispList colRedxsp; 
scReyRecord k eyRec ; 

keyRec . keycode () = (UCS2)scForwardDeiete; 
ShowSe 1 ec t 1 on ( f a 1 se ) ; 

SCSEL„InsertReyRecords(mjSelection, 1, SkeyRec, SsColRedisp) ; 
CoKipu t eRed i splay (col Red isp) ; 
ShowSe lection (true) ; 
break ; 

} 

case VK^LEFT: 

if (m_bShiftKeyDown) 

ExtendSelection (m^bControlKeyDown ? ePrevWord : ePrevChar) ; 

else 

MoveSelection(m„bControlReyDown '? ePrevWord : ePrevChar); 
break ; 

case VR^RIGHI: 

if (m_bShiftReyDown) 

EstendSelection (m^bControlReyDoTO ? eHextWord : eHestChar) ; 
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else 

MoveSelection (m^bControlKeyDown 7 eHeKttord : eHeKtChar)^ 
break; 

case VK_UP: 

if (in„bShiftKeyDownj 

EKtendSelection(ePrevLine) ; 

els$ 

MoveSelection(ePravLine) ; 
break ; 

case VKJDOm: 

if (m„bShiftKeyDown) 

EKtendSelection (eHextLine ) ; 

else 

MoveSe lection (eHextLine) ; 
break ; 

case VK^HOME: 

if (iR„bShiftKeyDown) 

EKtendSelection(m„bControlKeyDciwn ? eBeginColumn : eStartLine) 

else 

MoveSel action (m^foControlKeyDown ? eBe^inColumn : eStartLine) ; 
break; 

case VK^EHD: 

if (m.bShiftKeyDown) 

E5£tendSelection(m__bControlKeyDown '? eEndColumn : eEndline); 

else 

MoveSelection(m_bControlReyDown eEndColumn : eEndLme); 
M break; 

fll case VK^PRIOR: 

\^ if (m_bShiftKeyDown) 

EKtendSelection (eBeginColumn) ; 

[y else 

-.J MoveSelection(eBeginCalumn) ; 

break; 

= case VK^HEJCT: 

ri if (HL-bShiftKeyDown) 

y\ EKtendSelection (eEndColumn) ; 

else 

MoveSe lect ion (eEndColumn) ; 
.i: break; 

^-^ 

;f default; 
;3 break; 
} 

if (m_pKfextSpec £cSc i (*Bi„pSe lection m_SelHestSpec) ) 
{ 

delete tn^pNestSpec ; 
lEUpKfestSpec = IsfULL; 

} 

} 

} 



// // 



yy. ^ : 

void CAGText: rOnKeyUpCUIOT nChar) 
{ 

switch (nChar) 
{ 

case VK_C01snR0L: 

m„bControiKeyDown ^ false; 
break; 



case VK_SHIFT: 

lEUbShiftKeyDoTO = false; 
break; 
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} 



default: 
break; 



// // 

// // 

void CAGTest: :OnLButtonDblClk(POIOT Point) 
{ 

if (rtupSelection) 
{ 

scHuPoint muPt (Point .K - m_DestRect . left , Point. y - m„Des t Rec t . top) ; 
ShowSelection( false) ; 

SCCOL„SelectSpecial (m_pColumn, muPt, eWordSelect, m_pSelection) ; 
ShomS&lBotiou (true) ; 

} 

} 



// // 

// . // 

void CJJiGTest; ;OnLButtonDown(POim' Points bool bShift) 
{ 

if (m_pSe lection) 
{ 

ShowSe lection (false) ; 

scMuPoint muPt (Point, K - m^DestRect . left^ Point .y - m„DestRect , top ) ; 
j^-^ SCCOL_StartSelect (m_pColumn, muPt, APPDrawRect^ this,- m„pSeiection) ; 

m„bSe lection ^ true; 
M in3I-ButtonDown = true; 

ffl Bi__LastPt .Invalidate () ; 



if (m^pNeKtSpec I (*m„pSe lection m„SelKIeKtSpec) ) 
{ 

delete m„pHeK:tSpec ; 
m^lilextSpec = NULL; 

} 



W } 

C3 

// 

y/ : : // 

ii'v^id CAGTeKt : :OnLButtonLrp(POIlsrr Point) 

% 

if (m_pSe lection) 

C3 { 

m_bLButtonDown false; 

if (in_pSe lection tm„pSelection'>l8SliverCursor() ) 

in_bSelection ^ TRUE; 

if (nt.plsFextSpec &£e ! («m_pSe lection m^SelNestSpec) ) 
{ 

delete mjKfeKtSpec ; 
m„pi:?estSpec = HULL; 

} 



// 

// ^ // 

void CAGText; :OnMouseMove(POIOT Point) 
{ 

if (m_pSelection iti^b^-SuttonDown ) 
{ 

scMuPoint muPt (Point -K - m„DestRect .left , Point. y - m_DestRect .top) ; 
if (inuPt.K < 0) 

inuPt.x = 0; 
i f (muPt , K > WIDTH (m_DestRect ) ) 

muPt.x « WIDTH (m^DestRect ) ; 
if (muPt.y < 0) 
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muPt.y ^0; 
if (muPt.y > HEIOT[(m„DestRect)) 
muPt.y - HEIGHr{m_DestRect) ; 

if (in„LastPt ! - muPt) 

^ SCCOL„EKtendSelect(m„pColumn, muPt, APPDrawRect, this, m„pSelection) ; 
m„LastPt « muPt; 

} 

} 

} 



void CAGTeKt : :ReadColuinn(CAQDoGlO *plnput) 
{ 

if (m_pColumn) 

SCCOL ^Delate (m^pCalumn , 0 ) ; 
if (isjNeKtSpec) 

delete m^plsfestSpec; 

ituTSList . ReiuoveAl 1 ( ) ; 



m_pColumn « NULL; 

mjSelection = HULL; 

m„pdc - MJLL; 

m_bShiftKeyDown - false; 
„^ m.bControlKeyDown = false; 
O ni„bLButtonDom = false; 
^,3 m„bOverstrike ^ false; 
fn m^p^extSpec = HULL; 

KupDocIO = pinput; 
1^3 pinput ->Read (Ssa„DestRect , sizeof (m^DestRect ) ) ; 

^1 int nNuml terns = 0; 

]^ pInput->Read(&nNiimI terns, siseof (nHumI terns) ) ; 

I J 

for (int i « 0; i < nNumlteius; i++) 

H CAGSpec *pAGSpec: - new CAGSpec(); 

'Sj pAGSpec->Read (pinput) ; 

r TypeSpec ts (pAGSpec ) ; 

m„TSList.Set(i, ts); 

scSet *enumTable; 
SCSET„InitRead(enumTable, 100); 

SCCOL Read(this, itL^Column, enumTable, this, ReadFunc); 
SCOBJIPtrRestore((scTBObj »)m_pColuian, enumXable); 
SCSET_FiniRead(enumTable, 0); 



m pDocIO = NULL; 

} 







void CAGText: :SetColor(COLORREF Color) 
{ 

if (m_pSe lection) 
{ 

if (m_pSelec;tion->IsSliverCursorC) ) 

^ if (m_pNeKtSpec NULL) 

^ TypeSpec ts - m_pSelection->fMark.fPara->SpecAtOf f set {m„pSe lection- >fMark .f Of f set) ; 
m_pNeKtSpec = new CAGSpec(* ( (CAGSpec *)ts.ptr())); 
m_SelNeKtSpec =^ *m„pSelection; 

rti„pNeKtSpec->ia_Color Color; 
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} 

else 

ShowSelection( false) ; 
scStream »f Stream; 

SCCOL_GetStream(m_pColumn, f Stream) ; 
scSpecLocList redocsl (f Stream ) ; 
SCS£L_CHrSList (m_pSelect ion , redocsl ) ; 

for (int i = Q; i < redocsl .Numltems( ) ; i++) 

^ if (redocsl [i] -spec () .ptrO) 

^ CAGSpec *pNewSpec - new CAGSpec (» ( (CAGSpec * ) redocsl [i } . spec ( ) . ptr ( ) ) ) ; 
pNewSpec->m_Color «= Color; 
redoes! [i]. spec 0 = pMewSpec; 

} 

} 

scRedispList colRedisp; 

SCSTR_CHTSListSet(f Stream, redocsl, ScColRedisp) ; 
ComputeRedisplay (colRedisp) ; 
ShowSelection (true) ; 

} 

} 

} 

^ 

fi // 



V3id CAGTeKt: :SetFont (const LOGFOOT ScFont) 

In 

s 

// 



vSiid CAGTeKt: :SetHorz Just (eTS Just HorzJust) 

s scStream *fStream; 

f SCCOL.Ge t S t ream (m_pCo 1 umn , f St ream ) ; 

''1 scSpecLocList csl (f Stream) ; 

ly SCSEL„PARArSList(3n,pSelection, csl); 

:'r for (int i = 0; i < csl .Numlteffls( ) ; i++) 

U { 

Cj if (csl[i3,spec(),ptr()) 

^ CAGSpec *pNewSpec = new CAGSpec (*( (CAGSpec *)csl [i ] -spec {) .ptr ())) ; 
pNewSpec->m„HorzJust - HorzJust; 
csl [i ] -spec 0 « pHewSpec; 

} 

} 

scRedispList colRedisp; 

SCSTR„PARATSListSet(fStream, csl, teolRedisp); 
ComputeRedisplay (colRedisp) ; 

} 





void CAGTeKt: :SetNeKtSpec (const CAGSpec ScSpec) 

{ 

if (m__pNeKtSpec) 

delete mjHestSpec; 

m pNestSpec - new CAGSpec (Spec ) ; 

} 
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void CAGTeKt: :SetPtSize(int nPtSize) 
{ 

if (m_pSelection) 

^ if (m_pSelection->IsSliverCursor()) 
^ if (m„pNextSpec MJLL) 

^ TypeSpec ts - m_pS©lection-> f Mark . fPara">SpecAtOff set (m_pSelection->f Mark . f Of f set) 
m^pNextSpec - new CAGSpec{* { (CAGSpec *) ts .ptr ( ) ) ) ; 
m„SelNeKtSpec « *m„pSe lection; 

i„pHextSpec->m^Font.lfHeight - -nPtSize * APP„REBOLUTION / 72; 

} 

else 

ShowSelection (false) ; 
scStream *f Stream; 

SCCOL.GetStreaiu (m„pColumn , f Stream) ; 
scSpecLocList redocsl (f Stream) ; 
SCSEL^CHTSList (m„pSe lection, redocsl ) ; 

for (int i = 0; i < redocsl -Numlt ems () ; i++) 

^ if (redocsl [i] .spec 0 .ptr 0) 

^ CAGSpec »p!:iewSpec » new CAGSpec (» ( (CAGSpec *)redocsl[i] .spec() .ptr())) ; 
pNewSpec->m„Font.lfHei0ht = -nPtSize * APP„RESOLUTION / 72; 
p redocsl [i] .spec () - pNewSpec; 

■ ?S } 

scRedispList colRedisp; 
fy SCSTR„CHrSListSet(f Stream, redocsl, teolRedisp); 

ij Compu teRedi splay (col Red i sp ) ; 

='7; ShowSelection (true) ; 







svoid CAGTeKt: :SetText (const char *pText, int nChars, int nSpecs, 

'^"^ const CAGSpec *pAGSpecs, const int *pSpecOf fsets) 

O bool bStartMewPara ^ true; 

"""^ stTestlmportExport &AppText - stTex t Import Export : :MakeText Import Export () ; 
CAGSpec *pAGSpec - HULL; 

for (int i - 0; i < nSpecs; i++) 
{ 

int nLen; 

if ((i + 1) < nSpecs) 

nLen - pSpecOf fsets [i + 1] - pSpecOf fsets [i ] ; 

else 

nLen ^ nChars - pSpecOf fsets [i] ; 
if (nLen) 

^ pAGSpec = new CAGSpec (pAGSpecs [i ]) ; 
TypeSpec ts(pAGSpec); 

if (bStartNewPara) 

^ AppText . StartPara ( ts ) ; 
bStartHewPara = false; 

} 

for (mt j ^ 0; j < nLen; j+-t-) 
{ 

if (pText[j] 0x12) 



-// 
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if (bStartNewPara) 

AppText .StartPara ( ts ) ; 

If (j > 0) 

AppTeKt.PutSt ring ((const uchar »)pTeKt, j, ts); 

bStartHewPara true; 
nLen -= (j 1); 
pTest +« (j + 1) ; 
j - -1; 



} 



if (nLen) 
{ 

if (bStartNewPara) 
{ 

AppTest , StartPara (ts ) ; 
bStartNewPara = false; 

} 

AppText. PutStringC (const uchar *)pTeKt, nLen, ts); 
pText nLen; 



} 

AppText . reset ( ) ; 

SCFS_PasteAPPText(m_pColumn, AppText, 0); 



// 

^ 

3vpid CAGText: :SetType face (const LOGFONT &Font) 

% 

""-'^ if (m_pSeiection) 

13 { 

if (m„pSelection->IsSliverCursor() ) 
U ^ if (ituplsiextSpec NULL) 

si ^ TypeSpec ts - m„pSelection->fMark.fPara->SpecAtOf fset (m„pSelection->fMark.fOffset) j 

m^pHextSpec = new GAGSpec (* ( (CAGSpec *) ts .ptr ( ) ) ) ; 
'f^ m_SellsIextSpec « *m„pSe lection; 

P } 

ir-^ Istrcpy (m„pHextSpec->m_Font . If FaceName, Font , IfFaceName) ; 

m„pNextSpec->itt_Font .IfWeight = Font , IfWeight; 
m„pIsrextSpec->m„Font, If Italic » (Font .Ifltaiic 0); 
m„pNextSpec->m_Font .IfCharSet Font . IfCharSet; 
m_pNextSpec->m„Font.lfOutPrecision - Font .IfOutPrecision; 
m„pMeKtSpec->m„Font.lfClipPrecision ^ Font .IfClipPrecision; 
m_plsiextSpec->m_Font. If Quality - Font . If Quality; 
in_pKIextSpec->m_Font .IfPitchAndFamily = Font .IfPitchAndFaraily; 

} 

else 
{ 

ShowSelection( false) ; 
scStream *fStreara; 

SCCOL_GetStream(m„pColumn, fStream) ; 
scSpecLocList redocsl (f Stream) ; 
SCSEL.CHTSList (in„pSe lection, redocsl ) ; 

for (int 1 - 0; i < redocsl .Numltems( ) ; i++ ) 

{ 

if (redocsl [i] .spec() ,ptr(] ) 

^ CAGSpec *pHewSpec new CAGSpec (*( (CAGSpec *)redocsl [i ] .spec ( ) .ptr ( ) ) ) ; 
lstrcpy(pNewSpec->m„Font. IfFaceName, Font .IfFaceHame) ; 
pNewSpec->m„Font .IfWeight = Font . IfWeight ; 
pNewSpec->m_Font. If Italic - (Font . If Italic i- 0); 
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pNewSpec->m„Font .IfCharSet = Font , IfCharSet ; 
pNevfSpec->m„Font.lfOutPrecision ^ Font -IfOutPrecis ion; 
pMewSpec">m„Font.lfClipPrecision - Font . IfClipPrecision; 
pNewSpec->m„Font. If Quality « Font , If Quality; 
pHewSpec->ra_Font.lfPitchAndFamily - Font . IfPitchAndFamily; 
redocsl[i] .spec{) « pNewSpec; 

} 

} 

scRedispList colRedisp; 

SCSTR„CHrSListSet(f Stream, redocsl, fcolRedisp); 
ComputeRedisplay (colRedisp) ; 
ShowSeleotion (true) ; 

} 

} 

} 





void CAGTeKt: :SetUnderline(foool bUnderline) 

{ 
} 



// 

void CAGText: :SetVert Just (eVert Just Vert Just) 

ShowSelection( false) ; 

I J SCCOL_FlowJustify(ia_pColurnn, VertJust); 
SCFS„Recompose(im„pColumn, 0); 

fy if (nupSelection) 

a { 

i.i RECT r « mJestRect; 

" m_pdc->LPtoDP{£cr) ; 

'^4 ; :InvalidateRect(m_pdc->GetWnd{) , Scr, false); 

C3 } 

ShowSelection(true) ; 

M 





i^id CAGText: :ShowSelection(bool bShow) 
i f (m_pSe 1 ect i on ) 

if (bShow != m_bSelection) 
{ 

SCSEl_Hi 1 i te (m_pSe 1 ect i on , APPDrawRect ) ; 
i!U.bSe lection = bShow; 

} 

} 

} 





void CAGText: :UpdateSelection() 

scStream •streamlD; 
scStreamLocation Mark, Point; 

SCSEL_Decompose2(m_pSelection, Mark, Point); 
SCCOL_GetStream (m_pColumn , streamID ) ; 

SCSEL_Restore (StreamlD, Mark, Point, m_pSelection, false); 

} 

// 
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// 

void CAGTsKt; :WriteColumn(CAGDocIO *pOutput) 

{ 

if (m„pColumn) 

mjDocIO = pOutput; 

pOutput->Write(Scrti_DestRect, sizeof {m.DestRect ) ) ; 

scStream *pStream = IsIULL; 
SCCOL.GGtStream(m„pColumn, pStream) ; 

SCTSL„Alloc (m^WriteTSList) ; 
SCSTR„ParaTSList(pStream, *m„pWrit0TSList) ; 
SCSTR_TSList(pStream, *m„pWriteTSList) ; 

int nNuml terns m^pWri teTSList->NumI terns () ; 
pOutput->Write{&nNumI terns, si^eof (nNumI terns) ) ; 

for (int i « 0; i < nNumltems; i++) 

^ ( (CAGSpec ») ((*mjWriteTSList) [i ] .ptr() ) )->Write(pOutput) ; 
} 

long enumerate =0; 
SCTB„2ero£numeration ( ) ; 

SCOBJJnumerate( (scTBObj*)m_pColumn, enumerate) ; 
SCCOL„Write(m_pColumn, this, WriteFunc); 

SCTSLJelete (m_pWriteTSList) ; 
m^pDocIO « NULL; 

i ^ 

^ 

'^r 

Static long ReadFunc (APPCtKPtr pText, void *ptr, long size) 

fj CAGDocIO *pDocIO - pTes:t->GetDocIO() ; 
s if (pDccIO) 

pDocIO->Read(ptr, size); 
return (size); 

>^ 

// 

a::::::::::::::::::::::::::::::::: 

fitatic long WriteFunc(APPCtsPtr pTent, void *ptr, long size) 

CAGDocIO *pDocIO = pTeKt->GetDocIO ( ) ; 
if (pDocIO) 

pDocIO->Write(ptr, size); 
return (size) ; 

} 

scTicks SCTickCountO 

^ return GetTickCount ( ) ; 

7- :.:r ^..r: .^^ ^ 

scTicks APPEventAvail (scProcType proctype) 

switch (proctype) 
{ 

case scDrawProc: 
return 1000; 



File: WorkxCrtPrtNAxctpNAGTsKt .cpp V^S^i 16 

case scRef ormatProc ; 

/* 

if (IsKeyStrokesO) 
return 0; 

*/ 

return 20; 

} 

return 0 ; 

} 

void *APPDiskIDToPointer(APPCtKPtr pText, long indeK. stDiskidClass objclass) 
switch (objclass) 

case diskidColumn; 
return (pTest); 

case diskidXypespec: 

^ If (index 0) 

return (NULL); 

const scTypeSpecList &TSList « pText->GetISList() ; 
CAGSpec *pAOSpec « (CAGSpec *) (TSListI index - l].ptr()); 
return (pAGSpec); 

C3 > 

%J default: 
f n break ; 

ry > 

return (void*)-'l; 



: // 



r^ng APPPointerToDiskID(APPCtKPtr pTest, void *ob j , stDiskidClass objclass) 

'■^ switch (objclass) 

^ case diskidXypespec: 

3 If (obj NULL) 

J return ( 0 ) ; 

scTypeSpecList *pWriteTSList - pText->GetWriteTSList ( ) ; 
int nNumlteitis - pWri teTSList->NumI terns () ; 
int nitem = -1; 

for (int i ^ D; i < nNumI terns; i++) 

if ((*pWriteTSList)[i].ptr() otaj) 
{ 

nItem ^ i -i- 1; 
break; 

} 

} 

return (nltem) ; 

} 

default: 
break ; 

} 

return (-1); 
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Bool APPRecomposeColumn (APPColumn) 
{ 

return true; 

} 

// 

// 

void APPDrawStartLine(APPDrwCts pTest, MicroPoint xOrg. MicroPoint yOrg, 

const scXRect &inkExtents) 

{ 
} 



// // 

// // 



void APPDrawEndLine(APPDrwCtK pTeKt) 

{ 
} 



void APPDrawString(APPDrwCtK pTest, const scGlyphArray *glyphArray, short num, 
MicroPoint KOrg, MicroPoint yOrg, const scGlyphlnfo Scgi) 

{ 

TCHAR »pString - new TCHAR [num] ; 
int *pWidths = new int [num] ; 

13 for (int i - 0; i < num; i-f+, glyphArray4-+) 

^ pString[il - LOBYrE(glyphArray->fGlyphID) ; 
::l pWidths[i] ^ glyphArray->hEscapement ; 

> 

M CAGSpec »pSpec - (CAGSpec »)gi .typespec .ptr ( ) ; 
CkGBC *pDC = pText->GetDC(); 

I J pDC->SetFant (pSpec->m_Font) ; 

l^" pDC->S€EtTeKtColor(pSpec->m„Color) ; 

?3 RECT DestRect = pTeKt->GetDestRect ( ) ; 

pDC->ExtTestOut {DestRect. left + xOrg, DestRect. top + yOrg, 
S.J 0, NULL, pString, num, pWidths); 

delete [] pString; 
13 delete [] pWidths; 



void APPDrawRect (const scXRect ferect, APPDrwCts pText, Bool slivertursor) 

^ CAGDC *pDC « pText->GetDC(); 
if (pDC) 

RECT DestRect * pTeKt->GetDestRect () ; 
RECT r; 

r.left maK( (DestRect. left + xrect.xl), DestRect . left) ; 
r.top - max ((DestRect. top + xrect.yl), DestRect .top) ; 
r, right - min ( (DestRect .left + xrect,x2), DestRect .right) ; 
r. bottom - min ( (DestRect .top + xrect.y2), DestRect .bottom) ; 

if (WIDIH(r) 0 &Sc HEIGHr(r) 0) 
{ 

if (WIDIHCr) 0) 
{ 

POINT ptFrom « { r.left, r.top }; 
POINT ptTo ^ { r.left, r. bottom }; 
pDC-->InvertLine (ptFrom, ptTo); 

} 
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else 

pDC->InvertRect(r) ; 



status APPDrawContext(APPColumn appID, const scColumn »colid, APPDrwCtK &pTest) 
{ 

pTeKt = appID; 
return scSuccess; 

} 



void APPDrawRule (const scMuPoint ScStart, const scMuPoint &end, 
const scGlyphlnfo Scgx, APPDrwCts pTeKt) 

{ 
} 



// // 

—// 

RLU FIgetRLUEscapement (const scFontRender Scfp, UCS2 ch) 
{ 

return (0); 

1/ // 

ry^ 

'.|LU FIgetRLUKern (const scFontRender &fp, UCS2 chl, UCS2 ch2) 
return (0); 

i^, // 



'-'dcRLURect &FIgetRLUExtents (const scFontRender &fp, UCS2 ch, scRLURect &chBox) 

\A 

:~ return (chBox); 

[3 

Hy // 



void FIgetHLUFontExtents (const scFontRender &fp, RLU ScapHite, RLU ScxHite, 

RLU ScascenderHite, RLU ScdescenderDepth , scRLURect SmaxFont) 

{ 

capHite - 0; 
KHite - 0; 
ascenderHite =0; 
descenderDepth - 0; 



maxFont -rluLeft =0; 
masFont .rluTop =0; 
maKFont .rluRight = 0; 
maKFont .rluBottom = 0; 



CAGSpec »pSpec - (CAGSpec *)fp.ptr(); 
CAGIC TestlCC "DISPLAY"); 
Tex tIC.SetTransformMode( false) ; 
TextlCSetFont (pSpec->in_Font) ; 

TEXMETRIC tm; 

TeKtIC .GetTeKtMetrics (Sstm) ; 

capHite ^ (short ) (scRoundMP ( (REAL) {tm.titiAscent - tm.tmlnternal Leading) * 
scBaseRLUsystem / tm.tinHeight) ) : 
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} 



// 

// // 

GlyphSize FIgetDEVEscapement (const scFontRender &fp, UCS2 oh) 
{ 

CAGSpec *pSpec « (CAGSpec •)fp.ptr(); 
CAGIC TextIC( "DISPLAY'*); 
TeKtIC .SetTransfomiMode (false) ; 
TextlCSetFont (pSpec->m„Font) ; 

TCHAR temp « (TCHAR)ch; 
SIZE sizeExtent; 

TeKtIC .GetXextEKtent (S-temp, 1^ SssizeEKtent ) ; 
return (sizeEstent .ck) ; 



// ^_ 

// 

MicroPoint FIgetDEVEscapement (const scFontRender St, UCS2, MicroPoint suggestedWidth) 
{ 

return suggestedWidth; 

} 

^ ^ // 

|g/ // 

."(SlyphSize FlgetDEVKern (const scFontRender Scfp, UCS2 chl, UCS2 ch2) 

% 

return 0; 

yl^ 

^ // 

iiSiciXRect ScFIgetDEVEKtents (const scFontRender &fp. UCS2 ch, scKRect ScchBoK) 

:f 

^ return chBoK; 

l^/ // 

|yV // 

Ijg^id FIgetDEVFontExtents (const scFontRender Stfp, MicroPoint &capHite, MicroPoint S^Hite, 

MicroPoint ScSScenderHite, MicroPoint SdescenderDepth, 
"^^^ scXRect toaxFont) 

{ 

CAGSpec *pSpec = (CAGSpec *)fp,ptr{); 
CAGIC TextIC( "DISPLAY"); 
TsKtlC .SetTransfontiMode (false) ; 
TejTtlC.SetFont (pSpec->m_Font) ; 

TEXIMETRIC tm; 
TeKtIC.GetTextMetrics(&tm) ; 

int nMinAWidth « TextlCGetMiiiAWidth (tm.tmFirstChar, tm.tmLastChar) ; 
capHite = tm.tmAscent; 

sHite -=0; // Not used 

ascenderHite = tm.tmAscent; 
descenderDepth * -tm . tmDescent ; 

maxFont.Kl « nMinAWidth; 
masFont.yl - tm.tmAscent; 
maxFont.K2 « tm.tmMasCharWidth; 

maKFont,y2 = - (tm. tmDescent + tm.tmExternal Leading ) ; 

} 
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Bool HYFWord (const UCS2 *word, short »hyf Array) 
return false; 

} 

// 



status TSTafaInfo(TypeSpec Sps, TypeSpec Scts,scTabInfo S^tablnfo, 
MicroPoint isPos, MicroPoint, long) 



{ 



int uTabSize = one„inch / 4; 

tablnfo.KPosition = kPos + (nTabSize - {xPos % nTabSize)); 
tablnfo.tabAlign « eTBLeftAlign; 
tablnfo.f illChar « ' 

tablnfo.f illCharAlign = aFCNontialAlign; 
return scSuccess; 



// _ „ 



status TSfillChar Info (TypeSpec UCS2 eFCAlignment Sc. MicroPoint, 

MicroPoint, long) 

return scSuccess; 

} 



f 1 



^ 

Satus TSGetStyle (TypeSpec Sets, scStyle &st) 

CAGSpec *pSpec - (CAGSpec *)ts,ptr(); 
fy if (pSpec) 

H CAGIC TextIC ( "DISPLAY" ) ; 

ly TextIC. SetTransfonnMode (false) ; 

'^^.j TextIC, Set Font {pSpec->in_Fant ) ; 

TEXTMETRIC tra; 
- ^ TextIC,GetTextMetrics(S:tm) ; 

Cj SIZE sizeSpace; 

TextIC.GetTextExtent(" ", 1, S<sizeSpace) ; 

\h scStyle style (pSpec->in_Font.lfFaceMame, tm.tinHeight) ; 

\^ style.SetRag(pSpec->m„Hor2Just) ; 

if (pSpec->m_nLineLeading 0) 

style -Set Lead (0) ; 
sty 1 e . Se tMaxLead ( 0 ) ; 

} 

else 

{ 

style, SetLead(pSpec->m__nLineLeading - tm,tniHeight) ; 
^ sty ie.Se tMaxLead (pSpec->m„nLineLeading - tm.tmHeight) ; 

if {pSpec->m„nAboveParaLeading === 0) 

style , SetMaxSpaceAbove ( 0 ) ; 
style ,SetSpaceAbove (0) ; 

else 
{ 

style. SetMaxSpaceAbove (pSpec->m_nAboveParaLeading - tm.tHiHeight) ; 
^ style. SetSpaceAbove(pSpec->m„nAboveParaLeading - tm. tniHeight ) ; 

style, SetMaxSpaceBelow(O) ; 
styl e , Set SpaceBel ow ( 0 ) ; 
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} 

else 

{ 



style. SetAbsoluteLead(O) ; 

style , S© t OptWord ( s i zeSpace . ck ) ; 
style. SetMinWord (sizeSpace. cs ) ; 
style. SetMaxWord(sizeSpace,cx) ; 

style . Smal iCapCorrect ion ( ) ; 
St ^ style; 



scStyle style ("Times New Roman", 15); 
St = style; 

} 

return scSuccess; 







Bool TSdropCap (TypeSpec Scpspec, TypeSpec Scharspec. DCPosition &dcpos, 
UCS2 dropchar) 

return false; 

} 

^ 

. 

|MicroPoint CSf irstLiaePosition(APPColumn pText, TypeSpec ts) 

W CAGSpec *pSpec - (CAGSpec *)ts.ptr(); 

m CAGIC TestIC( "DISPLAY"); 

fij TestlC.SetTransfortnMode (false) ; 

I 5 TextlC.SetFont (pSpec->m„Font) ; 

y TEXIMETRIC tm; 

V. J TextlCGetTextMetrics (S:tin) ; 

if (pText->GetVertJust() ^» eVertCentered) 
s return (tin.tJiiHeight + tm. tmExternal Lea ding) ; 

jj else 

I I return ( tm , tmAscent ) ; 

:n 



^ 

}§croPoint CSlastLinePosition(APPColumn pText, TypeSpec ts) 

if (pText->GetColuinn()->GetVertJust{) eVertBottom) 

CAGSpec *pSpec = (CAGSpec »)ts,ptr(); 
CAGIC TextIC ( "DISPLAY" ) ; 
TextIC.SetTransfontiMode( false) ; 
TextIC.SetFont(pSpec->m_Font) ; 

TEXIMETRIC tm; 

TextIC. GetTextMetrics{&tm) ; 

return (tm. tmDescent + tm. tmExternal Lead i ng ) ; 

return ( 0 ) ; 

} 

stUnivChar ucnull[] - { »\0' }; 

stUnivChar ucdate[] = { 'D', *A', 'T', 'E', '\0' }; 

StUnivChar ucpage[] = { 'P', 'A', 'G', 'E'^ '\0' }; 

StUnivChar ucfootnote[] = { 'F'^ '0'^ '0*^ 'T'^ 'H' , '0', 'T' , 'E', '\0' }• 

StUnivChar uccoiuran[] - { 'C, '0', . 'U' ^ 'M' . 'N' ^ ' ' 'X'l '\0' }; 

stUni-i^tring ustring[] ^ 
{ 
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{ t^cnull, 0 }, 

{ ycdate, 4 }, 

{ ycpage, 4 }, 

{ ucfootnote, 8 

{ uccolumn, 8 

{ ucnuil, 0 } 



class clFieldImp : public clField 
{ 

public : 

clFieldImp(uint8 id) : 
id_(id) 
{ 
} 

virtual uintS id() const; 
virtual void release (); 

virtual void content (stUnivStringS*, APPColumn, TypeSpecS:) ; 
private : 

uintS id_; 



ClField ScclField: :createField(scStream »str, uintB id) 
{ 

ClField *field - new clFieldlmp(id) ; 
return *field; 

fi 



faints clFieldImp: :id() const 
" z return id„; 

^■Soid ClFieldImp: : release () 

If 

^ delete this; 

cl 



Itjoid ClFieldImp: : content (stUnivStringSc ustr, APPColumn col^ TypeSpec& ) 
L if (id_ < 5) 

13 ustr = ustring[id_] ; 

i£ (id_ 4) 
{ 

stUnivChar *ptr - (stUnivChar »)ustr.ptr; 
ptr[7] - col->num() + '0'; 

} 

} 

else 

ustr = ustring[0]; 

} 
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#ifndef _AGSYH-H„ 
#define „AGSYM„H„ 

#include "AGDoc.h" 
#include "AGDCh" 
#include "AGTeKt.h" 

en™ SYMIYPE 

{ 

ST„IMAGE, 
SX_TEXT 



class CAGSym 
{ 

public : 

CAGSym (SYMIYPE SymType); 
virtual "CAGSym (); 

SYMTYPE GetSymType () const 

{ return (xB„SymType ) ; } 
virtual void Draw (CAGDC S=dc) - 0; 
const CAGMatrix SGetMatriK {) const 

{ return (m_Matrix); } 
virtual bool HitTest (POim: Pt) const = 0; 
virtual bool Read (CAGDocIO *plnput); 
void SetMatris (const CAGMatrix SMatrix) 

{ in_.MatriH = Matrix; } 
M void Transform (const CAGMatrix Matrix) 
i^l { m_Matrix *= Matrix; } 

|S virtual bool Write (CAGDocIO *pOutput); 

Iprotected : 

\ 3 CAGMatr i s mjdatr ix ; 
^ivate : 

' ^-^ SYMIYPE m_SymType ; 

IS 



biass CAGSymlmage ; public CAGSym 
pfiJ^lic: 

7: CAGSymlmage (); 
'"CAGSymlmage (); 

fi void Draw (CAGDC Scdc); 
void Free () ; 

const RECT StGetDestRect () const 

{ return (mJestRect ) ; } 
bool HitTest (POINT Pt) const; 

void LoadDIB (const BITMAP IHFOHEADER *pHdr. const BYTE *pBits); 

bool Read (CAGDocIO «plnput); 

void SetDestRect (const RECT ScDestRect) 

{ m„DestRect - DestRect; } 
bool Write (CAGDocIO *pOutput); 

protected : 

RECT m_DestRect; 
B ITOAP INFOfiEADER *m^D I B ; 



class CAGSymText : public CAGSym. public CAGText 
{ 

public: 

CAGSymText (); 
'^CAGSymText (); 



void Draw (CAGDC &dc); 
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bool HitTest (POINT Pt) const; 
bool Read (CAGDocIO *plnput); 
bool Write (CAGDocIO •pOutput) 



#endif /'/'_AGSYM_H_ 



£3 
u 

m 
m 

a 

C3 

m 
1^ 
13 

C3 
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#include **stdafs.h" 
#include "AGSym-h*' 
#includs "AGDib.h" 



K SB S != » = » S != S =f // 



#ifdef _AFX 

#i£d$f „DEBUG 

#undef THIS^FILE 

static char THIS_FILE[] 

#def ine new DEBUG_OTW 

#endif 

#endif 



FILE, 



// 

// 

CAGSym: :CAGSyRi(SYMIYPE SymType) 

{ 

jn_S3mType - SymType; 

} 

// // 

// // 

CAGSym: rCAGSym() 

{ 

} 

f^/ // 

"^^y // 

!gool CAGSym: : Read (CAGDocIO *plnput) 

nj pInput->Read (Sa^Matriss, siz&oi (m^MatriK) ) ; 
,i return true; 

^4/ // 

// 

%ool CAGSym: :Write(CAGDocIO *pOutput) 

pOutput->Write (to^Matrix, sizeof (m_MatriK)); 
return true; 

1^ // 

1^ , // 

CAGSymlmage : : CAGSym Image ( ) 
: CAGSym (ST^IMAGE) 

{ 

m^pDIB = NULL; 

m_DestRect.left = m_DestRect .right ^ mJestRect . top = m„DestRect . bottom * 

} 



// 

// ^ 

CAGSymlmage : : "'CAGSymlmago { ) 
{ 

Free ( ) ; 

} 



// 

vo i d CAGSymlmage : : Draw ( CAGDC Sedc ) 

{ 

if (m^pDIB) 
{ 

dc .PushModelingMatrxK (m^Matriss) ; 
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dc.StretchBlt (m„DestRect, DibPtr (m^pDIB), (BimPINFO *) m^pDIB); 
dc .PopModelmgMatrix ( ) ; 

} 

} 

// // 

// // 

vo i d CAGSyittlmags : : Free ( ) 
{ 

if (m^pDIB) 
{ 

free (m_j5DIB); 
m„pDIB = IslULL; 

} 

} 

// // 

// 

bool CAGSyinlmage: :HitTest(POIl:Jr Pt) const 
{ 

RECT r « m_DestRect; 

m_MatriK. Inverse () .Transform (SPt, 1); 
return (::PtInRect (ScT, Pt) 0); 

} 

// // 



C^id CAGSymlma^e: :LoadDIB (const BITMAP INFOHEADER *pHdr, const BYTE «pBits) 

'A 

Free(); 

fy if (pHdr->biCoinpression BI_RGB 

O {pHdr->biBitCount 1 | | pHdr~>biBitCouiit — 4 1 | 

pHdr->biBitCount 8 | j pHdr->biBitCount 24)) 



{ 



BITKAPmFOHEADER bi ; 
bi = *pHdr; 

bi .biCompression « BI„RGB; 

if (bi .biSizelmage 0) 

bi .biSizelmage = DibSiselmage (Scbi); 
if (bi.biCirUsed 0) 

bi.biClrUsed « DibKfumColors (&bi); 

if {(ffi„pDIB = (BITMAPIKFOHEADER ») mailoc (DibSize (&bi))) != MJLL) 
{ 

*m_pDIB ^ bi; 

if (bi.biClrUsed) 
{ 

memcpy ({void *) DibColors (m„pDIB), (void *) DibColors (pHdr) . 
DibPaletteSize (pHdr) ) ; 

} 

BYTE »pNewBits « (BYTE *) DibPtr (m„pDIB) ; 
const BYTE *pSrcBits; 
if (pBits) 

pSrcBits « pBitsi 

else 

pSrcBits « (BYTE *) (DibColors (pHdr) + bi.biClrUsed); 
memcpy (pNewBits, pSrcBits, bi .biSizelmage) ; 



// 

//^^ 

bool CAGSymlmage: :Read(CAGDocIO »plnput5 
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taool bReturn = CAGSym: :Read (pinput) ; 
DTORD dwSize « 0; 

pIftput->R0adC&dwSize, sizeof (dwSize)); 

if (dwSize > 0) 
{ 

m„pDIB - (BIIMAPIMFOHEADER *) malloc (dwSize); 
pInput->Read{m_pDIB, dwSize); 
pInput->Read(£im_DestRect, sizeof (m DestRect)); 

} 

return bReturn; 



// // 

// 

bool CAGSymlmase: :Write(CAGDocIO *pOutput) 
{ 

foool bReturn = CAGSym: : Write (pOutput) ; 

i£ (m„pDIB) 
{ 

DWORD dwSize - BibSize (m_pDIB) ; 

pOutput->Write (ScdwEize, sizeof (dwSize)); 

pOutput->Write (m^pDIBr dwSize j; 

pOutput->Write (Scm_DestRect sizeof (mJestRect) ) ; 

Q > 
}fi else 

{ 

j-^ DWORD dwSize = 0; 

"3 pOutput->Write (SidwSize, sizeof (dwSize)); 

y } 

'■^ return bReturn; 



\;^/ 

\4/ 

iC^GSymText : : CAGSymTest ( ) 
:': : CAGSym (ST^TEXI) 

// 

// 

GAGSymTeKt : : '"CAGSymTeKt ( ) 

{ 

} 

// 

// 

void CAGSymTeKt: :Draw(CAGDC Mc) 
{ 

dc:.PushModelingMatrix(inJiatriK) ; 

DrawColuirm (dc) ; 

dc .PopModelingMatriK ( ) ; 

} 

// 

// 

bool GAGSymTeKt: :HitTest(POIOT Pt) const 
{ 

RECT r « m_DestRect; 

m„Matr is. Inverse () .Transform (&Pt, 1); 
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return (::PtIttRect (Scr, Pt) !- 0}; 





// 

hool CAGSymXeKt: :Read(CAGDocIO »plnput) 
{ 

booi bReturn « CAGSym: :Rsad(pInptit) ; 
ReadColumn(p Input) ; 
return (bReturn ) ; 

} 

// // 

// 

bool CAGSymTest: .-Write (CAGDocIO *pOutput) 
{ 

booi bReturn « CAGSym: ; Write (pOutput) ; 
WriteColumn (pOutput ) ; 
return (bReturn); 

} 
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#ifndef „JiGPAGE„H_ 
#define _AGPAGEJi_ 

#includa "AGDoc.h" 
#inclucle "AGSym.h" 
#include "AGDC.h" 

class CAGLayer; 

#de£ine MIOC„AGLAYER 10 

class CAGPage 

{ 

public: 

CAGPage(int cx 
'"CAGPageO; 



0, int cy » 0) ; 



void AppendLayer (CAGLayer *pLayer) 
void Draw (CAGDC Sdc) const; 
CAGSym *FindSyinbolByPoint (POim* Pt. SYMIYPE SymType 
void GetFonts {LOGFOOTARRAY &lf Array); 
CAGLayer *Get Layer (int n Layer) const; 
int GetHumLayers ( ) const 
const char *GetPageName () const 
void GetPageSize(SIZE »pSi2e) const 
bool IsEmpty () const; 
bool Read(CAGDocIO »plnput); 
void SetPageName (const char *pszPageHame) 
„szPageName) ) ; } 

bool Write (CAGDocIO »pOutput) const; 



{ m_pLayers [in_nLayers++ ] ~ pLayer; } 



ST„AHY) const; 



return (irunLayers ) ; } 
return (m^ssPageteme ) ; 
*pSi2e ^ m^PageSise; } 



{ Istrcpyn (m^ssPageName , pszPageKfame sizeof (m 



^ protected : 
:f int 

SI2E 
|L| CAGLayer 
. =^ char 



'^'iiendif //_AGPAGE_„H„ 



m„nLayers ; 
B_PageSize; 

*m_pLayers[MAX3GLAYER] : 
m_szPagelsfairie [ 255 ] ; 
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/'//s s a » n s ss s s =: S S S S s s s s s =: St a s s a: s; 3£ a s » s£ » » s s 5: IS as ^ » =9 » 

#include "stdafK.h" 
#include "AGPage.h" 
#inciMe "AGLayer.h" 

#ifdef _AFX 
#ifdef „DEBUG 
#undef IHIS^FILE 

static char IHIS_FILE[ ] «_FILE_; 

#defiBe new DEBUGJsFEW 

#ei2dif 

#endif 

// // 

// // 

CAGPage: :CAGPage(int ck^ int cy) 
{ 

m^PageSize .cx = c^r; 
xn„PageSx2s .cy = cy; 
in„nLayers 0; 

for (int i - 0; i < MAX„AGLAYER; 

m_pLayers[i] « HULL; 
m_szPagei^ame [ 0 ] - 0; 

} 

// // 

// 

C SAGPage : : '"CAGPage { ) 

for (int i = 0; i < iH_nLayers; 
de 1 et e m_pLayers [ i ] ; 

^ 

"^^oid CAGPage: :Draw (CAGDC &dc) const 

H 

£3 for (int i Q; i < isijaLayers; i4-+) 
m„pLayers [ i ] ->Draw (dc ) ; 

^ // 

V^/ // 

li^GSym *CAGPage: ; Find S3^bolByPoint (POINT Pt, SYMIYPE SymType) const 
CAGSym *pSym = HULL; 

for (int i « Get^uitiLayers (); i > 0 ScS: pSyra KfULL; i — ) 
{ 

CAGLayer *pAGLayer - GetLayer (i); 

pSym « pAGLayer->FindSymbolByPoint (Pt, SymType); 

} 

return (pSym) ; 



// // 

// // 

void CAGPage: :GetFonts(LOGFOOTARRAY Slf Array) 
{ 

for Cinti»0;i< m^nLayers; i++) 
mjLayersIi]~>GatFonts (IfArray) ; 

} 

// // 

// // 

CAGLayer »CAGPage Get Layer (int nLayar) const 
{ 

if (nLayer 0 ( | nLayer > m^nLayers) 
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return MILL; 

else 

return m^pLayersfnLayer - 1]; 

} 



// 

// 

bool CAGPage: :IsEnipty() const 
{ 

bool bErapty = true; 

for (int i = 0; i < m^nLayers; 
{ 

if (I m„pLayers [ i ] -> IsEmpty ( ) ) 
{ 

foEmpty = false; 
break ; 

} 

} 

return bEmpty; 

} 



// 

// 

bool CAGPage: : Read (CAGDqcIO «plnput) 
{ 

BYTE bPageLen; 
'1 pInput->Read(£cbPageLea, sizeof (bPageLen)); 
5 if (bPageLen > 0) 

t { 

pInput->Read(m_szPageHame^ bPageLen); 
'\\ iR^szPageName [bPageLen] « 0; 

\ } 
else 

in_ssPage2srajne[0] « 0; 

pInput->Read(&m_PageSize, siseof (m^PageSize) ) ; 
plKput->Read(Scm_nLayers, siseof (rti^nLayers ) ) ; 
^ for (int i « 0; i < m_.nLayers; 

C3 { 

CAGLayer *pLayer = new CAGLayer(); 
. 1 pLayer->Read (pinput ) ; 

m_pLayers[i] « pLayer; 

H } 

;Z return true; 

¥ 



// , 

// 

bool CAGPage: : Write (CAGDocIO *pOutput) const 
{ 

bool bReturn true; 

BYTE bPageLen « {BYTE)lstrlen (m^szPageName) ; 
pOutput->Wri te (SbPageLen , si zeof (bPageLen ) J ; 
if (bPageLen > 0) 

pOutput->Write(iti_s2PageName, bPageLen) ; 
pOutput->iWrite(&iu_PageSise, siaeof (m_PageSize) ) ; 
pOutput->Write(£aft_nLayers, sizeof (m^nLayers ) ) ; 

for (mt i = 0; i < m„nLayers; i++) 
{ 

CAGLayer *pLayer « jK„pLayers [ i ] ; 
pLayer->Write{pOutput) ; 

} 

return bReturn; 
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#ifndef _AGMATRIX_H„ 
Mefine _AGMATRIX„H_ 

class CAGMatriK 

{ 

publ ic : 

CAGMatrix () 
{ Unity 0; } 

CA<^atriK (double mil, double ir12, double mil, double m22, 
double m31 = 0, double m32 = 0} 

{ m_ll = mil; m_12 = ml2; m„21 - m21; m„22 = m22; m_31 = m3i; m_32 - m32; } 
CACa»fatris: operator * (const CAGMatris SMatriK) const; 
void operator *= (const CAGMatriK SMatris) 

{ »this = «this * Matrix; } 
bool GetRotation (int SAngle) const; 
CAGMatrix Inverse () const; 
bool IsUnity () const 

{ return (m_ll 1 Sc& m_12 0 &£< m„21 0 m„22 1 

si_31 0 m_32 =^0); } 
void Rotate (double Angle, double x = 0, double y =^ 0); 
void Scale (double xScale, double yScale, double x = 0, double y « 0); 
void ScaleAndCenter (const RECT &DestRect, const RECT SSrcRect, 

bool bFlip - false); 
void SetMatrix (double mil, double mi2, double m21, double m22, 

double m31 « 0, double m32 = 0) 

{ m_ll = mil; m_12 - ml2; m„21 - m21; m„22 « m22; ra„31 - m31; m_32 - m32; } 
void Transform (POIOT *pPts, int nCount, bool bTranslate ^ true) const; 
void Transform (RECT *pRect, bool bTranslate « true) const 

{ Transform ( (POIMI *) pRect, 2, bTranslate); } 
13 void Translate (double x, double y) 
''5 { 3ti--31 x; m„32 y; } 
:^ void Translate (int x, int y) 
lis { m„31 (double) x; m„32 (double) y; } 
fy void Unity () 

{ KL.11 * m^22 =^ 1; m^l2 = m^21 « m^31 ^ m_32 « 0; } 

piililic: 

double m^ll; 

double m„12; 

double m_21; 

s double m„22; 

|i double rtu31; 

double m„32; 

#^dif //_AGMATRIX„H„ 
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^include "stdafK.h" 
#include "AGMatrix .h" 

#include <math.h> 

#ifdef _AFX 
#i£def _DEBUG 
#undef IHIS_„FILE 

static char IHIS_FILE[]-_FIL£_; 

#define new DEBUG^NEW 

#endif 

#endif 

#define PI 3,1415926535897932 

#define ABS (Value) ((Value) > Q ? (Value) : (-(Value))) 

int Arctan (int X, int Y, int KScale, int yScale) 
{ 

int Angle; 
int Quad; 
if (X > 0) 

Quad - (Y > 0) ? 4 : 1; 
else if (X < 0) 

Quad « (Y < 0) ? 2 : 3; 

else 

Quad = ((Y 0) ? 5 : {(Y < 0) ? 2 : 3)); 

13 if (Quad 5) 
,,3 Angle = 0; 

IZ else 

s:: { 

rU Y - ABS (Y); 

,i if (Quad > 2) 

X - "X' 
if (yScale'-- 0) 
■J Angle - 0; 

f=i else if (KScale ^« 0) 

Angle = 900; 

else 

P { 

vj douhle datan = atan2 ({double)Y * (double )KScale, 

/I (double)X * {double)yScale); 

datan (57.29578 * 10); 
1=^ Angle - (int) (datan + ({datan 0) ? 0.5 : -0.5)); 

C3 } 

if (Quad > 2) 

Angle +=» 1800; 

} 

return (Angle); 

} 

yy // 

// Double to int with rounding. '^^ 


inline int dtoi (double x) 

^ return ((mt) (k>0?k+0.5:3c-0.5)); 
} 

// 

// Multiply the current matriK with the specified matrix the return a new // 
/y matriK. 

// 

CAGMatriK CAf^atriK: : operator * (const CAGMatriK SMatris) const 

^ return (CAGMatris (m„H * Matris.itt_ll + m_12 * Matrix. m_21. 

ffi„ll * Matrix. m„12 + in„12 « Matrix. m„22, 

itL.21 • Matrix. in„ll in^22 * Matrix. m„21, 

m.21 * Matrix. iB_12 + m„22 * Matrix, m„22. 

ml31 * Matrix. m„ll + m„32 * Matrix. m_21 + Matrix. m„31, 

m 31 » Matrix. m_12 + m„32 * Matrix. m„22 -1- Matrix. m„32) ) ; 
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} 



// 



bool CMMdtris: ;GetRotation (int £<Angle) const 
{ 

bool faRotated ^ false; 

if ((itt„i2 > 0.0000005) !1 (-m„12 > 0.0000005) \\ 
(m_21 > 0.0000005) || (-m„21 > 0.0000005) )[ 
(m„ll < 0.0) ! I (m„22 < 0.0)) 

{ 

POIIsfT Pts[3]; 

Pts[0].x - Pts[0].y - Pts[l].y - Pts[2].K = 0; 
Pts[l].K - Pts[2].y - 100000; 
Transform (Pts, 3); 

Mgle - Arctan (Pts[l].K - Pts [0] .K.Pts [ 1] .y - Pts [0] .y, 1. 1) ; 
int Angle2 « Arctan (Pts[2].x - Pts [0] .K.Pts [2] .y - Pts [0] .y, 1, 1) ; 
int AngleRes = Angle2 - Angle; 
if (AngleRes < 0) 

AngleRes 3600; 
bRotated - {(AngleRes >- 2698) (AngleRes <- 2702)); 

} 

return (bRotated) ; 

} 



} 



return { I nverse ) j 



// 

Return the inverse of the matrix. 
// 1 

43 The inverse of a b is * d -b 

/O^ c d det -c a 

M 

>>^The determinant is calculated as a*d - b*c 



QAI^atris CAddatrix; : Inverse () const 

^■^•^ CAGMatrix Inverse; 

double det - ieuH * kL-22 - * hl.21; 

O if (det 0.0) 

Inverse = *this; 

^ else 

C3 { 

det - 1.0 ^ det; 
;1 Inverse. m_ll =^ det « m_22; 

Y'^ Inverse. m„12 = det * -m_12; 

\^ Inverse .m_21 = det * -m_21; 

fi Inverse .m„22 = det * m_il; 

£3 > 

Inverse. m_31 - -iru31 * Inverse. m_li + -m„32 * Inverse .m_21; 
Inverse. ml32 = -m_31 » Inverse. ffi„12 + -m_32 * Inverse .m_22; 



// 

// Rotate the matrix. 

// // 

void CAGMatrix: : Rotate (double Angle, double x, double y) 

^ double AngleRadian = Angle * PI / 180; 

Translate (-x, -y) ; 

double CosAngle = cos (AngleRadian) ; 

double SinAngle = sin (AngleRadian) ; 

CAGMatrix Temp (CosAngle, -SinAngle, SinAngle, CosAngle); 
*this *- Temp; 
Translate {x, y) ; 

} 

// // 

// Scale the matrix. 

// -// 
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void CAGMatriH :: Scale (double KScale, double yScale, double double y) 
{ 

Translate (-x, -y); 
itt„ll xScale; 
m_12 *= yScale; 
m_21 sScaie; 
m„22 yScale; 
m„31 KScale; 
m„32 *= yScale; 
Translate (k* y) ; 

} 

// yy 

// Q^loulQ.tB the matrix to scale and center the souce rectangle within the // 

// destination rectangle. // 

// // 

void CAGMatrix: rScaleAndCenter (const RECT ScDestRect, const RECT &SrcRect, 
bocl bFlip) 

{ 

double sScale = (double) WIDTH (DestRect) / (double) WIDTH (SrcRect); 
double yScale = (double) HEIGHT (DestRect) / (double) HEIGHT (SrcRect); 
if (KScale < yScale) 
yScale « sScale; 

else 

KScale « yScale; 

SetMatrix (xScale, 0, 0, yScale); 
RECTI Hew SrcRect; 
.„„ Transform (SKew) ; 

C3 Translate {DestRect . left - New. left + ({WIDTH (DestRect) - WIDTH (Hew)) / 2), 
i.1 DestRect. top - Hew. top + ((HEIGHT (DestRect) - HEIGHT (tJew) ) / 2)); 

5::: if (bFlip) 

ly { 

y Scale (-1, -Ir (DestRect. left + DestRect .right) / 2, 

T- (DestRect .top + DestRect .bottom) / 2); 

'1 } 

: // 

y./ Trans£orm the specified points, 

1^ 

yiid CAGMatriK: : Transform (POIOT *pPts^ int nCount. bool bTranslate) const 

r: if (bTranslate) 

?: { 

ij while (nCount — ) 

mt 2 dtoi ((double) pPts->K * m„ll + (double) pPts->y * m_21 + ia„31); 
pPts->y » dtoi ((double) pPts->K * m„12 + (double) pPts->y * m_22 + m„32) 
pPts->s k; 
pPts++; 

} 

} 

else 
{ 

while (nCount--) 
{ 

int X « dtoi ((double) pPts*>x * m_ll (double) pPts->y * ffi_21); 
pPts->y « dtoi ((double) pPts->K * m_12 + (double) pPts->y * m„22); 
pPts->s = k; 
pPts++; 

} 
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#def ine _AGLAYER„H_ 
#include "AQDoc.h" 
^include "AGDC.h" 
class CAGSym; 
#define MAX„AGSYMBOLS 100 



class CAGLayer 
{ 

public : 

CAGLayerO ; 
^^CAGLayerO; 

void AppendSyrribol (CAGSym *pSym); 
void Drav? (CAGDC Scdc); 

CAGSym »FindFirstSyiRbolByType (SYKIYPE Sy^nType) const; 

CAGSym *FindSymboieyPoint (POINT Pt, SYMYPE SyaiTypa - ST_AHY) const; 

void GetFonts (LOGFONTAHRAY S:lf Array); 

bool IsEmpty (); 

bool Read (CAGDocIO *plnput); 

bool Write (CAGDocIO *pOutput); 

p^tected : 

%2 CAGSym *m_pSymbols [MAX^AGSYMBOLS ] ; 



Wind if //_AGLAYER_H„ 
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/ /* 31 ss = 5E 5= St = = a K = = 5S = ss =; =s K ST » rs =: = a: = = ss = « 3 IS Si ^ a: » =£ s= =; ss s= K as = a a; s a 

#include "stdafs.h" 
#include "AGLayer.h" 



#ifdef AFX 
#ifdef _DEBUG 
#undef IHIS.FILE 

static char THIS_FILE[]« FILE. 

#de£'ine new DEBUG„HEW 

#endif 

#endif 



y/ 

// // 

CAGLayer : ; CAGLayer ( ) 
{ 

for (int i = 0; i < MAX_AGSYMBOLS; 
m_,pSymbols[i] « HULL; 

} 

// // 

// // 

CAGLayer: rCAGLayer() 
{ 

^™ for (int i = 0; m_pSymboIs[i ] ; 
\4 delete m_pSymbols [ i ] ; 

// 

j^l // 

vmA CAGLayer: :AppendSymfool{CAGSyin *pSyin) 

11 

2 for (int i - Oi m_pSymbols[i ] ; i++3 
m_pS3^ols[i] « pSym; 

// 

'f/y // 

Irlid CAGLayer: : Draw (CAGDC Stdc) 

for (int 1=0; m„pSymfools[i ] ; i++) 
m_pSy3nbols[i]->Draw (dc); 

} 

// // 

: // 

CAGSym *CAGLayer: :FindFirstSymbolByType(SYMIYPE Symlype) const 
{ 

CAGSyin *pSym - HULL; 

for (int i 0; m_pSyiabols [i ] S:Sc pBym == mLL; i++) 
{ 

if (m_pSymbols[i]->GetSyinType() SymType) 
pSym ^ m_pSyinbols [i ] ; 

} 

return (pSym) \ 

} 

// ^ // 

// // 

CAGSym *CAGLayer; :FindSymbolByPoint (POIOT Pt,. SYKTYPE SymType) const 
{ 

CAGS3^ *pSym ^ HULL; 
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for (mt i = 0; in„pSymbols[i] pSym =- HULL; 

^ if (SymXype ST_ANY H HupSymbols[i]->GetSymType() SymXype) 

^ if (m_pSyiiibols[i]->HitXest(Pt)) 
pSym = ni„pSymbols[i]; 

} 

} 

return (pSym); 







void CAGLayer: :GetFonts(LOaFOOTARRAY &lf Array) 

for (int i = 0; mjSymbolsCi ] ; i++) 

^ if (m„pSymbols[i]->GetSyitiXypa() SX.XEXT) 

^ CAGSymXest *pXeKt = (CAGSymXext *) injSymbols[i } ; 
pXeKt->GetFonts (If Array) ; 

} 

} 

} 

^ 



1 CAGLayer : : I sEmpty ( ) 

IS 

if (mjSymbols[0]) 
ly return false; 

^3 else 

return true; 

P 1--::::::::::::::::::::::::::;; 



Idol CAGLayer: : Read (CAGDacIO *plnput) 

H 

i:\ int nSymbols; 

pInput->Read(S(iaSymbois, sizeof (nSymbols) ) ; 
'f^ for (int i 0; i < nSymbols; 1++) 

^ SYKIYPE SymType; 

pInput->Read{£cSymXype, sizeof (S3^Type) ) ; 

CAGSym *pSym - MJLL; 
switch (SymXype) 

{ 

case SX„IMAGE: 

pSym - new CAGSym Image () ; 
break ; 

case SXJIEXT: 

pSym = new CAGSymXeKt ( ) ; 
break; 

} 

if (pSym) 
{ 

pSym->Read(pInput) ; 
m„pSymbols[i] = pSym; 

} 

} 

return true; 
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// 

// 

bool CAGLayer: : Write (CAGDocIO »pOutput) 
{ 

bcol bReturn = true; 
int nSymbols = 0; 

for (nSymbols; m„pSymbols[nSymbols] ; nSymbols++) 



pOutput->Write(toSymbols, sizeof (nSymbols) ) ; 

for (int i - 0; i < nSymfaols; 

^ CAGSym *pSym - m^Symbols [i ] ; 

SYMIYPE SymXype = pSym->GetSymType() ; 
pOutput->Write(£(SymType, sizeof (SymType)); 
pSym->Write(pOutput) ; 

} 

return bReturn; 
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#ifndef _AGDOC„H_ 
#def ine _AGDOC_H„ 

#include <iostream.h> 
#includ$ "zutil.h" 

#include "AGDC.h" 
class CAGPag^; 

typedef std :: vector <LOGFOOT> LOGFOlsITARRAY; 

#define MAX„A^^PAGE 4 
Mefine 2„BUFSI2E 16384 



enum AGDOCTYPE 
{ 

DOC^DEFAULT, 

DOC„CARDHV, 

DOC.CARDHH. 

DOC„CARDFV, 

DOC„CARDFH, 

enum PRIOTSIDE 
{ 

PRIOT_OinSIDE, 

PRIlsrr^IMSIDE, 

PRIlsIT_BOIH 

H 

plass CAGDocIO 

^•y CAGDocIO (xstream *plnput); 
%J CAGDocIO (ostream *pOutput); 

'"'1 void Close (); 

void Read (void *pData. DWORD dwSizs); 
13 void Write (const void «pData, DWORD dwSize); 



m„b Input; 

m_bEOF; 

*mj Input; 

*in„pOutput ; 

m_zstream; 

m_zBuf [2JUFSIZE]; 

m_zErr; 



j^otected ; 
k » bopl 
'^J bool 

i stream 
J'^ ostream 

2 stream 
13 BYTE 
="•-1 int 



class CAGDoc 
{ 

public : 

CAGDoc (AGDOCTYPE AGDocType « DOC.DEFAULT) ; 
-"CAGDoc (); 

void AppendPage (CAGPage *pPage) 

{ injPages{m„nPages++] - pPage; m„nCurPage - m^nPages; }; 
void Free () ; 
AGDOCTYPE GetDocType () 

{ return (m„AGDocType ) ; } 
int GetHumPages () 

{ return (m_nPages); } 
CAGPage *GetCurrentPage () 

{ return (GetPage(m_nCurPage) ) ; } 
int GetCurrentPageNum () 

{ return (m^nCurPage ) ; } 
void GetFonts (LOGFOOTARRAY Self Array); 

CAGPage *GetPage (xnt nPage); ^ ^ ^ 

bool PrxntCardQuarter (char *pszDriver, char »pszDevice, char *pszOutput, 
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DEVMODE *pDevMode^ const char *pszFil0lsraffla = NULL); 
bool PrintCardSingle (PRIOTSIDE PrintSide, char *pszDriver, 

char *pszDevice, char *ps20utput, DEVMODE »pDevMode, bool StbRotated, 

const char *ps2FileNaffie = IsfULL); 
bool Read(istream &input); 
void SetCurrentPage (int nPage) 

{if (nPage > 0 nPage <« m_nPages) m„uCurPage = nPage; } 
bool Write (ostream ^output); 

protected : 

void GetQFPageRect (int nPage, bool bPortrait, bool bMaKMargin, 

CAGDC *pDC, CAGDCInfo Mi, RECT ScDestRect, bool S^bFlip, bool &bRotated) 

void GetSFPageRect (int nPage, bool bPortrait, bool bMaKMargin, 

CAGDC *pDC, CAGDCInfo Mi. RECT ScDestRect, bool SbFlip, bool £:bRotated) 



protected ; 

AGDOCTYPE 

int 

int 

CAGPage 

}; 



m_„A^DocType; 
m„nPages ; 
m_nCurPage; 

*m_pPages [MAX^AGPAGE ] ; 



#endif //_AGDOC_H„ 
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#include "stdafx.h" 

#include "AGDoc.h" 

#include "AGPage.h" 

#include "AGDC.h" 

#ifdef _AFX 
#ifdef _DEBUG 
#undef 1:HIS„FILE 

static char THIS„FILE[]-_FILE_; 

#de£ine new DEBUGJsfEW 

#endif 

#endif 

#define AGDOC^ID "Ag" 
#define AGDOC„VERSION 1 

typedef struct 
{ 

BYTE abld[2]; 
BYTE bVer; 
} AGHDR; 



// 

// 

CAGDoc : : CAGDoc (AGDOCTYPE AGDocType ) 

L 

O ra_AGDocType = AGDocType; 
^3 sn_nCurPage ^0; 
rZ m_nPages « 0; 

for (int i = 0; i < MAX_AGPAGE; i++) 
fy m„pPages[i] - NULL; 

)4 // 

^ // 

blGDoc: : ""CAGDoc 0 
U Free ( ) ; 



^ // 

ivpid CAGDoc : : Free ( ) 

T 

for (int i = 0; i < m_nPages; 
{ 

delete m„pFagesti]; 
m_pPages[i] = NULL; 

} 

in„nCurPage - 0; 
m„nPages - 0; 

} 



void CAGDoc: :GetFonts(LOGFOOTARRAY &lf Array) 

for (int i =^ 0; i < m„nPages; i++) 
iii_pPages [ i ] -> Get Fonts ( 1 f Array ) ; 

} 





CAGPage *CAGDoc : :GetPage(int nPage) 

if (nPage =^ 0 | j nPage > m_nPages) 



yy // 
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return (1^^JLL) ; 

else 

return (m„pPages [nPage - 1]); 

} 

// // 

// 

void CAGDoc: :GetQFPageRect(int nPage, bool bPortrait, bool foMaKMargin, CAGDC *pDC, 

CAGDCInfo &di, RECT ScDestRect, bool S^bFlip. bool ScbRotated) 

{ 

// // 

// Set a small minimum margin because HP DeskJets report a .04 top // 
// margin but obviously can't print that close to the edge of the page. // 

// // 

int nMinMarginX ^ di .m„nLogPixelsX / 10; 
int nMinMarginY di .m_nLogPixelsY / 10; 

RECT Margin - 

maK (di ,m_PrintOf f set . ck , nMinMarginX) , 
mas(di .m„PrintOf fset .cy, nMinMarginY) ^ 

mas( (di .m^PhysPageSize.cx - di .m^nHorzRes - di .m_„PrintOf fset .ck) , nMinMarginX), 
mas((di.m_PhysPageSize.cy - di .m„nVertRes - di .m_PrintOf fset ,cy) , nMinMarginY) 

}; 

SIZE MarginMaK = 
{ 

maK (Margin, left. Margin .right) , 
fi maK (Margin, top. Margin .bottom) 

3 

V'^ bRotated = false; 

fiJ if ((bPortrait &S< (Margin, top < Margin.bottom) ) i| 
(i bPortrait ScS (Maargin . left < Margin .right) ) ) 

;1 { 

^ nPage « ((nPage + 1) ^ 4) + 1; 

-^J bRotated = true; 

} 



bFlip - false; 

switch (nPage) 
{ 

case 1: 
{ 

if (bMasMargin) 

{ 

DestRect .left = di .m„PhysPageSize .cx / 2 + MarginMas .cx; 
DestRect. right = di .m.PhysPageSize.cK - MarginMaK.cx; 

} 

else 
{ 

DestRect .left « di.m_PhysPageSize.cx / 2 + Margin .right; 
DestRect .right - di ,m_PhysPageSize.cx - Margin .right; 

} 

DestRect. top = di .m_PhysPageSize .cy / 2 + Margin.bottom; 
DestRect .bottom « di .m„PhysPageSize .cy - Margin.bottom; 
break ; 

} 

case 2: 
{ 

if (bPortrait) 
{ 

if (bMaxMargin) 
{ 

DestRect .left = di .m„PhysPageSize.cx / 2 + MarginMax.cx; 
DestRect .right di .m„PhysPageSize .cx - MarginMas .cx; 

} 

else 

{ 

DestRect .left ^ di .m„PhysPageSize .cx / 2 + Margin .right ; 
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DestReot .right di .m_PhysPageSize .ck - Margin .right; 

} 

DestRect.top Margin, top; 

DestRect .bottom = di .ra^PhysPageSize.cy / 2 - Margin. top; 
bFlip = true; 

} 

else 

{ 

DastRect .left ^ Margin. left; 

DestRect .right « di .m.PhysPageSise.cK / 2 - Margin. left; 

if (bMaxMargin) 

{ 

DestRect. top - di .m„PhysPageSize ,cy / 2 + MarginMaK.cy; 
DestRect .bottom - di .iruPhysPageSize .cy - MarginMas.cy; 

} 

else 
{ 

DestRect, top * di .m„PhysPageSize .cy / 2 + Margin .bottom; 
DestRect .bottom * di .m^PhysPageSize .cy - Margin -bottom; 

} 

if (ibRotated) 

bFlip - true; 

} 

break ; 



case 3: 
{ 

if (bPortrait) 
{ 

if (bMaxMargin) 
{ 

DestRect .left = MarginMas.es; 

DestRect .right ^ di .m_PhysPageSize.cK / 2 - MarginMan .cx; 

} 

else 
{ 

DestRect . left ^ Margin. left; 

DestRect .right = d i .m^PhysPageSize, ck / 2 - Margin. left; 

} 

DestRect. top = Margin. top; 

DestRect . bottom = di .m_PhysPageSize .cy / 2 - Margin. top; 

} 

else 
{ 

DestRect .left = Margin. left; 

DestRect .right » di .m_PhysPageSize .cx / 2 - Margin. left; 

if (bMaxMargin) 

{ 

DestRect. top « MarginMax.cy; 

DestRect .bottom = di ,m_PhysPageSize.cy / 2 - MarginMax .cy; 

} 

else 
{ 

DestRect. top « Margin. top; 

DestRect .bottom di .m„PhysPageSize .cy / 2 - Margin-top; 

} 

} 

bFlip = true; 
break; 



case 4: 
{ 

if (bPortrait) 
{ 

if (bMaxMargin) 
{ 

DestRect .left ^ MarginMax .cx; 

DestRect .right « di .m_PhysPageSize .cx / 2 ~ MarginMax .cx; 

} 

else 
{ 
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DestRect .left - Margin. left; 

DestRect .right = di .m„PhysPageSi2e .cx / 2 - Margin, left; 

} 

DestRect.top - di.m_PhysPageSi2e.cy / 2 + Margin .bottom; 
DestRect . bottom = di .^uPhysPageSize .oy - Margin. bottom; 

} 

else 
{ 

if (bMaxMargin) 
{ 

DestRect .left - di .m„PhysPageSize.cK / 2 + MarginMan.cs; 
DestRect .right - di .m_PhysPageSize.cx - MargmMaK.cs; 

} 

else 

{ 

DestRect .left = di .m_PhysPageSize.cs ^ 2 + Margin .right; 
DestRect .right ^ di .m^PhysPageSize.cx - Margin, right; 

} 

DestRect.top « Margin. top; 

DestRect .bottom = di .m„PhysPageSize ,cy / 2 - Margin. top; 
if (IbRotated) 
bFlip ^ true; 

} 

break ; 

} 

} 

pDC->DPAtoVPA(£cDestRect) ; 

} 



If/ // 

// 

n?pid CAGDoc: :GetSFPageRect (int nPage, bool bPortrait, bool bMaxMargin, CAGDC •pDC, 

\%, CAGDCInfo Scdi, RECT ScDestRect, bool ScbFlip, bool ScbRotated) 

ly // // 

•^J Set a small minimum margin because HP DeskJets report a .04 top // 

f^, // margin but obviously can't print that close to the edge of the page. 

// // 

int nMinMarginX - di .m^nLogPinelsX / 10; 
C3 int nMxnMarginY * di .m_nLogPiKelsY / 10; 



, \ RECT Margin ^ 

\h mas (di .m_PrintOff set .CK, nMinMarginX), 

f2 max(di .m„PrintOffset .cy, nMinMarginY) , 

'"si mas( (di .m^PhysPageSize.cK - di .m„nHorzRes - di ,m„PrintOf fset .cs) , nMinMarginX), 

'^^ mas ( (di .m_PhysPageSize .cy - di .m„n Vert Res - di .m„PrintOf f set .cy) , nMinMarginY) 

}^ 

SIZE MarginMaK ^ 
{ 

mas (Margin , left. Margin .right ) , 
max (Margin .top. Margin .bottom) 

}; 

bRotated - false; 

if ((bPortrait S=Sc (Margin. top < Margin .bottom) ) || 
(ibPortrait && (Margin. left < Margin .right )) ) 

{ 

nPage ^ 4 - nPage +1; 
bRotated ^ true; 

} 

bFlip = false; 

switch (nPage) 
{ 

case 1 : 
case 3; 
{ 

if (bPortrait) 
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} 

else 
{ 



DestRect -left = MarginMas: .ck; 

DestRect .right « di .m_PhysPageSize ,ck - MarginMaK .ck; 

if (bMaxHargin) 

{ 

OestRect.top ^ di .m„PhysPageSize .cy / 2 + MarginMaK.cy; 
DestRect . bottom = di .m^PhysPageSize .cy - HarginMax.cy; 

} 

else 

{ 

DestRect. top - di.m_PhysPageSi2e.cy / 2 + Margin, bottom; 
DestRect , bottom =* di .m_PhysPageSize ,cy - Margin .bottom; 

} 

if (bRotated nPage 3) 
bFlip = true; 



} 

break ; 



if (bMaxMargm) 
{ 

DestRect .left = di.m_PhysPageSi2e.cx / 2 h- MargxnMas .cx; 
DestRect. right » di.m_PhysPageSize.cK - MarginMas.cK; 

} 

else 
{ 

DestRect .left =^ di .m„PhysPageSi2e .cx / 2 Margin. right; 
DestRect .right - di.m_PhysPageSi2e.cK - Margin .right ; 

} 

DestRect. top = MarginMaK.cy; 

DestRect . bottom - di.m_PhysPageSi2e.cy - MarginMaK.cy; 
bFlip ^ bRotated; 



} 



case 2: 
case 4: 
{ 



if (bPortrait) 
{ 

DestRect .left * MarginMax .ck; 

DestRect .right = d i .m_PhysPageSize .ck - MarginMax .cx; 

if (bMaxMargin) 

{ 

DestRect. top «= MarginMax .cy; 

DestRect .bottom = d1.m_PhysPageSi2e.cy / 2 - MarginMax .cy; 

} 

else 
{ 

DestRect, top = Margin. top; 

DestRect . bottom ^ di .m_PhysPageSi2e.cy / 2 - Margin. top; 

} 

if (nPage 4 \\ bRotated) 
bFlip = true; 

} 

else 
{ 

if (bMaxMargin) 
{ 

DestRect .left - MarginMax .ck; 

DestRect. right di -m^PhysPageSize -cx / 2 - MarginMax .cx; 

} 

else 
{ 

DestRect. left « Margin, left; 

DestRect .right - di.m_PhysPageSi2e.cx / 2 - Margin. left; 

} 

DestRect, top « MarginMax.cy; 

DestRect .bottom = di .m_PhysPageSize .cy - MarginMax.cy; 



} 

break ; 



bFlip - bRotated; 
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} 



} 



} 

pDC->DPAtoVPA(&DestRect) ; 



// // 

// Print quarter-fold card. // 

// // 

bool CAGDoc: :PrintCardQuart0r(char *ps2Driver, dhar *ps2Device, char *pszOutput^ 

DEVMODE »pDevMode, const char *ps2FiieName) 

{ 

if (m„nPages != 4) 
return (false); 

bool bPor trait ^ (m_A8DocType DOC_CARDFV j | m_AGDocType DOC_CARDHV) ; 

if (pDevModej 
{ 

if (bPortrait) 

pDevMode->dmOriantation « DMORIEKTI^PORTRAIT; 

else 

pDevMode->dniOrientation = DMORIEKT„LAMDSCAPE; 
pDevMode->dmFields | DM^ORIEOTATIOH; 

} 

CAGDC »pDC ~ new CAGDC{pszDriver, pszDevice, pszOutput^ pDevMode); 
CAGDCInfo di = pDC->GetDeviceInfo() ; 

■'i if (pDevHode pDevMode->dmOrientation " DMORIEOT^PORTRAIT Sc& 
di .m_nHorzSxze > di .m^nVertSize) 

in { 

fii delete pDC; 

\i pDevMode->dmOrientation =■ DMORIEOT„LANDSCAPE; 

'-^ pDC ^ new CAGDC (psz Driver, pszDevice^ pszOutput^ pDevMode); 

Ijj di « pDC->GetDeviceInfo(); 

SI } 

else if (pDevMode pDevMode ->dinOrientat ion DMORIEOT„LANDSCAPE ScSt 
di .m_nVertSize > di .m_nHorzSize) 

{ 

delete pDC; 

pDevMode->dmOrientation ^ DMORIEHr_PORTRAIT; 
pDC ^ new CAGDC (pszDriver, pszDevice, pszOutput, pDe\^ode); 
di = pDC">GetDeviceInfo(); 

} 

RECT DestRect ; 

RECT SrcRect; 
SIZE sizePage; 
CAGMatriK ViewMatris; 
bool bFlip; 
bool bRotated; 

if ( I pDC->StartDoc( "Create and Print*')) 
{ 

delete pDC; 
return (false); 

} 

if (ipDC->StartPaBe()) 
{ 

pDC->AbortDoc() ; 
delete pDC; 
return (false); 

} 

. // 

// Front // 

// , // 

CAGPage *pPage - GetPage(l); 
pPage->GetPageSize (StsizePage) ; 

: :SetRect (ScSrcRect, 0, 0, sizePage. ck, sizePage ,cyj ; 
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GetQFPageRect ( 1 , bPortrait, false, pDC, di, DestRect^ bFlip, bRotated); 
Vie^MatriK.ScaieAndCenterCDestRect, SrcRect, bFlip); 
pDC->SetViewingMatri5: (ViswMatris) ; 
pPaee->Draw(*pDC) ; 



bool bPage2Empty = GetPage (2) ->IsEmpty { ) ; 
bool bPageSEmpty = GetPage(3) ->IsEmpty { ) ; 

// // 

// Inside Left / Top // 

// ^ // 

pPage = GetPage(2); 
pPage">GetFageSi2e (StsizePage) ; 

: :SetRect (SiSrcRect^ 0, 0, sizePage.cx, sizePage .cy) ; 
GetQFPageRect (2, bPortrait, ! bPageSEmpty, pDC, di, DestRect, bFlip, 
bRotated ) ; 

ViewMatris .ScaleAndCsnter(DestRect , SrcRect, bFlip); 
pDC - > Se tVi ewi ngMa t r i x { Vi ewMa t r i x ) ; 
pPage->Draw(*pDC) ; 

// // 

// Inside Right / Bottom // 

// // 

pPage = 6etPage(3); 
pPage->GetPageSi2e (ScsizePage) ; 

: :SetRect(£(SrcRect, 0, 0, sizePage. cx, sizePage .cy) ; 
GetQFPageRect(3, bPortrait, ! bPage2Empty, pDC, di, DestRect, bFlip, 
bRotated ) ; 

ViewMatrix.ScaleAndCenter(DestRect, SrcRect, bFlip); 
pDC->SetViewingMatrix (ViewMatrix ) ; 
pPage->Draw(»pDG] ; 

//.^ // 

// Back // 
// // 

pPage = Get Page (4); 
pPage->GetPageSize(£-sizePage) ; 

: ".SetRect (StSrcRect, 0, 0, sizePage. cx, sizePage .cy) ; 

GetQFPageRect (4, bPortrait, false, pDC, di, DestRect, bFlip, bRotated); 
ViewMatrix .ScaleAndCenter (DestRect, SrcRect, bFlip); 
pDC->SetViewingMatrix (ViewMatrix ) ; 
pPage->Draw(*pDC) ; 

// // 

BatchPrint filename. // 

// // 

if (pszFileHame) 
{ 

LOGFOOT Font; 

memset (SsFoat, 0, sizeof (Font) ) ; 
Font.lfHeight = -(12 * APP„RESOLUTION / 72); 
Istrcpy (Font . 1 f FaceName , "Times Hew Roman " ) ; 
pDC->SetFont(£:Font) ; 
pDC->SetTestColor(RGB(0, 0, 0)); 
pDC->ExtTestOut{APP.RESOLUTION / 8, 

SrcRect. bottom - (APP„RESOLUTIOM / 8), 0, IsTULL, pszFileName, 

Istrlen (pszFileName) , RILL); 



if (! pDC->EndPage()) 
{ 

pDC->AbortDoc() ; 
delete pDC; 
return (false); 

} 

if (! pDC->EndDoc()) 
{ 

pDC->AfoortDoc() ; 
delete pDC; 
return (false); 

} 
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delete pDC; 
ret^irn (true) ; 

} 

// // 

// Print single-fold card. // 

// // 

foool CAGDoc: :PrintCardSingle(PRIl!nSIDE PrintSide, char *ps2Driver, char *pS2Device 

char »pszOutput, DEVMODE *pDevMode, foool StbRotated 
const char *ps2FileName) 



{ 



if (m^nPages '= 4) 
return (false); 

foool bPortrait = (m„AGDocType DOC_CARDHH tl ra^AGDocType DOC_CARDFH); 

if (pDevMode) 
{ 

if (bPortrait) 

pDevMode-">dmOrientation - DM0RIEOT„PORTRAIT; 

else 

pDevMode->dmOrientation - DMORIEOT^LANDSCAPE; 
pDevMode->dmFields |^ DM„0RIE1:3TATI0H; 

} 

CAGDC *pDC ^ new CAGDC (pszD river, pszDevice, pszOutput, pDevMode); 
CAGDCInfo di « pDC->GetDeviceInfo() ; 

if (pDevMode £c£c pDevMode ->dmOrientat ion DMORIEOT„PORTRAIT 
d i . m_nHorzS i ze > d i . m_nVert S i z e ) 

{ 

delete pDC; 

pDevMode->dmOrientation ^ DMORIEOT_LAKDSCAPE; 

pDC « new CAGDC (pszDriver, pszDevice, pszOutput^ pDevMode); 

di - pDC->GetDevicelnfo() ; 

} 

else if (pDe\^ode pDevMode ->dmOrientat ion DMORIEOT_LAHDSCAPE 
d i . m_n Verts i ze > d i . m^nHorzS i z e ) 

{ 

delete pDC; 

pDevMode->dmOrientation « DMORIEHIJORTRAIT; 

pDC ^ new CAGDC (pszDriver, pszDevice, pszOutput, pDevMode); 

di - pDC->GetDeviceInfo() ; 

} 

RECT DestRect; 
RECT SrcRect ; 

SIZE sizePage; 
CAGMatriK ViewMatris ; 
foool bFlip; 

if (!pDC">StartDoc( "Create and Print")) 
{ 

delete pDC; 
return (false); 

} 

if (PrintSide PRIOT„OUTSIDE | | PrintSide PRIOTJOTH) 
{ 

if (!pDC->StartPage()) 
{ 

pDC->AfoortDoc{); 
delete pDC; 
return (false); 

} 

// 

// Front // 
// // 

CAGPage «pPage - GetPage(l); 
pPage->GetPageSize(£:SizePage) ; 

: rSetHect (ScSrcRect, 0, 0, sizePage.cx, sizePage.cy) ; 
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} 



GetSFPageRect(l, bPortrait. false. pDC, di, DestRect. bFlip. bRotated); 
ViewMatriK.ScaleAndCenter(DestRect, SrcRect, bFlip); 
pDC - > Se tVi ew i ngMa t r i x ( Vi ewMa t r i x ) ; 
pPage->Draw(*pDC) ; 

// 

Back // 
// 

pPage = GetPage(4); 
pPage->GetPageSize (^sizePage) ; 

: iSetRectCStSrcRect. 0. 0, sizePage.cK^ sizePage ,cy) ; 

GetSFPageRec:t(4, bPortrait, false. pDC, di, DestRect. bFlip, bRotated); 
ViewMatriK.ScaleAndCenter(DestRect, SrcRect. bFlip); 
pDC->SetViewingMatrix (ViewMatrist) ; 
pPage->Draw(*pDC) ; 



// BatchPrint filename. 



^ 

if (pszFileNarae) 
{ 

LOQFOlSrr Font; 

memset (&Font. 0, siseof (Font) ) ; 
Font.lfHeight - -(12 * APP^RESOLUTION / 72); 
lstrcpy(Font -IfFaceHame. "Times New Roman"); 
pDC->SetFont (^Font) ; 
pDC->SetTeKtColor(RGB(0. 0, 0)); 
pDC->ExtT8xtOut(APP_RESOLUTIOM / 8. 

SrcRect. bottom - (APP_RES0LUTIO]sr / 8), 0, NULL, pszFileName. 
^ lstrlen(ps2FileName) , NULL); 

if (!pDC->EndPage()) 
{ 

pDC->AbortDoc(); 
delete pDC; 
return (false); 

} 



if (PrintSide PRINT_INSIDE | | PrintSide PRINTJOIH) 

if (!pDC->StartPage() ) 
{ 

pDC->AbortDoc() ; 
delete pDC; 
return (false); 

} 

bool bPage2Empty = GetPage(2)->IsEmpty () ; 
bool bPageSEmpty - GetPage {3)->IsEmpty ( ) ; 



// Inside Left / Top // 



CAGPage *pPage - GetPage(2); 
pPage->GetPageSi2e(&sizePage) ; 

: :SetRect (StSrcRect, 0, 0, sizePage.cx, sizePage.cy) ; 
GetSFPageRect(2, bPortrait, \ bPageSEmpty, pDC, di, DestRect, bFlip, 
bRotated ) ; 

ViewMatrix.ScaleAndCenter(DestRect, SrcRect, bFlip); 
pDC->SetViewxngMatrix(ViewMatriK) ; 
pPage->Draw(*pDC) ; 



// BatchPrint filename. // 



// 

if (pszFileName) 
{ 

LOGFONT Font; 

memset (SiFont, 0, sizeof (Font) ) ; 

Font. If Height - -(12 * APP^RESOLUTION / 72) ; 

lstrcpy(Font .IfFaceName, "Times Hew Roman"); 
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pDC->SetFont(S(Font) ; 
pDC->SetTes:tColor(RGB(0, 0, 0)); 
pDC">EstTe3i:tOut{APP_RESOLUTION / 8, 

SrcRect. bottom - {APP^RESOLUTION / 8) . 0, NULL, pszFileKTame, 

Istrlen(pszFileHame) ^ HULL); 

} 

// 

// Inside Right / Bottom // 
// 

pPaga « GetPage(3) ; 
pPage->GetPage!Size(Stsi2ePage) ; 

: :SetRect (SfSrcRect, 0, 0^ sizePage.cx, sizePage.cy) ; 
GetSFPageR&ct(3, bPortrait. ! bPage2Empty, pDC, di. DestRect, bFlip, 
bRotated) ; 

ViewMatriK.ScaleAMCentar(DestRsct, SrcRect, bFlip); 
pDC->SetViewingMatriK (ViewMatriK) ; 
pPage->Draw(*pDC) ; 

if (!pDC->EndPage()) 
{ 

pDC->AbortDoc() ; 
delete pDC; 
return (false); 

} 

} 

if {lpDC->EndDoc()) 
{ 

pDC->AbortDoc{); 
delete pDC; 
return (false); 

} 

delete pDC; 
return (true); 



// 



ISool CAGDoc: : Read (i stream Scinput) 
, : bool bReturn ^ true; 
I- FreeO; 

?^ CAGDocIO DocIO(S!input) ; 
AGHDR Hdr; 

DocIO.Read(SJidr^ sizeof (Hdr) ) ; 

if (memcmp(Hdr.abId, AGDOCJD, sizeof (Hdr .abid) ) 0 
Hdr.bVer <- AGDOC^VERSIOM) 

{ 

Doc 1 0 . Read ( £an_AGBocTy pe , s i zeo f (m„AGDocType ) ) ; 
DocIO.Read(Sm„nPages, sizeof (m_nPages) ) ; 
for (int i = 0; i < m^nPages; i+'t-) 
{ 

(imV^^B *pPage = new CAGPage{); 
pPage->Read (&DocIO) ; 
Ki»pPsg«s[i] ^ pPage; 

} 

if (m_nPages > 1) 
m^nCurPage « 1; 

} 

else 

bReturn false; 
DocIO.CloseO ; 



return bReturn; 

} 
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// // 

// // 

bool CAGDoc: : Write (ost ream Scoutput) 
{ 

bool bReturn = true; 
CAGDacIO DocIO (ScOUtput) ; 
AdiDR Hdr; 

meincpyCHdr.abId, AGDOC„ID, sizeof (Hdr.abld) ) ; 

Hdr.bVer - AGDOC„VERSION; 

Dacia.Write(SHdr, sizeof (Hdr) ) ; 

DocIO .Write (&ra_AGDocType , sizeof (m_AGDocType ) ) ; 

DocIO, Write (San^nPages, sizeof (m_nPages) ) ; 

for (int i = 0; i < m„nPages; i++) 
{ 

CAGPage *pPage * m„pPages[i]; 
pPage->Write(&DocIO) ; 

} 

DocIO.CloseO; 
return bReturn; 



// // 

// 

CAGDocIO: :CAGDocIO (istream »plnput) 

ca 

. "-^ m_b Input - true; 
■:J m„bEOF = false; 

in__plnput = pinput; 
fy nL-pOutput IsIULL; 

^1 memset (&m„zstream^ 0, sizeof (m^zstream) ) ; 

m„zstreain.neKt„in « m„zBuf ; 
'^J m_zErr « inf latelnitZ (Sm.zstream. -MK„WBITS); 

ly/ 

.J./ // 

z tjAGDocIO: : CAGDocIO (ost re am *pOutput) 

m„bl3iput « false; 
l2 m^plnput = NULL; 
J 2 m„pOutput - pOutput; 

memset (Sim„zstream, 0, sizeof (m_zstream) ) ; 

m„zErr = def latelnit2(£an_zstream, Z_BEST„COMPRESSION. Z„DEFLATED, -M^_WBITS, 

DEF„MEM_LEVEL, 2„DEFAULT„STRATEGY) ; 



m_zstreara,neKt_out ^ m„zBuf ; 

m zstream. avail out - Z BUFSI2E; 



} 



// // 

// // 

void CAGDocIO; : Close () 
{ 

if (m_b Input) 
{ 

inf lateEnd C&m_zstream) ; 

} 

else 
{ 

bool bOone « false; 
int len - 0; 

m_zs t ream. aval l„in 0; 
for ( ; ; ) 
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{ 

len = Z„BUFSI2E - m„2stream.avail_out ; 

if (len I- 0) 

KupOutput->write( (char «)m_2Bufx len); 

2!i_2Stream.next„out = m_zBuf ; 

in 2stream.avail„out = Z„BUFSI2E; 

} 

if (bDone) 
break ; 

m„2Err = def late (&m„zstream. Z_FIHISH); 

bDone - (m_2Streain,avail„oxit != 0 M m„zErr Z^STREAM^EHD ) ; 

if Cm_2:Err !- Z„OK m^zErr !- Z^STREAM^EHD ) 
break; 

} 

de flat ©End (£m„zstream) ; 





yy // 

void CAGDocIO: : Read (void *pData, DWORD dwSize) 

[3 if (m_zErr Z„DATA_ERROR | j m^zErr Z„ERRNO) 
™ Z return ; 

li if {m_zErr 2_STREAM_END ) 
return; 

*'i in_zstream.neKt_out = (Bytef *)pData; 
m_zstream.avail„out = dwSize; 

J wh i 1 e (m_zst ream . ava i l„out 1 = 0 ) 

'^"^ if (m„zstream.avail„in 0 ScSt ! m„bEOF) 

^ { 

fj m„plnput->read((char *)HU2Buf. Z_BUFSIZE) ; 

m_zstream.avail„in m„p Input ->gcount( ) ; 
if (m^zstream.avail^in 0) 
U mJ^EOF « true; 

:f m„zstream*neKt„in = m„zBuf; 

m„zErr - inf late(Sjn_zstream, Z_NO„FLUSH); 

if (m.zErr != Z_OK |t m^bEOF) 
break; 



// // 

// 

void CAGDocIO: :Write {const void *pData, DWORD dwSize) 
{ 

m„2stream.neHt„in = (Bytef *)pData; 
m_zstream.avail_in = dwSize; 

while (m„zstreain.avail__in ! 0) 

{ 

if (irL.zs t ream. ava il„out -~ 0) 
{ 

m„zstream.nest„out = m_zBuf ; 
m_pOutput->write((char *)m_2Buf, ZJUFSIZE); 
m_zstream.avail„out « Z_BUFSIZE; 

} 

deflate (£da_zstream, Z„HO_FLUSH) ; 
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#ifndef _AGDIB_„H_ 
#define _AGDIB_H_ 

inline RGBQUAD *DibColors (const BITMAP INFOHEADER *pbih) 

^ return ( (HGBQUAD *) (((BYTE *) pbih) + pbih->biSize 4- 

(pbih->biCompression BI_BITFIELDS ? sized (DWORD) * 3 : 0))); 

} 

inline DWORD DibMumColors (const BITMAP I OTOHEADER *pbih) 

^ return ( (pbih->biClrUsed 0 pbih->biBitCount 8) 
? (1 << pbih->biBitCount) : pbih->biClrUsed) ; 

} 

inline DWORD DibPaletteSize (const BITMAP MFOHEADER *pbih) 

^ return (DibNumColors (pbih) * sizeof (RGBQUAD) ) ; 
} 

inline BYTE *DibPtr (const BITMAP INFOHEADER *pbxh) 

^ return ((BYTE *) (DibColors (pbih) + DibNumColors (pbih))); 
} 

inline DWORD DibWidthBytes (const BITMAP INFOHEADER *pbih) 

^ return ( ( (pbih->biWidth * pbih->biBitCount + 31L) / 32) * 4); 

.} 

O 

."inline DWORD DibSizelmage (const BITMAP I IsIFOHEADER *pbih) 

^fi return (pbih->biSizeImage 1 0 ? pbih->biSizeImage 
rU : DibWidthBytes (pbih) * pbih->biHeieht ) ; 

J 

■^inline DWORD DibSize (const BITMAP mFOHEADER *pbih) 

return (pbih->biSize + DibSizelmage (pbih) + DibPaletteSize (pbih) + 
(pbih->biCompression BIJITFIELDS ? sizeof (DWORD) * 3 : 0)); 

B 

lend if //_AGDIB„H_ 
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#ifndef _AGDC_H_ 

#include "AGMatriK.h" 
#includa "sctypes.h" 
#include "scapptyp.h" 

typedef DWORD Fixed; 

Me£in0 IntToFised (i ) (Fixed) (( (DWORD) {i ) ) << 16) 
#define FiKedToInt(f) (TORD) (( (DWORD) f) >> 16) 
#define BLTBUFSIZE 65535 
#def ine MAX_LMESPERBLT 20 
#define PALETTERGBJLAG 0s020Q0000 



class CAGDCInfo 
{ 

public: 

CAGDCInfo (); 

void Init (HDC hDC); 



bool 


m_bRasDisplay; 


bool 


m„bFalette; 


int 


m„Technology; 


int 


m^nHorsSise; 


int 


itL-JiVertSize; 


int 


m_.nHorzRes ; 


int 


m_nVertRes ; 


int 


m_nLogPxKelsX; 


int 


mjLogPixeisY; 


SIZE 


nuPhysPageSize; 


SIZE 


m„PrintOffset; 



I' 

tjlass CA6DC 

CAGDC (const char »ps2Driver. const char »ps2Device, const char *ps20utput, 
const DEVMODE *pDevMode); 
O CAGDC (HDC hDC); 
virtual ^CAGDC (); 

void DPtoVP (POIOT *pPts, int nCount) const 
1=^ { GetDeviceMatriK (). Inverse (), Transform (pPts, nCount); } 

£3 void DPtoVP (RECT *pRect) const 

{ DPtoVP ((POIOT *) pRect, 2); } 
void DPAtoVPA (POINT *pPts, int nCount) const ^ c -. % i 

{ GetDeviceMatriK (). Inverse (). Transform (pPts, nCount, false). > 

void DPAtoVPA (RECT »pRect) const 

{ DPAtoVPA ((POINT *) pRect, 2); } 
void DPtoMP (POINT *pPts, int nCount) ^ ^^ . 

{ GetVKD (), Inverse () .Transform (pP^s, nCount); } 

void DPtoMP (RECT *pRect) 

{ DPtoMP ((POINT *) pRect, 2); } 
void DPAtoMPA (POINT *pPts, int nCount) « . . ^ 

{ GetVKD (). Inverse (). Transform (pPts, nCount, false); } 

void DPAtoMPA (RECT *pRect) 

{ DPAtoMPA ((POINT ») pRect, 2); } 
void DPtoLP (POINT *pPts, int nCount) 

{ GetCTM (). Inverse (). Transform (pPts, nCount); } 

void DPtoLP (RECT *pRect) 

{ DPtoLP {(POIOT *) pRect, 2); } 
void DPAtoLPA (POINT *pPts, int nCount) . , . . 

{ GetCTM (). Inverse (), Transform (pPts, nCount, false); } 
void DPAtoLPA (RECT *pRect) 

{ DPAtoLPA ((POINT ») pRect, 2); } 

void VPtoMP (POINT «pPts, mt nCount) const 

{ GetViewingMatriK (). Inverse O.Transfomi (pPts, nCount); } 
void VPtoMP (RECT *pRect) const 

{ VPtoMP ((POINT *) pRect, 2); } 



le : Work\CrtPrt\AKctpNAGDC , h 



Page: 2 



void VPAtoMPA (POIOT *pPts, int nCount) const ^ ^ i x 

{ GetViewingHatriK (). Inverse () .Transform (pPts, nCount, false), > 

void VPAtoMPA (RECT *pRect) const 

{ VPAtoMPA ((POIIsn *) pRect, 2); } 
void VPtoLP (POIOT *pPts, int nCount) ^ ^x 

{ GetMxV (). Inverse {).Transfom (pPts, nCount); } 

void VPtoLP (RECT *pRect) 

{ VPtoLP ((POIOT *) pRect, 2); } 

void VPAtoLPA (POIOT *pPts, mt nCount) ^ ^ r ^ ^ i 

{ GetMxV (). Inverse (), Transform (pPts, nCount, false); } 

void VPAtoLPA (RECT *pRect) 

{ VPAtoLPA ((POIOT *) pRect, 2); } 

void MPtoLP (POIOT *pPts, mt nCount) const *v , 

{ GetModelingMatriK (). Inverse (), Transform (pPts, nCount); } 

void MPtoLP (RECT *pRect) const 

{ MPtoLP ((POIOT *) pRect, 2); } 

void MPAtoLPA (POIOT *pPts, int nCount) const ^ ^ ^ ^ ■, t 

voia Mfaxout-H K ^ GetModelingMatriK (). Inverse (). Transform (pPts, nCount, false); } 

void MPAtoLPA (RECT »pRect) const 

{ MPAtoLPA ((POIOT *) pRect, 2); } 

void LPtoMP (POIOT »pPts, int nCount) const ^ , 

{ GetModelingMatriK (), Transform (pPts, nCount); } 

void LPtoMP (RECT *pRect) const 

{ LPtoMP ((POIOT *) pRect, 2); } 

void LPAtoMPA (POIOT *pPts. int nCount) const ^ r. . s r 

{ GetModelingMatriK (). Transform (pPts, nCount, false); } 

void LPAtoMPA (RECT *pRect) const 

{ LPAtoMPA ((POIOT *) pRect, 2); } 
void LPtoVP (POIOT *pPts, int nCount) 

{ GetMxV (), Transform (pPts, nCount); } 

void LPtoVP (RECT *pRect) 

{ LPtoVP ((POIOT *) pRect, 2); } 

void LPAtoVPA (POIOT *pPts, int nCount) ^ . ^ i x -l 

{ GetMKV (). Transform (pPts, nCount, false); } 

void LPAtoVPA (RECT *pRect) 

{ LPAtoVPA ((POIOT *) pRect, 2); } 
void LPtoDP (POIOT *pPts, int nCount) 

{ GetCTM (). Transform (pPts, nCount); } 

void LPtoDP (RECT »pRect) 

{ LPtoDP ((POIOT *) pRect, 2); } 
void LPAtoDPA (POIOT *pPts, int nCount) . , . , 

{ GetCTM (). Transform (pPts, nCount, false); } 

void LPAtoDPA (RECT *pRect) 

{ LPAtoDPA ((POIOT *) pRect, 2); } 

void MPtoVP (POIOT *pPts, int nCount) const 

{ GetViewingMatriK (). Transform (pPts, nCount); } 

void MPtoVP (RECT «pRect) const 

{ MPtoVP ({POIOT *) pRect, 2); } 
void MPAtoVPA (POIOT *pPts, int nCount) const « ^ , x i 

{ GetViewingMatriK (). Transform (pPts, nCount, false); } 

void MPAtoVPA (RECT *pRect) const 

{ MPAtoVPA ((POIOT *) pRect, 2); } 
void MPtoDP (POIOT *pPts, int nCount) 

{ GetVKD (). Transform (pPts, nCount); } 

void MPtoDP (RECT *pRect) 

{ MPtoDP ((POIOT *) pRect, 2); } 
void MPAtoDPA (POIOT *pPts, int nCount) . . x . 

{ GetVKD (). Transform (pPts, nCount, false); } 

void MPAtoDPA (RECT *pRect) 

{ MPAtoDPA ((POIOT *) pRect, 2); } 

void VPtoDP (POIOT *pPts, int nCount) const 

{ GetDeviceMatriK (). Transform (pPts, nCount); } 

void VPtoDP (RECT *pRect) const 

{ VPtoDP ((POIOT ») pRect, 2); } 
void VPAtoDPA (POIOT *pPts, int nCount) const . n x . 

{ GetDeviceMatriK (). Transform (pPts, nCount, false); } 
void VPAtoDPA (RECT «pRect) const 

{ VPAtoDPA ((POIOT *) pRect, 2); } 
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bool AbortDoc () const 

{ return ( : :AbortDoc (m_hDC) 0); } 

bool EndDoc () const 

{ return (::£ndDoc (m^hOC) >^ 0); } 
bool EndPage () const 

{ return {::£ndPage (rnJDC) 0); } 
void ExtTextOut (int int UIOT nOptions, const RECT »pRect, 

const TCHAR *pszStrxng, UIOT nCount, const int »pDKWidths) ; 

static void Free (); 

const CACMatrix ^GetClK (); 

HDC GetHDC {) const 

{ return (m_hDC); } 
const CAODCInfo S^GetDevicelnf o () const 

{ return (ra„Info); } 
const CAGMatrix StGet Devi c ©Matrix () const 

{ return (m^MatrinD) ; } 
int GetMinAWidth (UIOT uFirstChar, UIOT uLastChar) ; 
void GetXextMetrics (TEXIHETRIC «ptm) const; 
HMD GetWnd () const 

{ return (m_hWnd ) ; } 
const CAGMatris StGetModelingMatriK () const 

{ return (m_MatriKM) ; } 
const CAGMatris ScGetMsV (); 

void GetTestExtent (const TCHAR *pString, int nCount^ SIZE »pSi2e); 
const CAGMatriK £:GetViewingMatrix () const 

{ return (m^MatrixV) ; } 
const CAGMatrix S:GetVxD (); 
void InvertLine (POIOT ptFrom, POIOT ptTo); 
void InvertRect (const RECT S<Rect); 
void Polygon (const POIOT *pPts, int nPoints); 
void PopModelingMatrix () 

{ m^MatrixM. Unity (); m_bUpdateMxV « true; m__bUpdateCIM ^ true; } 
void PushModelingMatrix (const CAGMatrix SMatrix) 

{ in„MatrixM =^ Matrix; m„bUpdateMxV = true; m_bUpdateCTM ^ true; } 
void Rectangle (const RECT &Rect); 
void SetDeviceMatrix (CAGMatrix ScMatrix) 

{ iruMatrixD = Matrix; 2n_bUpdateVxD = true; m„bUpdateCTM true; } 
void SetFont (const UFont SFont); 
void SetTextColor (COLORREF Color) const; 
bool SetTransformMode (bool bOn) 

{ bool bCur = m_bDoTransfonn; m_bDoTransform « bOn; return (bCur) ; } 
void SetViewingMatrix (CAGMatrix SMatrix) 

{ m_MatrixV Matrix; m^bUpdateVxD « true; in_bUpdateMxV ^ true; 

Ki-bUpdateCTM « true; } 
bool StartDoc (const char »ps2DoclsIame) const; 
bool StartPage ( ) ; 

void StretchBlt (RECT DestRect, const void *pvBits^ const BITbdAPIKFO *pbi); 



protected : 
CAGDC 0 
{ } 

void Cleanup () ; 

void CreatePalette (); 

void Dither (const BYTE *pSrcBits, BYTE *pDstBits, int nSrcBitCount, 

int nDstWidth, mt y. Fixed fixSrcStepX, const RGBQUAD *pColors) const; 

void FlipDIB (const BYTE *pBits, BYTE *pMewBits, 

const BITMAP IMFOHEADER *pbih, bool bFlipX. bool bFlipY) const; 

void StretchBltZ (int nDstX, mt nDstY, int nDstWidth, int nDstHeight, 

const void *pvBits, const BITMAPINFO *pbi) const; 

Fixed FixedDivide (Fixed Dividend. Fixed Divisor) const; 

void Init (); 



protected : 
bool 
HDC 
MND 

static BYTE 
static HPALj 
HPALETTE 
CAGDC Info 
CAGMatriK 
CAGMatrix 



m_bGi venDC ; 
m„hDC; 
m_hWnd ; 
*m„pBltBuf ; 
'E m_hPailette; 
m.hOldPalette; 
m„Info; 
m_MatrixM; 
m„MatrixV; 
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CAGMatris 

CAGMatrix 

CAGMatrix 

bool 

foool 

bool 

bool 

HFOIsn 

UFont 



JtL-MatrixD; 

m„MatriKVKD; 

inJ^atrixMxV; 

tu„MatriKC'IM; 

iR-bUpdateVxD; 

ni_foUpdateMxV; 

m_bUpdateCTM; 

m^bBoTrans form ; 

m^hOldFont; 

m„CurFont ; 



class CAGPaintDC : public CAGDC 
{ 

public ; 

CAGPaintDC (HTOD hWnd); 
-^CAGPaintDC {); 

protected : 

PAItJTSTRUCT ffi^PaintStruct; 



class CAGClientDC : public CAGDC 
{ 

public ; 

CAGClientDC {mm Wnd); 
"CAGClientDC (); 



Lass CAGIC : public CAGDC 



CAGIC (const char »pszDriver, const char *pszDevice « NULL, 
|y const char *ps20utput NULL, const DEVMODE »pDe^^ode ^ IslULL); 

class CAGDIBSectionDC : public CAGDC 

o 

^iblic: 

/I CAGDIBSectionDC {const BITOAPINFO *pbmi, UIOT iUsage, BYTE **ppvBits); 
|y ^CAGDIBSectionDC (); 

protected ; 

HBIIMAP m^hBitmap; 
O HBITMAP m_h01dBitmap; 

}; 

#endif //_AGDC.H_ 
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#include "stdafx.h" 
#include "AGDC.h" 
#include "AGDib.h" 



#ifdef _AFX 
#ifdef JEBUG 
#undef THIS_FILE 

static char IHIS_FILE[]= FILE ; 

#define new DEBUG„HEW 

#end if 

#endif 



BYTE *CAGDC: rm^pBltBuf = HULL; 
HPALETTE CAGDG : :m„hPalette - HULL; 



static const BYTE aHalf tonel6xl6 [ 16] [ 16] - 
{ 



0, 


44, 


9, 


41, 


3, 


46, 


12, 


43, 


1, 


44, 


10, 


41, 


3, 


46, 


12, 


43, 


34, 


16, 


25, 


19, 


37, 


18, 


28, 


21, 


35, 


16, 


26, 


19, 


37, 


18, 


28, 


21, 


38, 


6, 


47, 


3, 


40, 


9, 


50, 


6, 


38, 


7, 


47, 


4, 


40, 


9, 


49, 


6, 


22, 


28, 


13, 


31, 


25, 


31, 


15, 


34, 


22, 


29, 


13, 


32- 


24, 


31, 


15, 


34, 


2, 


46, 


12, 


43, 


1. 


45, 


10, 


42, 


2, 


45, 


11, 


42, 


1, 


45. 


11, 


42, 


37, 


18, 


27, 


21, 


35, 


17, 


26, 


20, 


36, 


17, 


27, 


20, 


36, 


17, 


26, 


20, 


40, 


8, 


49, 


5, 


38, 


7, 


48, 


4, 


39, 


8, 


48, 


5, 


39, 


7, 


48, 


4. 


24, 


30, 


15, 


33, 


23, 


29, 


13, 


32, 


23, 


30, 


14, 


33, 


23, 


29, 


14, 


32. 


2, 


46, 


12, 


43, 


0, 


44, 


10, 


41, 


3, 


47, 


12, 


44, 


0, 


44, 


10, 


41, 


37, 


18, 


27, 


21. 


35, 


16, 


25, 


19, 


37, 


19, 


28, 


22, 


35, 


16, 


25, 


19, 


40, 


9, 


49, 


5, 


38, 


7, 


47, 


4, 


40, 


9, 


50, 


6, 


38, 


6, 


47, 


3, 


'=? 24, 


30, 


15, 


34, 


22, 


29, 


13, 


32, 


25, 


31, 


15, 


34, 


22, 


28, 


13, 


31, 


1, 


45, 


11, 


42, 


2, 


46, 


11, 


42, 


1, 


45, 


10, 


41. 


2, 


46. 


11, 


43, 


fn 36, 


17, 


26, 


20, 


36, 


17, 


27, 


21, 


35, 


16, 


26, 


20, 


36, 


18, 


27, 


21, 


hi 39, 


8, 


48, 


4, 


39, 


3, 


49, 


5, 


38, 


7, 


48, 


4. 


39, 


8, 


49, 


5, 


23, 


29, 


14, 


33, 


24, 


30, 


14, 


33, 


23, 


29, 


13, 


32, 


24, 


30, 


14, 


33 



LtJ 

^Igatic const BYTE aModulo51[256] « 



24, 


0, 
25, 




2, 


3, 


4, 


5, 


6, 


7, 


8, 


9, 


10, 


11, 


12, 


13, 


14, 


15, 


16, 


17, 


18, 


19, 


20, 


21, 


22, 


23, 




26, 


27, 


2S, 


29, 


30, 


31, 


32, 


33, 


34, 


35, 


36, 


37, 


38, 


39, 


40, 


41, 


42, 


43, 


44, 


45, 


46, 


47, 


48, 


49, 




0, 
25, 


1, 


2. 


3, 


4, 


5, 


6, 


7, 


8, 


9, 


10, 


11, 


12, 


13, 


14, 


15, 


16, 


17, 


18, 


19, 


20, 


21, 


22, 


23, 




26, 


27, 


28, 


29, 


30, 


31, 


32, 


33, 


34, 


35, 


36, 


37, 


30, 


39, 


40, 


41, 


42, 


43, 


44, 


45, 


46, 


47, 


48, 


49, 


11. 


0, 
25, 


1, 


2, 


3, 


4, 


5, 


6, 


7, 


8, 


9, 


10, 


11, 


12, 


13, 


14, 


15, 


16, 


17, 


18, 


19, 


20, 


21, 


22, 


23, 


50, 


26, 


27, 


28, 


29, 


30, 


31, 


32, 


33, 


34, 


35, 


36, 


37, 


38, 


39, 


40, 


41, 


42, 


43, 


44, 


45, 


46, 


47, 


48, 


49, 


24, 


0, 
25, 


1, 


2, 


3, 


4, 


5, 


6, 


7, 


8, 


9, 


10, 


11, 


12, 


13, 


14, 


15, 


16, 


17, 


18, 


19, 


20, 


21, 


22, 


23, 


50, 


26, 


27, 


28, 


29, 


30, 


31, 


32, 


33, 


34, 


35, 


36, 


37, 


38, 


39, 


40, 


41, 


42, 


43, 


44, 


45, 


46, 


47, 


48, 


49, 


24, 


0, 
25, 


1. 


2, 


3, 


4, 


5, 


6, 


7, 


8, 


9, 


10, 


11, 


12, 


13, 


14, 


15, 


16, 


17, 


18, 


19, 


20, 


21, 


22, 


23, 


50, 

}; 


26, 
0 


27, 


28, 


29, 


30, 


31, 


32, 


33, 


34, 


35, 


36, 


37, 


38, 


39, 


40, 


41, 


42, 


43, 


44, 


45, 


46, 


47, 


48, 


49, 



static const BYTE aDividedBy51[256] « 
{ 

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 

2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 

2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 

3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 

3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 

4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 



0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 

2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 

2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 

3, 3, 3, J, 3, 3, 3, 3, Or 3, 3, 3, 3, 3, 

3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 

4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 
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4, 4, 4, 4, 4r 4. 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4. 4, 

5 

}; 

static const BYTE aTimes6[6] = 
{ 

0, 6, 12, 18, 24, 30 

static const BYTE aTimes36t&] - 

{ 

0, 36, 72, 108, 144, 180 

}; 

// // 

// 

CAGDCInfo: :CAGDCInfo () 
{ 

ra_nHorzSize « 0; 
m^nVertSize « 0; 
Ri^nHorzRes = 0; 
iti_nVertRes = 0; 
m_nLogPiHelsX =0; 
m„nLogPixelsY =0; 

m.PhysPaH^Size.cK = m_PhysPageSize .cy = 0; 
m„PrintOffset.cK « in_PrintOf fset .cy = 0; 

} 

// 

" 

Mid CAGDCInfo: :Init (HDC hDC) 

rn m.Technology - ; :GetDeviceCaps (hDC, TECHNOLOGY); 

m_bRasDisplay = (m^Technology DT„RASDISPLAY) ; 

J^i icubPalette - ( ( : :GetDeviceCaps (hDC, RASTERCAPS) & RC„PALETrE) 1-0); 

"^J m.nHorzSize = : :GetDeviceCaps (hDC, H0RZSI2E); 

m nVertSize = : :GetDeviceCaps (hDC, VERTSI2E); 

mInHorzRes = :: Get Devi ceCaps (hDC, HORZRES); 
- m„nVertRes = : :GetDeviceCaps (hDC, TORTRES); 
I J m_.nLoePixelsX - : :GetDeviceCaps (hDC, LOGPIXELSX) ; 
ij m„nLogPiselsY = : :GetDevicaCaps (hDC, LOGPIXELSY); 

if (;:Escape (hDC, GETPHYSPAGESI2E, HULL, IsFULL, Scm.PhysPageSize) <- 0) 

U { 

fi m„PhysPageSize.CK « m„nHorzRes; 

:S m^PhysPageSize.cy - m„nVertRes; 

if {::£scape (hDC, GETPRimNCK)FFSET, mJLL. IsFULL, Sffi.PrintOf fset) <- 0) 
m„PrintOf fset .cs = m_PrintOf f set .cy * 0; 

} 

// 

// 

CAGDC:;CAGDC (const char *pszDriver, const char *pszDevice, 
const char *pszOutput, const DEVMODE *pDevMode) 

m_hDC - : :CreateDC (pszDriver, pszDevice, pszOutput, pDevHode); 
Init (); 

} 

// // 

// 

CAGDC: :CAGDC (HDC hDC) 
{ 

m„hDC - hDC; 
Init C); 

HUbGivenDC ^ true; 

} 
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// // 

CAGDC:rCAGDC () 
{ 

if (m_hDC) 
{ 

CieanUp (); 

if (I m^bGivenDC) 

: :DeleteDC (m„hDC) ; 
m hDC = miL-r 



} 



} 



// 

// 

void CAGDC: : Cleanup () 
{ 

if (m^hOldPalette) 

: :SelectPalette (m„hDC, m.hOIdPalette, true); 
if {m_.h01dFant) 

^ HFOlsTT hFont - (HFOOT) : :SelectObject (irL.hDC, m^hOldFont) ; 
: rDeleteObject (hFont) ; 

} 

} 



// 

// . : 

void CAGDC: :CreatePalette () 

O m„hPalette ^ HULL; 

LPLOGPALETTE IpLogPaiette; 



-// 



5 • : 



int nPaletteSize - siseof (LOGPALETTE) + (216 * sizeof (PALETTEEOTRY) ) ; 
if ((IpLogPaletts - (LPLOGPALETTE) xnalloc (nPaletteSize) ) [- IsIULL) 

^ memset (IpLogPalette, 0, nPaletteSxze) ; 
lpLoBPalette~>palVersion = 0x300; 
lpLogPalette->paiNuinEntries « 216; 
for (int r - 0, n - 0; r < 6; r++) 
{ 

for (int g - 0; g < 6; g++) 

{ 

for (int b « 0; b < 6; b++, n+-h) 

^ lpLogPalette->palPalEntry[n] .peRed = (BYTE) (r * 51); 
lpLogPalette->palPalEntr5^[n] .peGreen - (BYTE) (g * 51); 
lpLogPalette->palPalEntry[n].peBlue - (BYTE) (b * 51); 

} 

} 

m_hPalette ^ ; :CreatePalette (IpLogPalette) ; 
free (IpLogPalette) ; 



} 



// 



void CAGDC: :Dither (const BYTE *pSrcBits, BYTE *pDstBits, int nSrcBitCount , 
int nDstWidth, int Fixed fixSrcStepX, const RGBQUAD »pColors) const 

^ Fixed fixPosX - (fixSrcStepX >> 1); 
WORD wSrcPosX - 0; 
int Red « 0; 
int Green ^ 0; 
int Blue = 0; 

BYTE b Index, bTemp, bRedTemp, bGreenTemp, bBlueTemp; 

for (mt x * 0; X < nDstWidth; x++) 
{ 

wSrcPosX ^ FixedToInt (fixPosX); 



if (nSrcBitCount «= 8) 
{ 
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fa Index ^ pSrcBits[wSrcPosX] ; 
Red = pColors[bIndeK] -rgbRed; 
Green = pCalors[bIndeK] .rg[bGreen; 
Blue pColctrs[bIndeK] .rgbBlue; 

} 

else if (nSrcBitCount 24) 
{ 

wSrcPosX *^ 3; 
Blue = pSrcBits[wSrcPosX] ; 
Green = pSrcBits [wSrcPosX +1]; 
Red - pSrcBits[wSrcPosX +2]; 

} 

else if (nSrcBitCount 4) 
{ 

if (wSrcPosX % 2) 

bIndeK « (BYTE) (pSrcBits [wSrcPosX >> 1] & OKOf); 

else 

bindex = (BYTE) (pSrcBxts[wSrcPosX >> 1} >> 4); 
Red = pColorsfblndes] .rgbRed; 
Green = pColors [bindes] .rgbGreen; 
Blue « pColors [binder] .rgbBlue; 

} 

fiKPosX +^ fixSrcStepX; 

bTemp = aHalftonel6xl6[ (k & OxOf)][(y & OxOf)]; 
bRedTemp aDividedBy51[Red] ; 
bGreenTemp = aDividedByB 1 [Green] ; 
bBlueTemp ^ aDividedBySl [Blue] ; 

if (aModulo51[Red] > bTemp) 

bRedTemp++; 
if (aModuloBl [Green] > bTemp) 

bGreenTemp+H- ; 
if (aModulcr51[Blue] > bTemp) 

bBlueTemp+-H; 

pDstBits[x] - (BYTE) (aTimes 35 [bRedTemp] + aTimes 6 [bGreenTemp] + bBlueTemp) 



12/ 

// 

svoid CAGDC: :EstTextOut ( int int y, UHsTT nOptions, const RECT *pRect, 
const TCHAR *pszString, UIOT nCount, const int *pDxWidths) 

H 

if (m.bDoTransform) 

{ 

int *pWidths = IsfULL; 
if (pDxWidths) 
{ 

pWidths = new int [nCount]; 

CAGMatrix CT^ = GetCTm (); 
int Angle ==0; 

if (CTbd.GetRotation (Angle)) 
CTM, Rotate (-Angle / 10); 

int nCurX 0; 
int nPrevX * 0; 

for (UIOT i = 0; i < nCount; i++) 
{ 

nCurX pDxWidths[i] ; 
POIOT Pt - {nCurX, 0}; 

if (Angle t« 0) 

CTM. Transform (&Pt, 1, false); 

else 

LPAtoDPA (&Pt. 1); 

pWidths[i] « Pt.K - nPrevX; 
nPrevX « Pt.x; 



O 
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} 

POIOT Pt = {X, y}; 
LPtoDP (&Pt, 1); 

::ExtTeKtOut (m„hBC, Pt.x, Pt.y, nOptions, pRect, pszString, nCount, 
pWidths); 

if (pWidths) 

delete [] pWidths; 
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} 

else 
{ 



::£KtTextOut (mJiDC, nOptions, pRect, pssStrin^, nCount, 

pDsWidths); 



} 



// Fixed point division, 



Fixed CAGDC: :FixedDivide (Fixed Dividend, Fixed Divisor) const 

Fixed fixResult = 0; 

„asm 

{ 



mov 


eax, Dividend 


mov 


ecx, Divisor 


rol 


eax^lOh 


movsK 


edx,ax 


xor 


ax, ax 


idiv 


ecx 


shld 


edx,eax, 16 


mov 


[fixResult], eax 



return (fixResult); 



'^4^ Flip a DIB horizontally, vertically or both. 

"'4/ Currently only supports 8 and 24 bit DIBs. 

I 



.void CAGDC: ;FlipDIB (const BYTE *pBits, BYTE *pHewBits, 

IZ const BITMAPIKfFOHEADER *pbih, bool bFlipX, bool bFiipY) const 

le 

12 const BYTE *pSrc ^ pBits; 

int nWidth * DibWidthBytes (pbih); 

BYTE *pDest; 
int nDestInc; 

if (bFlipY) 
{ 

pDest - pNewBits '^ (nWidth * (pbih->biHeight - 1)); 
nDestInc = -nWidth; 

} 

else 
{ 

pDest pNewBits; 
nDestInc « nWidth; 

} 



for (int y = 0; y < pbih->biHeight; y++) 



if (bFlipX) 
{ 

if (pbih->biBitCount 8) 

for (int X - 0; K < pbih~>biWidth; x++) 

pDest[x] - pSrc[pbih->biWidth - x - 1]; 
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} 

else if (pbih->biBitCount 241 
{ 

for (int X - 0; X < pbih->biWidth; x++) 
int nDstOffset » k * 3; 

int nSrcOffset - (pbih->biWidth - x - 1) * 3; 
pDest[nDstOffset] - pSrc [nSrcOf fset] ; 
pDestfnDstOffset + 1] - pSrc[nSrcOf fset + 1]; 
pDest[nDstOffset + 2] = pSrc[nSrcOf fset + 2]; 

} 

} 

else 

memcpy (pDest, pSrc, nWidth); 

pSrc nWidth; 
pDest += nDestInc; 



} 



// 

// 

void CAGDC: :F3:^e () 
{ 

if (m^hPalette) 
{ 

: :DeleteObject (m^hPalette) ; 
ift^hPalette ^ bULL; 

1 ^ 

J if (nupBltBuf) 

1 { 

= free {m_pBltBuf); 

? m_pBltBuf - NULL; 

} 



'v/ 

.1! SSi 

ij/y 

n const CAGMdtriK SCAGDC : : GetCIM () 

'"1 if (m_.bUpdateC'M) 
{ 

|L| m^MatrixCTM - GetModeiingMatrix () • GetVxD (); 

H,j^ m_bUpdateC"ffl = false; 

} 

return (m^MatrixCIM) ; 

i;:::::::::::::;::::::::::::::::::::::::::::::::::::::::::;::::::::::::::::- 

int CAGDC: :GetMinAWidth (UIHT uFirstChar, UIISIT uLastChar) 

POINT MinAWidth - {0, 0}; 

int nChars ^ uLastChar - uFirstChar + 1; 

ABC *pABC = new ABC [nCharsJ; 

if {: :GetCharABCWidths (in_hDC. uFirstChar, uLastChar, pABC)) 

for (int i = 0; i < nChars; i++) 
^ MinAWidth.x - min (MinAWidth .x, pABC [i ] .abcA) ; 

delete {] pABC; 

if (iiubDoTransform) 

LPAtoDPA (SMinAWidth, 1); 

return (MinAWidth .x) ; 
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const CAGMatriK &CAGDC : : GetVxD () 
{ 

if (m„bUpdateVKD) 
{ 

m_MdtrixVxD * GetViewingMatrix (} * GetDeviceMatriK {); 
m.bUpdateVsD » fals©; 

} 

return (m„Matri kVsD ) ; 

} 



// 

const CAGMatriK StCAGDC : : GstMsV () 
{ 

if (m^btlpdateMnV) 
{ 

m_MatrixVsD « GetModalingMatrix () * GetViewingMatrix (); 
m_bUpdateMxV = false; 

} 

ret urn (m_Ma t r i xMkV ) ; 

} 

// 

// 

void CAGDC: :GetTestEKtent (const TCHAR *pString, int nCount, SI2E *pSi2e) 
{ 

: :GetTestEKtentPaint32 (m_hDC, pString, nCount, pSize); 
i f (m__bBoTrans form ) 

LPAtoDPA ((FOIKiT ») pSise. 1); 

^^// 

// 

Tilvoid CAGDC: :GetTes:tMetrics (TEXIMETRIC *ptm) const 

U{ 

I;: : :GetTeKtMe tries (Ki_hDC, ptm); 
J i f (m„b^^csTrans f orm ) 

Cj todo 

7 } 

\^// 



:>oid CAGDC::Init () 

O itulnfo.lnit (ffl^hDC); 

f 

m_bGivenDC = false; 
m^hWnd - IfJULL; 
m„h01dFont = NULL; 
m_h01dPalette = MJLL; 
if (m_Info .m_bPalette) 
{ 

if (m3Peilette NULL) 
CreatePaiette (); 

jruhOldPalette = : :SelectPalette (in_hDC, m„hPalette, true); 
; jRealisePalette (m„hDC) ; 

} 

::SetMapMode (m_hDC, MM^TEXT) ; 

;;SetTeKt Align (rK„hDC, TA.LEFT | TA„BAS£LINE | TA^NOUPDATECP ) ; 
::SetBkMode (m„hDC, TRAHSPAREOT) ; 

m^MatriKD.SetMatrix ((double) m^Info .in_nLogPixelsX / (double) APP RESOLUTION, 
0, 0, (double) m^Info.mjLogPixelsY / (double) APP^ESOLUTIOM. 
-HUlnfo.m_PrintOffset .CK> -mjnfo ,m„PrintOf fset .cy) ; 



KL.bUpdateVsD ^ true; 
si_bUpdateMKV = false; 
m^bUpdateCIM - true; 
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m„bDoTransform - true; 



} 





void CAGDC: :InvertLiRe (POIOT ptFrom, POIOT ptTo) 

HPEM hOidPen - (HPEH) : rSelectObject {mJihC. : :GetStockObject (BLACK PEN) ) ■ 
mt 01dR0P2 - ::SetR0P2 (m_hDC, R2„N0T) ; - 



} 



if (m_foDoTransfom) 

LPtoDP (SptFrom, 1); 
LPtoDP (&ptTo, 1); 

} 

: :MoveTo£K (in_hDC, ptFrom.x. ptFrom.y. NULL); 
:;LineTo (m_hDC, ptTo.x, ptTo.y); 

::SetR0P2 (m.hDC, 01dR0P2); 

: rSelectObject {m„hDC. hOldPen); 



void CAGDC : : InvertRect (const RECT &Rect) 

HBRUSH hOldBrush = (HBRUSH) : :SelectObject {mJidC, 

::GetStockObject (BLACK_BRUSH) ) ; 
HPEN hOldPen = (HPEN) : rSelectObject (m_hDC, : :GetStockObject (NULL PEN)); 
int 01dR0P2 = ::SetR0P2 (m_hDC, R2_N0T) ; - 

Rectangle (Rect); 



::SetR0P2 (KuhDC. 01dR0P2); 

: :SelectObject (itt_hDC, hOldPen); 

: rSelectObject (m_hDC, hOldBrush); 



^:^y' 



r^oid CAGDC: : Polygon (const POINT *pPts, int nPoints) """^ 

"'^^ POINT *pPoints - new POINT [nPoints]; 

|y memcpy (pPoints, pPts, nPoints * siseof (POINT)); 

~I if (m„bDoTransform) 

LPtoDP (pPoints, nPoints); 



} 



::Polygon (m_hDC, pPomts, nPoints); 
delete [] pPoints; 



// 

void CAGDC: : Rectangle (const RECT &Rect) 

RECT r = Rect; 

if (m^bDoTransform) 
{ 

xnt Angle « 0; 

if (GetClM 0 .GetRotation (Angle)) 
POINT Pts[4]; 

Pts[0].K - Pts[l].K - r.left; 
Pts[2].x = Pts[3].x - r. right; 
Pts[0],y - Pts[3].y - r.top; 
Pts[l].y - Pts[2].y - r, bottom; 

Polygon (Pts. 4); 
return; 
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} 

LPtoDP (&r); 

} 

^ ::Rectangle (m„hDC, r.left, r.top. r. right, r. bottom); 



// 

// mil 

void CAGDC: rSetFont (const UFont &Font) 

LOGFOlsIT If - Font; 

if (m_bDoTransform) 
{ 

POINT Pt - { If.lfWidth, afos (If .IfHeight) }; 

CAGMatrix CTbi « GetCTM (); 
int Angle = 0; 

if (CTM. Get Rotation (Angle)) 

CIM, Rotate (-Angle / 10); 
CIM. Transform (S:Pt, 1, false); 
If .If Escapement ^ Angle; 

} 

else 

LPAtoDPA (ScPt, 1); 

if (Font .IfWidth 1= 0) 
I If.lfWidth - Pt.K; 

j ^ If. IfHeight - (Font . IfHeight < 0) ? -abs(Pt.y) : abs(Pt,y). 
I if (m^CurFont J- If) 

I HFOm: hFont « : :CreateFont Indirect (Self); 

I HFOOT hOldFont - (HFOlsiT) : :SelectObject (m^hDC, hFont); 

I if (m^hOldFont) 

\ : :DeleteObject (hOldFont); 

? else 

m^hOldFont « hOldFont; 
\ m„CurFont ^ If; 

} 



^n^oid CAGDC: jSetTextColor (COLORREF Color) const 

13 

if (m_Info.m_bPalette) 

Color j= PALETIERGB^FLAG; 



} 



: :SetTestColor (mJDC, Color) j 



bool CAGDC: :StartDoc (const char *pszDocMame) const 
DOCINFO di; 

memset (Mi. 0, sizeof (di)); 
di.cbSize * siseof (di); 
di.lpszDocName « pszDocName; 
^ return (::StartDoc (m_hDC, &di) > 0); 

// _ 

iiiiiiiii:::::::::::::::::::::::::""^^ 

bool CAGDC: :StartPage () " 

if (m^OldFont) 
{ 

HFOOT* hFont - (HFObTT) : rSelectObject (m„hDC, m„h01dFont); 



Title : WorkxCrtPrtxAxctpWDC , cpp 



Page: 10 



::DeleteObject (hFont); 
ituhOldFont - IsIULL; 

LOGFOOT If; 

memset (&lf, 0, sizeof (If)); 
m__CurFout .setLogFont (If); 

bool bReturn « (::StartPage (m_hDC) > 0); 
::SetMapMode (m^hDQ. MM„TEKT) ; 

: iSstTeKt Align (m_hDC, TA_.LEFT | TAJASELIME | TA NOUPDATECP) 
:;SetBkMode (rnJiBC, TRANSPARENT); 

return (bReturn); 



-// 



yy 

yy ~ 

void CAGDC: :StretchBlt (RECT DestRect, const void »pvBits, 

const BITMAPIKfFO *pbi) 
{ 

if (m_bDoTransform) 

LPtoDP (£.DestRect); 

if (WIDTH (DestRect) 0 | 1 HEIGHT (DestRect) 0) 
return ; 

if (m„Info.m_bRasDisplay) 

i if (m„pBltBuf NULL) 

J m_pBltBuf (BYTE *) malloc (BLTBUFSIZE) ; 

?^ 

il if (iiL_pBltBuf ) 

: { 

StretchBlt2 (DestRect . left, DestRect .top, 
y WIDTH (DestRect), HEIGHT (DestRect), pvBits, pbi); 

t } 

else 

{ 

i booi bFlipX - (WIDTH (DestRect) < 0); 

1 bool bFlipY = (HEIGHT (DestRect) < 0); 

if (bFlipX I i bFlipY) 

y { 

a BYTE *pNewBits = (BYTE *) malloc (DibSizelmage (S=pbi->bmiHedder) ) ; 

FlipDIB ((BYTE *) pvBits, pNewBits, S:pbi->bmiHeader. bFlipX, bFlipY). 
f if (bFlipX) ^ ^ ^ 

3 ^AP {DestRect, left, DestRect .right ) ; 

if (bFlipY) 

SWAP (DestRect. top, DestRect .bottom) ; 
: :StretchDIBits (in„hDC, DestRect , left , DestRect .top, 
WIDTH (DestRect), HEIGHT (DestRect), 
0, 0, pbi->bmiHeader.biWidth, pbi->bmiHeader .foiHeight, 
pNewBits, pbi, DIB„RGB„COLORS, SRCCOPY) ; 
free (pNewBits); 

} 

else 
{ 

: :StretchDIBits (m_hDC, DestRect . left , DestRect .top, 
WIDTH (DestRect), HEIGHT (DestRect), 

0, 0, pbi->bmiHeader.biWidth, pbi->bmiHeader .biHeight, 
pvBits, pbi, DIB„RGB_COLORS, SRCCOPY); 

} 

} 



void CAGDC: :StretchBlt2 (int nDstX, int nDstY, int nDstWidth, int nDstHeiqht, 
^ const void »pvBits, const BITMAPINFO *pbi) const 

struct 
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{ 

B ITMAP IHFOHEADER b i h ; 
RGBQUAD Colors f 256]; 

} tTewHdr; 

HewHdr.bih.biSize = siseof ( BITMAP IHFOHEADER ) ; 
MewHdr.bih.biWidth ^ nDstWidth; 
IsfewHdr.bih -biHeight « 0; 
NewHdr.bih.biPlanes = 1; 
NewHdr.bih.biCompression BI_RGB; 
NeTf^dr.bih.biSizelmage « 0; 
Ne^dr.bih.biXPelsPerMster - 0; 
NewHdr.bih.biYPelsPerMeter ^ 0; 
NewHdr.bih.biClrUsed « 0; 
NawHdr.bih .biClrlHiportant 0; 

UIKIT iUsage - DIB^RGB^COLORS; 

if (m„Info.m_bPalette) 
{ 

HewHdr.bih.blBitCount * 8; 
NewHdr.bih.biClrUsed « 256; 
for [mm i - 0; i < 256; i++) 

{(WORD *) Ne?flHdr.CoIors)[i] - i; 
iUsage - DIB_PAL„COLORS; 

} 

else 
{ 

if (pbi->bmiHeader .biBitCount 1 j | pbi->bmiHeader ,biBitCount 4) 
HewHdr.bih.biBitCount ^ 8; 

else 

MewHdr.bih. biBitCount * pbi->bmiHeader .biBitCount ; 
NewHdr .bih .biCIrUsed = pbi->bmiHeader,biClrUsed; 

memcpy (NewHdr .Colors, pbi->bmi Colors, pbi->bmiHeader.biClrUsed » sizeof (RGBQUAD)); 

} 

DWORD dwSrcWidthBytes « DibWidthBytes (£:pbi->fomiHeader) ; 
DWORD dwDstWxdthBytes * DibWidthBytes (S^ewHdr .bih) ; 
int nMaxLinesPerBlt =* BLTBUFSI2E / dwDstWidthBytes; 
if (nMasLinesPerBlt > MAX„LINESPERBLT) 
nMaxLinesPerBlt » MAX^LHsTESPERBLT; 
NewHdr^bih.biHeight = nMaxLiaesPerBlt ; 

BYTE *pSrceitsStart - ((BYTE «) pvBits) + ( Cpbi->bmxHeader .biHeight - 1) * dwSrcWidthBytes); 
BYTE *pSrc:Bits - MILL; 

BYTE *pDstBits = m_pBltBuf + ( (nMasLinesPerBlt - 1) * dwDstWidthBytes); 
BYTE *pPrevDstBits ^ NULL; 

bool bHoXStretch = (nDstWidth === pbi->bmiHeader .biWidth pbi->bmiHeader .biBitCount 4 

pbi->bmiHeader.biBltCount 1); 
int nLinesToBlt = 0; 

FiKed fixSrcStepX FiKedDivide (IntToFixed (pbi->bmiHeader.biWidth) , IntToFixed (nDstWidth) ) ; 

Fixed fixSrcStepY - FixedDivide (IntToFxKed (pbi->bmiHeader,biHeight) , IntToFixed (nDstHeight ) ) ; 

Fixed fixPosX = 0; 

Fixed fixPosY = (fixSrcStepY >> 1); 

WORD wSrcPosX = 0; 

WORD wSrcPosY « 0; 

WORD wPrevPosY = Oxffff; 

for (int y « 0; y < nDstHeight; y++) 
{ 

wSrcPosY = FixedToInt (fixPosY); 

pSarcBits « pSrcBitsStart - (wSrcPosY * dwSrcWidthBytes); 

if (m„Info.m_bPalette) 
{ 

Dither (pSrcBits, pDstBits, pbi->bmiHeader .biBitCount , nDstWidth, y, fixSrcStepX, 
pbi->bmiColors) ; 

} 

else if (wSrcPosY == wPrevPosY) 

memcpy (pDstBits, pPrevDstBits, dwDstWidthBytes); 
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0, 0, nDstWidth, nLinesToBlt, pDstBits, (BITMAPIMFO *) SNewHdr.bih, 
iUsa^e, SRCCOPY) ; 

} 

} 

// // 

// // 

CAGPaintDC: :CAGPaintDC (tMTD hWnd) 
{ 

m_hDC « ::BeginPaint (hWnd, &m_PaintStruct) ; 
Init (); 
ra__h^nd - hWnd; 

} 

// 

// // 

CAGPaintDC: rCAGPaintDC () 
{ 

if (mJDC) 
{ 

Cleanup (); 

::EndPaint (m_hWnd, Sm^PaintStruct) ; 
m„hDC - IsIULL; 

} 

} 

// // 

// // 

CAGClientDC: :CAGClieRtDC (IMsJD hWnd) 

.„{ 

J m_hDC - ::GetDC (hWnd); 

3 ^^^^ ()' 

S m__hWnd ^ hWnd; 

I;} 

J// // 

, // 

"CAGClientDC: rCAGClieatDC () 
;j if (iiL.hDC) 

: { 

:^ Cleanup (); 

= ::ReleaseDC (m^hWnd, m^hDC); 

y itUiBC =* NULL; 

;i ' 

^J./ „ 

^/ ^ 

""l^^AGIC : iCAGIC (const char «pszDriver, const char *pssDevice^ 
const char «pS20utput, const DET^/MODE *pDevMode) 

{ 

- : '.Create I C (pszDriver, pszDevice, pszOutput, pDevMode); 
Init (); 

} 

// ^ // 

// ^ 

CAGDIBSectionDC: :CAGDIBSectionDC (const BIIHAPINFO *pbffii. UIlsIT iUsage, 
BVTE **ppvBits) 

{ 

m_hDC = : ;CreateCompatibleDC (NULL); 

m„hBitmap « : :CreateDIBS©ction (m_hDG, jpbmi, iUsage, (void **) ppvBits, 
tJULL, 0); 

m.hOldBitmap ^ (HBITMAP) : :SelectObject (m„hBC, m„hBitmap); 
Init (); 

} 



// 

CAGDIBSectionDC: : "CAGDIBSectionDC () 
{ 

if (in„hDC) 
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else if (bNoXStretch) 

memcpy (pDstBits^ pSrcBits, dwDstWidthBytes) ; 

else 
{ 

fixPosX - (fisSrcStepX » 1); 

if (pbi->bttiiHeader,biBxtCount « 8) 

{ 

for (mt X - 0; X < nDstWidth; 
{ 

pDstBits[5£] = pSrcBits[FisedToInt (fiKPosX)]; 
fiKpesX f iJiSrcStepX; 

} 

} 

else if (pbx~>bmiHedder.biBitCount 24) 
{ 

for (int X = 0; x < nDstWidth; x++) 
{ 

^rcPosX - (WORD) (FixedToInt Cfi^PosX) * 3); 
int xDstPos ^ K * 3; 

pDstBits[xDstPos] = pSrcBitsfwSrcPosX] ; 
pDstBits[xDstPos + 1] = pSircBits [wSrcPosX + 1]; 
pI)stBits[xDstPos + 2] pSrcBits [wSrcPosX + 2]; 
fixPosX fixSrcStepX; 

} 

} 

else if (pbi->bmiHeader .biBitCount 4) 
{ 

for (int X = 0; x < nDstWidth; x+4-) 
{ 

wSrcPosX = FixedToInt (fixPosX); 
if (wSrcPosX % 2) 

pDstBits[x] - (BYTE) (pSrcEits[wSrcPosX >> 1] £= OxOf); 

else 

pDstBits[x] ^ (BYTE) (pSrcBits JwSrcPosX >> 1] >> 4); 
fixPosX += f ixSrcStepX; 

} 

} 

else if {pbi-->bmiHeader.biBitCount === 1) 
{ 

for (mt K 0; X < nDstWidth; k++) 
{ 

wSrcPosX ^ FixedToInt (fixPosX); 
int nBitPos - wSrcPosX % 8; 

pDstBits[x] - (BYTE) ( {pSrcBits [wSrcPosX / 8] >> (7 - nBitPos)) S< 0x01); 
fixPosX f ixSrcStepX; 

} 

} 

} 

wPrevPosY wSrcPosY; 
pPrevDstBits ^ pDstBits; 

if (++nLinesToBlt >- uMaxLinesPerBlt) 
{ 

: :StretchDIBits {m_hDC. nDstX, nDstY, nDstWidth, nLinesToBlt. 

0. 0, nDstWidth, nLinesToBlt, m„pBltBuf, (BITMAPIt^FO ») fflewHdr,bih, 

iUsage, SRCCOPY) ; 
nDstY nLinesToBlt; 
nLinesToBlt « 0; 

pDstBits ^ in„pBltBuf + ( (nMaxLinesPerBlt - 1) » dwDstWidthBytes); 

} 

else 

pDstBits dwDstWidthBytes; 
fixPosY fixSrcStepY; 



if (nLinesToBlt) 
{ 

MewHdr.bih .biHeight « nLinesToBlt; 

pDstBits ^ m^pBltBuf + ((nMaxLinesPerBlt - nLinesToBlt) * dwDstWidthBytes); 
; :StretchDIBits (xn^hDC, nDstX, nDstY, nDstWidth, nLinesToBlt, 
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Cleanup (); 

: :SelectObject (jtL.hDC, nu.h01dBitmap) 
: rDeleteObject (m_hBitmap); 
::DeleteDC (m_hDC); 
m_hDC = NULL; 

} 

} 
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// Ctp.h : Declaration of the CCtp 

#ifndef _CTP„H„ 
#defiRe _CTP_H. 

#include "CtlPanel.h" 

#include "AGDoc.h" 

#include "AGSym.h" 

#include "AGDC.h" 

#include "Font.h" 

#include "npapi.h" 

class CCtp : public CWindowImpl<CCtp> 
{ 

public : 
CCtpO 
{ 

iu„pCtl Panel = NULL; 
ra„pClientDC = IsIULL; 
mjAGDoc ^ NULL; 
m„pText « NULL; 

SetRect (SaEiJageRect, 0. 0. 0, 0); 
SetRect (Scm„ShadowRect, 0, 0^ 0, 0). 
m_pDownloadData = NULL; 
m^dwDownloadSize ==0; 
m_hSitmap = NULL; 
m_S2FontURL[0] - 0; 
rajNPPInstance - HULL; 
fi m.bHasFocus = false; 

K 



BEGIR|MSG_MAP (CCtp ) 

imSSAGE HANDLER (V#L.CREATE, OnCreate) 
fi^ SSAGE^HANDLER (WM„DESTROY , OnDestroy ) 
MESSAGE^HANDLER (W^JRASEBKGND , OnEraseBkgnd ) 
MgSSAGE„HANDLER(V^_PAINT, OnPaint) 
^SSAGE„HANDLER(VM„CHAR, OnChar) 
MSSAGE_HANDLER(y^„REYDOWN. OnKeyDown) 
MESSAGE_HANDLER{V^„KEYUP, OnKeyUp) 
pSSAGE HANDLER (WK„LBUnONDBLCLK, OnLButtonDblClk) 
^SSSAGE„HANDLER(V^^M_LBUTTONI)OM^, OnLButtonDown) 
MBSSAGE„HANDLER(V^_LBUTrONUP, OnLButtonUp) 
SSAGE„HANDLER (WM_M0USEMOVE , OnMouseMove ) 
ffiSSAGE^HANDLER (V^„RILLFOCUS , OnKi 1 IFocus ) 
|if|:SSAGE„HANl)LER(V^„SETFOCUS. OnSetFocus) 
^SSAGE_HANDLER(WM_TIMER, OnTimer) 

END_^^G HAP ( ) 



public: 



LRESULT OnChar (UINT /»uMsg*/, WPARAM /*wParain*/. LPARAM /*lParam*/', BOOL & /*bHandled*/) ; 
LRESULT OnCreate (UINT, WPARAM, LPARAM, BOOLSt) ; 
LRESULT OnDestroy (UINT, WPARAM, LPARAM, BOOL£=) ; 
HRESULT OnDraw(ATL„DRAWINFO& di); 

LRESULT On£raseBkgnd(UINT, WPARAM, LPARAM, BOOL ScbHandled) 
{ 

bHandled = TRUE; 
return (TRUE); 

} 

LRESULT OnKeyDown (UINT /*uMsg*/, WPARAM /*wParain*/, LPARAM /*lParam*/, BOOL & /*bHandled*/) ; 
LRESULT OnKeyUp (UINT /*uMsg*/, WPARAM /*wParani*^, LPARAM /*lParam*/^, BOOL & /*bHandied»/) ; 
LRESULT OnLButtonDblClk (UINT /*uMs0*/, WPARAM /*wParam*/, LPARAM /*lParam*/, BOOL & /*bHandled* 

LRESULT OnLButtonDown (UINT /*uMsg*/, WPARAM /'*wParam*/, LPARAM /*lParam*>^, BOOL /»bHandled*/) 

LRESULT OnLButtonUp (UINT /*uMsg*/, WPARAM /*wParam*/, LPARAM /*lParam*/, BOOL & /«bHandled*/) ; 
LRESULT OnMouseMove (UINT /*uMsg*/, WPARAM /*wParam*/, LPARAM /*lParam«/, BOOL & /♦bHandled*/) ; 
LRESULT OnRillFocus (UIOT /*uMse*/. WPARAM /*wParam*/, LPARAM /*lParam*/, BOOL Sc /*bHandled*/} ; 
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LRESULT OnSetFocus (UIOT /*uMse*/, WPARAM /*wParara*/, LPARAM /*lParam»/, BOOL & /*foHandled*/} ; 
LRESULT OnTiiner (UIOT /*uMsg*/, /*wParam*/, LPARM /*lParam*/, BOOL & /*bHandl$d*/) ; 

LRESULT OnPaint (UIOT. WPARAM, LPARAM. BOOL ScbHandled) 
{ 

ATLJRAWIlsFFO di; 

PAIOTSTRUCT ps; 

BeginPaint (Sfps) ; 

dz.hdcDraw » ps.hdc; 

RECT ClientRect; 

GetClientRect (StClientRect) ; 

di.prcBounds = (const REGTL *) ScClientR^ct; 

SaveDC(di .bdcDraw) ; 

OnDraw{di) ; 

RestoreDC(di .hdcDraw, -1); 
EndPaint(Scps); 



bHandled - TRUE; 
return (TRUE); 

} 

void CreateBackPage {); 

void DrawEditRect (CABDC *pDC); 

void FileData (BYTE *pBytes, DWORD dwLen); 

void FileEnd (); 

void FileStart (); 

void FontData (const char *pszFontFile, BYTE *pBytes, DWORD dwLen); 
void FontEnd (const char «ps2FontFile) ; 
void FontStart (const char *ps2FontFila) ; 
figJOL GetAmbientDisplayMame (BSTR &) 
i.i { return (FALSE); } 

mid GetAmbientUserMode (BOOL ScbUserMode) 
{ bUserMode - TRUE; } 

fU 

£:fontList &GetFontList () 

{ return (m„FontList) ; } 
J^GSymlmage *GetImage (int nID); 
OAGText *GetTeKt () 
O { return (m_pTest); } 
Wool HasFocus () 

{ return (m.bHasFocus) ; } 
k-bid HewPageO ; 

Vis id SetFontURL (const char *pszFontURL) 
I,] { Istrcpy (m_szFontURL , pssFontURL) ; } 
Woid SetHPPInstance (HPP pinstance) 
{ m„pNPP Instance = pinstance; } 
I® id StartDownloadFont (const char *pszFontMame] 

"^"^ char szFontURL[_MAX„PATH]; 

Istrcpy (ssFontURL, m„szFontURL ) ; 
Istrcat (szFontURL, pszFontName ) ; 

l:?PH„GetURL (m„pOTPInstance, szFontURL, isfULL); 

void StartEdit (CAGSyraTeKt *pTeHt, POIOT Pt. bool bClick); 
void StopEdit ( ) ; 



protected : 

CCtlPanel 

CAGClientDC 

CAGDoc 

CAGS3miTeKt 

RECT 

RECT 

CAGMatriK 

BOOL 

BYTE 

DTORD 

HBITISlAP 

char 

NPP 

CFontList 
FOlSlTDOV^LOADARRAY 



*m_pCtIPanel ; 
*m_jiClientDC; 
*m„pAGDoc; 
*in_pTeKt ; 
m„PageRect ; 
m„ShadowRect ; 
m_ViewMatriK; 
m„bWi ndowOn ly ; 
*m_pDownloadData ; 
m„dwDown 1 oadS i ze ; 
m„hBitmap; 

m^szFontURL [_MAX_PATH] . 
in_pNPP Instance ; 
iu„FontList; 
m_FontDown 1 oadArray ; 
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bool m_bHasFocus 

}; 

#endif //_CTP_H_ 
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# Microsoft Developer Studio Project File - Hame^'WCTP" - Package Owner=<4> 

# Microsoft Developer Studio Generated Build File, Format Version 5.00 

# ** DO mi EDIT »« 

# TARGTYPE "Win32 (s86) Dynamic-Link Library" 0x0102 
CFG-NPCTP " Win32 Debug 

[MESSAGE This is not a valid makefile. To build this project using ISIMAKE, 
i MESSAGE use the Export Makefile coittmand and run 
I MESSAGE 

I MESSAGE KMAKE /f "NPCTP.MAK". 
I MESSAGE 

IMESSAGE You can specify a configuration when running IslMAKE 
(MESSAGE by defining the macro CFG on the command line. For example: 
i MESSAGE 

/MESSAGE iJMAKE /f "NPCTP.MAK" CFG-^'NPCTP - Win32 Debug" 
IMESSAGE 

IMESSAGE Possible choices for configuration are: 
IMESSAGE 

IMESSAGE "NPCTP - Win32 Release" (based on "Win32 (k86) Dynamic-Link Library") 
(MESSAGE "KPCTP - Win32 Debug" (based on "Win32 (x86) Dynamic-Link Library") 
IMESSAGE 

# Begin Project 

# PROP Scc„ProjWame ""$/1sfPCTP" , BAAAAAAA" 

# PROP Scc.LocalPath »'." 
CPP-cl .exe 

MIL^midi .exe 
RSC'^rcexe 

it ^5. 
\ -J 

!IF r5'$(CFG)" "HPCTP - Win32 Release" 

# Pill* BASE Use^MFC 0 

# PlSiP BASE Use„Debug_Libraries 0 

# PI|df» BASE Output„Dir "Release" 

# Pg(S' BASE Intennediate„Dir "Release" 

# Pll# BASE Target„Dir "" 

# PScS* Use.MFC 0 

# P^M^ Use„Debug_Libraries 0 

# ?Mp Output^Dir "Release" 

# P^P Intermediate„Dir "Release" 

# PiflP Ignore_Export_Lib 1 

# Pi^F Target Jir "" 

# ABS BASE CPP /nologo /HI /W3 /GX /02 /D "WIH32" /D "NDEBUG" /D "^WIlslDOV^" /YX /FD /c 

# Al^i^ CPP /nologo /Zp2 /NX /W3 /^GX /Ol /I "\npsdk\include" /I " . .vZLib" /I " . .\Stonehnd" /D "WIH32" 
/D 'kiDEBUG" /D "J^INDOWS" /Yu"stdaf x .h" /FD /c 

# kWm BASE MTL /nologo /D "IsTDEBUG" /mktyplib203 /o BJl /win32 

# Ajfi MTL /nologo /D "OTEBUG" /mktyplib203 /o mi /win32 

# A6b^ BASE RSC /I 0x409 /d "NDEBUG" 

# ADD RSC /I 0x409 /d "NDEBUG" 
BSC32'=bscmake .exe 

# ADD BASE BSC32 /nologo 

# ADD BSC32 /nologo 
LmR32-link.exe 

# ADD BASE LIM32 kernel32.1ib user32.1ib gdi32.1ib winspool.lib comdlg32.iib advapi32.1ib shell32.1 
ib ole32.1ib oleaut32.1ib uuid.lib odbc32.1ib odbccp32.1ib /nologo /subsystem: windows /dll /machine: 
1386 

# ADD LINK32 kernel32.iib user32.1ib gdi32.1ib comdlg32.1ib comctl32.1ib winspool.lib /nologo /subsy 
stem: windows /dll ypdhinonm /machine: I 386 

lELSEIF "$(CFG)" "HPCTP - Win32 Debug" 

# PROP BASE Use.MFC 0 

# PROP BASE Use_,Defoug_Libraries 1 

# PROP BASE Output_Dir "Debug" 

# PROP BASE Intermediate„Dir "Debug" 

# PROP BASE Target.Dir "" 

# PROP Use„MFC 0 

# PROP Use_Debug_Libraries 1 

# PROP Outputjir "Debug" 

# PROP Intermediate„Dir "Debug" 

# PROP Ignore„Export_Lib 1 

# PROP Target_Dir "" 
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# ADD BASE CPP /nologo /Mid /Gm /GX /2i /Od /D "WIN32" /D ".DEBUG" /D '^WINDOWS" /YX /FD /c 

# ADD CPP /nologo /Zp2 A^d /W3 /Gm /GX /2i /Od /I "\npsdk\include" /I "..\ZLib" /I " . .\Stonehnd" /D 
"WIN32" /D "_DEBUG" /D "^WINDOWS" /FR /Yu"stdafK .h" /FD /c 

# ADD BASE MTL /nologo /D "_DEBUG" /mktyplib203 /o MIL /win32 

# ADD UTL /nologo /D "JEBUG" /mktyplib203 /o NUL /win32 

# ADD BASE RSC /I 0x409 /d "_DEBUG" 

# ADD RSC /I 0k409 /d "_DEBUG" 
BSC32=bscmake.exe 

# ADD BASE BSC32 /nologo 

# ADD BSC32 /nologo 
LINK32=1 ink . 

# ADD BASE LINK32 kernel32*lib user32.1ib gdi32.iib winspool.lib comdlg32.1ib advapi32.1ib shell32.1 
ib ole32.1ib oleaut32.1ib uuid.lib odbc32.1ib odbccp32,lib /nologo /subsystem: windows /dll /debug /m 
achine:I386 /pdbtype :s8pt 

# ADD LINR32 kernel32.1ib user32.1ib gdi32.1ib comdlg32.1ib comctl32,lib winspool.lib /nologo /subsy 
stem:windows /dll /debug /machine: 1386 /pdbtype : sept 

lENDIF 

# Begin Target 

# Name "NPCTP - Win32 Release" 

# Name "NPCTP - Win32 Debug" 

# Begin Group "Source Files" 

# PROP Defauit„Filter "cpp;rc;def" 

# Begin Source File 

SOURCE=.\AGDC.cpp 

# Enife Source File 

# B^^n Source File 

SOUIpE«.\AGDoc.cpp 

# Ei^ij Source File 

# Be'^n Source File 

SOUSgE- . \AGLayer . cpp 

# Endi Source File 

# Bq^n Source File 

SOUi^E= .\AGMatrix ,cpp 

# Erftg Source File 

# Beg&n Source File 

SOUi|G£- . NAGPage . cpp 

# Ei|4 Source File 

# Bes^n Source File 

SOUS® ^ . NAGSym . cpp 

# End Source File 

# Begin Source File 

SOURCE- .NAGText .cpp 

# End Source File 

# Begin Source File 

SOURCE -.\Ctl Panel .cpp 

# End Source File 

# Begin Source File 

SOURCE -.\Ct p. cpp 

# End Source File 

# Begin Source File 

SOURCE«.\dblside.cpp 

# End Source File 

# Begin Source File 

SOURCE* , \Font . cpp 

# End Source File 

# Begin Source File 



SOURCE*. \npctp.def 
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# End Source File 

# Begin Source File 

SOURCE -.NtTPCTP.rc 

!IF "$(CFG)" 'TOCTP - Win32 Release" 
lELSEIF "$(CFG)" TOCTP - Win32 Debug 
lENDIF 

# End Source File 

# Begin Source File 

SOURCE- .\Npshall .cpp 

# End Source File 

# Begin Source File 

SOURCE = . \npwi n . cpp 

# End Source File 

# Begin Source File 

SOURCE- . \StdAf X . cpp 

# ADD CPP /Yc"stdafK.h" 

# End Source File 

# Begin Source File 

SOURCE=.\WaitDlg.cpp 

# End Source File 

# Eni:^ Group 

# Bi^n Group "Header Files" 

# PRW Default_Filter "h" 

# B^fin Source File 

SOUlfeft:-.\AGDC.h 

# EttdJ Source File 

# Began Source File 

SOUi^-.NAGDib.h 

# EM Source File 

# B^n Source File 

SOURti:=.\AGDoc.h 

# E1I4I Source File 

# B^pn Source File 

SOm|i:=.NAGLayer.h 

# Ei&B Source File 

# Begin Source File 

SOURCE- -NAGMatriK.h 

# End Source File 

# Begin Source File 

SOURCE -.NAGPage.h 

# End Source File 

# Begin Source File 

SOURCE ^.NAGSym.h 

# End Source File 

# Begin Source File 

SOURCE=.\AGText.h 

# End Source File 

# Begin Source File 

SOURCE -.xCtl Pane l.h 

# End Source File 

# Begin Source File 

SOURCE =,\Ct p. h 

# End Source File 
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# Begin Source File 

SOURCE = .\dblside . h 

# End Source File 

# Begin Source File 

SOURCE «.\Font.h 

# End Source File 

# Begin Source File 

SOURCE =.\prapsht.h 

# End Source File 

# Begin Source File 

SOURCE = .\resource .h 

# End Source File 

# Begin Source File 

SOURCE =.NStdAfs,h 

# End Source File 

# Begin Source File 

SOURCE - . \vers i on . h 

# End Source File 

# Begin Source File 

SOURCE-, \WaitDlg.h 

# End Source File 

# End Group 

# B#§in Group "Resource Files" 

# P|dP Default_Filter 

# Bl^in Source File 

Til 

SOuIIe- . \Res\lup . bmp 

# eM Source File 

# Belfin Source File 

S0UEiE=.\Resxlup2down .bmp 

# eM Source File 

# Bigin Source File 

SOURQE- . \Res\2down . bmp 

# EM Source File 

# Biyin Source File 

S0U|igE= . \Res\2up . bmp 

# Ei3 Source File 

# B^gin Source File 

SOURCE- , \Res\3up . bmp 

# End Source File 

# Begin Source File 

SOURCE- .\Res\AGLogo .agi 

# End Source File 

# Begin Source File 

SOURCE - " , \Res\CScPLogo . agi " 

# End Source File 

# Begin Source File 

SOURCE- . \Res\Cacf c . ttz 

# End Source File 

# Begin Source File 

SOURCE- AResWersion .rc2 

# End Source File 

# End Group 

# End Target 

# End Project 
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LIBRARY NPCTP 

EXPORTS 

NP_GetEntryPoints @1 

NP_Initialize §2 

NP_Shutdown §3 
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# Microsoft Developer Studio Project File - Name="NPCTP" - Package 
Owner=<4> 

# Microsoft Developer Studio Generated Build File, Format Version 
6.00 

# ** DO NOT EDIT ** 

# TARGTYPE "Win32 (x86) Dynamic-Link Library" 0x0102 
CFG=NPCTP - Win32 Debug 

IMESSAGE This is not a valid makefile. To build this project using 
NMAKE, 

IMESSAGE use the Export Makefile command and run 
IMESSAGE 

IMESSAGE NMAKE /f "NPCTP.MAK". 
IMESSAGE 

IMESSAGE You can specify a configuration when running NMAKE 
IMESSAGE by defining the macro CFG on the command line. For exampl 
e: 

IMESSAGE 

H MESSAGE NMAKE /f "NPCTP.MAK" CFG="NPCTP - Win32 Debug" 
J5 MESSAGE 

rrtMESSAGE Possible choices for configuration are: 
?!] MESSAGE 

ilMESSAGE "NPCTP - Win32 Release" (based on "Win32 {x86) Dynamic-Li 
IJik Library") 

■vjMESSAGE "NPCTP - Win32 Debug" (based on "Win32 (x86) Dynamic-Link 
O Library" ) 
ri MESSAGE 

-I Begin Project 

|# PROP AllowPerConf igDependencies 0 

|# PROP Scc_ProjName ""$/NPCTP", BAAAfiAAA" 

Ci PROP Scc_LocalPath "." 

Ci:PP=cl.exe 

MTL=midl . exe 

RSC=rc.exe 



!IF "$(CFG)" == "NPCTP - Win32 Release" 



# PROP BASE Use_MFC 0 

# PROP BASE Use_Debug_Libraries 0 

# PROP BASE Output_Dir "Release" 

# PROP BASE Intermediate_Dir "Release" 

# PROP BASE Targe t_Dir "" 

# PROP Use_MFC 0 

# PROP Use_Debug_Libraries 0 
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# PROP Output_Dir "Release" 

# PROP Intermediate_Dir "Release" 

# PROP Ignore_Export_Lib 1 

# PROP Target_Dir "" 

# ADD BASE CPP /nologo /MT /W3 /GX /02 /D "WIN32" /D "NDEBUG" /D " 
_WINDOWS" /YX /FD /c 

# ADD CPP /nologo /Zp2 /MT /W3 /GX /Ol /I "\npsdk\include" /I "..\ 
ZLib" II ". .\Stonehnd" /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /Yu"st 
dafx.h" /FD /c 

# ADD BASE MTL /nologo /D "NDEBUG" /mktyplib203 /o "NUL" /win32 

# ADD MTL /nologo /D "NDEBUG" /mktyplib203 /o "NUL" /win32 

# ADD BASE RSC /I 0x409 /d "NDEBUG" 

# ADD RSC /I 0x409 /d "NDEBUG" 
BSC32=bscmake . exe 

# ADD BASE BSC32 /nologo 

# ADD BSC32 /nologo 
LINK32=link.exe 

# ADD BASE LINK32 kernel32.1ib user32.1ib gdi32.1ib winspool.lib c 
omdlg32.1ib advapi32.1ib shell32.1ib ole32.1ib oleaut32.1ib uuid.l 

jib odbc32.1ib odbccp32.1ib /nologo /subsystem: windows /dll /machin 
:|:I386 

f| ADD LINK32 kernel32.1ib user32.1ib gdi32.1ib comdlg32.1ib comctl 
_f^2.1ib winspool.lib /nologo /subsystem: windows /dll /pdb:none /mac 
;iiine: 1386 

IIelSEIF "$(CFG)" == "NPCTP - Win32 Debug" 

g# PROP BASE Use_MFC 0 

rf PROP BASE Use_Debug_Libraries 1 

'5| PROP BASE Output_Dir "Debug" 

ii PROP BASE Intermediate_Dir "Debug" 

ii PROP BASE Target_Dir "" 

CI PROP Use_MFC 0 

CI PROP Use_Debug_Libraries 1 

# PROP Output_Dir "Debug" 

# PROP Intermediate_Dir "Debug" 

# PROP Ignore_Export_Lib 1 

# PROP Target_Dir "" 

# ADD BASE CPP /nologo /MTd /W3 /Gm /GX /Zi /Od /D "WIN32" /D "_DE 
BUG" /D "_WINDOWS" /YX /FD /c 

# ADD CPP /nologo /Zp2 /MTd /W3 /Gm /GX /ZI /Od /I "\npsdk\include 
" /I "..\ZLib" /I ". .\Stonehnd" /D "WIN32" /D "_DEBUG" /D "_WINDOW 
S" /FR /Yu"stdafx.h" /FD /c 

# ADD BASE MTL /nologo /D "_DEBUG" /mktyplib203 /o "NUL" /win32 

# ADD MTL /nologo /D "_DEBUG" /mktyplib203 /o "NUL" /win32 

# ADD BASE RSC /I 0x409 /d " DEBUG" 
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# ADD RSC /I 0x409 /d "_DEBUG" 
BSC32=bscmake . exe 

# ADD BASE BSC32 /nologo 

# ADD BSC32 /nologo 
LINK32-link.exe 

# ADD BASE LINK32 kernel32.1ib user32.1ib gdi32.1ib winspool,lib c 
omdlg32.1ib advapi32,lib shell32.1ib ole32.1ib oleaut32.1ib uuid.l 
ib odbc32,lib odbccp32,lib /nologo /subsystem:windows /dll /debug 
/machine : 138 6 /pdbtype : sept 

# ADD LINK32 kernel32.1ib user32.1ib gdi32.1ib comdlg32 . lib comctl 
32. lib winspool.lib /nologo /subsystem: windows /dll /debug /machin 
e: 1386 /pdbtype : sept 

lENDIF 

# Begin Target 

# Name "NPCTP - Win32 Release" 

# Name "NPCTP - Win32 Debug" 
f4 Begin Group "Source Files" 

Jl PROP Default_Filter "cpp;rc;def" 
f§ Begin Source File 

||0URCE= . \AGDC . cpp 
End Source File 
if Begin Source File 

if OURCE- . \AGDoc . cpp 
'-■i End Source File 
l# Begin Source File 

CSOURCE- . \AGLayer . cpp 
CJ End Source File 

# Begin Source File 

SOURCE== . \AGMatrix . cpp 

# End Source File 

# Begin Source File 

SOURCE- . \AGPage . cpp 

# End Source File 

# Begin Source File 

SOURCE^ • \AGSym. cpp 

# End Source File 
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# Begin Source File 

SOURCE- . \AGText . cpp 

# End Source File 

# Begin Source File 

SOURCE- . \Ct IPanel . cpp 

# End Source File 

# Begin Source File 

SOURCE=ACtp.cpp 

# End Source File 

# Begin Source File 

SOURCE- Adbl side . cpp 

# End Source File 

# Begin Source File 

SOURCE- . \Font . cpp 
End Source File 
Begin Source File 

f SOURCE- . \npctp . de f 
;| End Source File 
[| Begin Source File 

f loURCE- . \NPCTP . rc 
J End Source File 
f| Begin Source File 

igOURCE^ . \Npshell • cpp 
|# End Source File 
r| Begin Source File 

SOURCE== . \npwin . cpp 

# End Source File 

# Begin Source File 

SOURCE- . \S tdAf X , cpp 

# ADD CPP /Yc"stdafx.h 

# End Source File 

# Begin Source File 

SOURCE- • \WaitDlg . cpp 

# End Source File 

# End Group 
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# Begin Group "Header Files" 

# PROP Default^Filter "h" 

# Begin Source File 

SOURCE=.\AGDC.h 

# End Source File 

# Begin Source File 

SOURCE-. \AGDib.h 

# End Source File 

# Begin Source File 

SOURCE- AAGDoc.h 

# End Source File 

# Begin Source File 

SOURCE- . \ AGLayer . h 

# End Source File 
^4 Begin Source File 

J J0URCE= . \AGMat rix . h 
fi# End Source File 
3 Begin Source File 

•^JoURCE-AAGPage.h 
rj End Source File 
^# Begin Source File 

f 1 

^=i^OURCE- . \ AGSym . h 
iS End Source File 
h4 Begin Source File 

C50URCE= . \AGText . h 

# End Source File 

# Begin Source File 

SOURCE= . \CtlPanel . h 

# End Source File 

# Begin Source File 

SOURCE=.\Ctp.h 

# End Source File 

# Begin Source File 

SOURCE=.\dblside.h 
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# End Source File 

# Begin Source File 

SOURCE^AFont.h 

# End Source File 

# Begin Source File 

SOURCE== . \propsht , h 

# End Source File 

# Begin Source File 

SOURCE^ . \resource . h 

# End Source File 

# Begin Source File 

SOURCE=AStdAfx.h 

# End Source File 

# Begin Source File 

.,^OURCE= . \version . h 
j4 End Source File 
Begin Source File 

' JOURCE- . \WaitDlg . h 
h";| End Source File 

End Group 
f§ Begin Group "Resource Files" 

if PROP Default_Filter "" 
%| Begin Source File 

|£OURCE- . \Res \ lup . bmp 
t3 End Source File 
f3 Begin Source File 

SOURCE= . \Res\ lup2down • bmp 

# End Source File 

# Begin Source File 

S OURCE= A Re 8 \ 2 down . bmp 

# End Source File 

# Begin Source File 

S0URCE-ARes\2up.bmp 

# End Source File 

# Begin Source File 
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S OURCE- . \ Re s \ 3 up . bmp 

# End Source File 

# Begin Source File 

SOURCE- . \Res\AGLogo . agi 

# End Source File 

# Begin Source File 

SOURCE-" . \Res \C&PLogo . agi 

# End Source File 

# Begin Source File 

SOURCE=.\Res\Cacfc .ttz 

# End Source File 

# Begin Source File 

SOURCE-, \Res\Version • rc2 

# End Source File 
^# End Group 
i# End Target 
^# End Project 
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Microsoft Developer Studio Workspace File, Format Version 6.00 
# WARNING: DO NOT EDIT OR DELETE THIS WORKSPACE FILE! 

############# 

Project: "NPCTP"=. \NPCTP. DSP - Package Owner=<4> 

Package=<5> 
{{{ 

begin source code control 
"$/NPCTP", TAAAAAAA 

m 

end source code control 

}}} 

Package=<4> 

{{{ 

Begin Project Dependency 
^ Project_Dep_Name ZLib 
■ End Project Dependency 

Begin Project Dependency 

Project_Dep_Name Stonehnd 

End Project Dependency 

;-############# 

:1Project: "Stonehnd"=. . \Stonehnd\Stonehnd.dsp - Package Owner=<4> 

5'ackage=<5> 
3H{ 

g begin source code control 
"$ /Stonehnd", CGAAAAAA 
. . \stonehnd 

end source code control 

}}} 

Package=<4> 

{{{ 

}}} 

#########################################################|^######## 
############# 
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Project: "ZLib"=. . XZLibXZLib.dsp - Package Owner=<4> 

Package=<5> 

{{{ 

begin source code control 
"$/ZLib", LBAAAAAA 
. . \zlib 

end source code control 

}}} 

Package=<4> 

{{{ 

}}} 

################################################################## 
############# 

Global: 



.=Package=<5> 

JS begin source code control 
};; "$/NPCTP", TAAAAAAA 

M end source code control 

!''Package=<3> 
Q}} 

£############# 
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<html> 
<body> 
<pre> 

<hl>Build Log</hl> 
<h3> 

Configuration: NPCTP - Win32 Release 

</h3> 

<h3>Co2nmand Lines</h3> 

Creating coittmand line "rcexe ^1 0x409 /fo"Release/lsIPCTP,res" /d "IsfDEBUG" "C :\Work\CrtPrtNNpCtpNHPCT 
P.rc" " 

Creating temporary file "c:\windows\TEMP\RSP6194.IMP" with contents 
[ 

/nologo /Zp2 /OT /W3 /GX /Ol /I "\npsdk\include" /I "..\ZLib'* /I " . . xStonehnd " /D "WIN32'' /D "NDEBUG 

*' /D "^WINDOWS" /Fp"Release/lsIPCTP.pch" /Yu"stdafK.h" /Fo "Release/" /Fd "Release/" /FD /c 

"C : \Work\CrtPrt\NpCtp\AGDC . cpp " 

"C : \Work\CrtPrtN^pCtp\AGDoc . cpp" 

"C : \Work\CrtPrtNNpCtp\AGLayer , cpp " 

"C : \Work\CrtPrt\NpCtp\AGMatriK . cpp " 

"C : \Work\CrtPrtNNpCtp\AGPage . cpp " 

"C : \Work\CrtPrt\NpCtp\AGSyin . cpp " 

"C : \Work\CrtPrt\NpCtp\AGTeKt . cpp '* 

"C:\Work\CrtPrtNtTpCtp\CtlPanel .cpp'' 

"C : \Work\CrtPrtNHpCtp\Ctp . cpp " 

" C : \Work\CrtPrtNHpCt pNdbl s i de . cpp " 

"C : \Work\CrtPrt\lsrpCtp\Font . cpp ** 

"C : \Work\CrtPrtNNpCtpNjNfpshel 1 , cpp " 

"C : \Work\CrtPrtNNpCtp\npwin . cpp " 

"C :\Work\CrtPrtNJ^pCtp\WaitDig .cpp" 

] 

Creating command line "cl.eKe @c :\windows\TEMP\RSP6194 .IMP" 
Crealing temporary file "c :\windows\TEMP\RSP6195 ."mP" with contents 

/noiSgo /Zp2 /MI /W3 /GX /Ol /I "\npsdk\inciude" /I ",.\ZLib" /I " . .\Stonehnd" /D "WIN32'" /D "HDEBUG 
" /pJ"„WINDOWS" /Fp"Release>4^PCTP,pch" /Yc"stdafx.h" /Fo"Release/" /Fd"Release/" /FD /c 
"C : N&ork\CrtPrtNHpCtp\StdAf s: . cpp " 

] ;1 

Creli^ing command line "cl.exe ic :\window8\TEMP\RSP6195 .IMP" 
Creeling temporary file "c:\windows\TEMP\RSP6196.TMP" with contents 

ksr^il32.1ib user32.1ib gdi32.1ib comdlg32,lib comctl32.1ib mnspool.lib /nologo /subsystem -.windows 
/dli /pdb:none /machine : 1386 /def : " .\npctp ,def " /out : "Release/NPCTP.dll " /implib : "Release/NPCTP . lib" 

. \R^J easeNAGDC . ob j 

. \Re"ieaseNAGDoc . ob j 

. \RbleaseNAGLayer . ob j 

.\Rfelease\AGMatrix .obj 

. NR^"iease\AGPage . obj 

. \R|3easeNA0Sym . obj 

. \RMease\AGText . obj 

.\Release\CtlPanel .obj 

,\Release\Ctp ,obj 

.\Release\dblside .obj 

. \Release\Font . obj 

.\ReleaseSbJpshell ,obj 

. \Re 1 easeXnpwi n . obj 

. \Release\StdAf s , obj 

.\Release\WaitDlg .obj 

. NReleaseNNPCTP . res 

\Work\CrtPrt\2Lib\Release\ZLib .lib 

\Work\CrtPrt\Stonehnd\Release\Stonehnd .lib 

] 

Creating command line "link.exe @c :\windows\TEMP\RSP6196 .IMP" 

<h3>0utput Window</h3> 

Compiling resources. . . 

Compiling . . , 

StdAf K . cpp 

Compiling . . . 

AGDC . cpp 

AGDoc .cpp 

AGLayer .cpp 

A(a»fatriK.cpp 

AGP age .cpp 

AGSym . cpp 
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AGText.cpp 
CtlPanel ,cpp 
Ctp.cpp 
dbiside ,cpp 
Font-cpp 
Mpshell .cpp 
npwin.cpp 
WaitDlg.cpp 
Generating Code. . . 

C;\Work\CrtPrt\NpCtp\Ctp.cpp(667) ; warning C47B0: local variable 'bstr' used without having been in 

itialized 

Linking . , . 

Creating library Release/NPCTP . lib and object Release^PCTP.eKp 
LINK : warning LMR4089: all references to "0LEAUT32 .dll" discarded by /OPT:REF 



<h3>Results</h3> 

HPCTP.dll - 0 error (s), 2 warning (s) 

</pre> 

</body> 

</litial> 
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//Microsoft Developer Studio generated resource script. 

#include "resource. h" 

#define APSTUDIO_READONLY_SYMBOLS 

// 

// Generated from the TEXTINCLUDE 2 resource. 
// 

#include "afxres.h" 

#undef APSTUDIO_READONLY_SYMBOLS 

'///////////''' II ll'l'l I 
11 English (U.S.) resources 

■S3#if ! defined (AFX_RESOURCE_DLL) || defined (AFX TARG ENU) 
^i#ifdef _WIN32 

iilLANGUAGE LANG_ENGLISH, SUBLANG_ENGLISH_US 
= ppragma code_page ( 1252) 
j;^#endif //__WIN32 

I^ifdef APSTUDIO_INVOKED 

;v///////////////////////////////////////////////////////////////// 

:v////////// 

:t/ 

-VI TEXTINCLUDE 

f ''I 

f=i TEXTINCLUDE DISCARDABLE 
'"BEGIN 

"resource. h\0" 

END 

2 TEXTINCLUDE DISCARDABLE 
BEGIN 

"#include ""afxres.h""\r\n" 

END 

3 TEXTINCLUDE DISCARDABLE 
BEGIN 

"#include ""ResWVersion. rc2""\r\n" 
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"\0" 



END 



#endif // APSTUDIO INVOKED 



iiiiiiiiiiiinuiininniiiiiiiiiiiKiiifmiifiiiiinniininii 

mil III III 

II 

II Dialog 
// 



IDD_CTLPANEL DIALOGEX 0, 0, 137, 169 

STYLE WS_CHILD 

EXSTYLE WS_EX_TRANS PARENT 

FONT 12, "CAC Futura Casual", 0, 0, 0x1 

BEGIN 



LTEXT 
CONTROL 
310,8,73,10 
a CONTROL 
ijTTON, 10, 

1 CONTROL 
•iuTTON, 10, 

3 CONTROL 
0,31,73,10 

3 LTEXT 

■-m 

y COMBOBOX 



"View Card Panel", IDC_STATIC, 3, 1, 122, 8 
"Front", IDC_PAGE1, "Button", BS_AUTORADIOBUTTON, 

"Inside Left", IDC_PAGE2, "Button", BS_AUTORADIOB 

15,73,10 

"Inside Right", IDC_PAGE3, "Button" , BS_AUTORADIO 
23,73, 10 

"Back", IDC_PAGE4, "Button", BS_AUTORADIOBUTTON, 1 

"Font", IDC_STATIC, 3, 44, 122, 8, 0, WS_EX_TRANSPARE 

IDC_FONT, 10, 53, 122, 112, CBS_DROPDOWNLIST | 

CBS OWNERDRAWFIXED I CBS SORT | CBS HASSTRINGS 



LTEXT 
NS PARENT 

COMBOBOX 
SCROLL I 

LTEXT 
NS PARENT 

COMBOBOX 



LTEXT 



WS_VSCROLL I WS_GROUP I WS_TABSTOP 

"Point Size", IDC_STATIC, 3, 68, 122, 8 , 0 , WS_EX_TRA 

IDC_PTSIZE,10,77,38,88,CBS_DROPDOWNLIST | WS_V 

WS_GROUP 1 WS_TABSTOP 

"Text Color", IDC_STATIC, 3, 92, 122, 8, 0,WS_EX_TRA 

IDC_COLOR, 10, 101, 67, 67,CBS_DROPDOWNLIST | 
CBS_OWNERDRAWFIXED | WS_VSCROLL i WS_TABSTOP, 
WS_EX_TRANS PARENT 

"Text Alignment", IDC_STATIC, 3, 117, 122, 8, 0, 

WS EX TRANSPARENT 
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CONTROL 
WS_GROUP 1 

CONTROL 
N, 10, 132, 

CONTROL 
10,140,48, 



PUSHBUTTON 



END 



"Left", IDC_LEFT, "Button", BS_AUTORADIOBUTTON i 

WS_TABSTOP, 10, 124, 4 8 , 1 0 , WS_EX_TRANS PARENT 
"Center", IDC_CENTER, "Button", BS_AUTORADIOBUTTO 

48,10, WS_EX_TRANS PARENT 

"Right", IDC_RIGHT, "Button", BS_AUTORADIOBUTTON, 

1 0 , WS_EX_TRANS PARENT 
"Print", IDC_PRINT, 3, 154, 50, 11 



1538 DIALOG DISCARDABLE 32, 32, 287, 157 

STYLE DS_MODALFRAME | DS_3DL00K | DS CONTEXTHELP | WS POPUP | WS V 
ISIBLE I ~ - - 

WS_CAPTION I WS_SYSMENU 
CAPTION "Print" 
FONT 8, "MS Sans Serif" 
BEGIN 

^ GROUPBOX "Printer",1075,8,4,272,84,WS_GROUP 
I LTEXT "&Name:",1093,16,20,36,8 

; COMBOBOX 1139,52,18,152,152,CBS_DROPDOWNLIST | CBS SORT 



^X 



IlX 



IX 



IX 



PUSHBUTTON 

LTEXT 

CONTROL 



LTEXT 
CONTROL 



LTEXT 
CONTROL 



LTEXT 
CONTROL 



CONTROL 



GROUPBOX 
CONTROL 



WS_VSCROLL I WS_GROUP 1 WS_TABSTOP 
"^Properties", 1025, 212, 17, 60, 14, WS_GROUP 
"Status: ", 1095, 16, 36, 36, 10, SS_NOPREFIX 
"",1099, "Static", SS_LEFTNOWORDWRAP | SS_NOPREF 

WS_GROUP, 52, 36, 224, 10 

"Type:",1094,16,48,36,10,SS_NOPREFIX 

"", 1098, "Static", SS_LEFTNOWORDWRAP | SS_NOPREF 

WS_GROUP, 52,48,224,10 

"Where: ", 1097, 16, 60, 36, 10, SS_NOPREFIX 

"",1101, "Static", SS_LEFTNOWORDWRAP | SS_NOPREF 

WS_GROUP,52, 60,224,10 

"Comment : ",1096, 16, 72, 36, 10, SS_NOPREFIX 

"", 1100, "Static", SS_LEFTN0WORDWRAP | SS_NOPREF 

WS_GROUP,52,72,152,10 

"Print to fi&le", 1040, "Button", BS_AUTOCHECKBOX 

WS_GROUP I WS_TABSTOP, 212, 70, 64,12 

"Print Format", IDC__STATIC, 8, 93, 136, 39,WS_GROUP 

"Single-fold", IDC_SINGLEFOLD, "Button", BS AUTOR 
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ADIOBUTTON, 

CONTROL 

LTEXT 
EDITTEXT 
DEFPUSHBUTTON 
PUSHBUTTON 
GROUPBOX 
CONTROL 
Button", 

END 



15,104,80,10 

"Quarter-fold", IDC_QUARTERFOLD, "Button", 

BS_AUTORADIOBUTTON, 15, 116, 80, 10 

"Number of Scopies : ", 1092, 162, 105, 68, 8 

1154,234,103,32,12,ES_NUMBER | WS_GROUP 

"OK " , IDOK , 1 8 0 , 1 3 7 , 4 8 , 1 4 , WS_GROUP 

"Cancel", IDCANCEL, 232, 137, 48, 14 

"Copies", IDC_STATIC, 152, 93, 128 , 39, WS_GROUP 

"Run Double-Sided Printing Test", IDC_DBLS IDE, " 

BS_AUTOCHECKBOX | WS_TABSTOP, 8, 140, 115, 10 



IDD_WAITDLG DIALOG DISCARDABLE 0, 0, 186, 44 

STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE i WS CAPTION 

CAPTION "Printing" 

FONT 8, "MS Sans Serif" 

BEGIN 

^ CTEXT "Your document is being printed. Please wait. 

: idc_static,6,14,173,8 

;:end 

ildd_dbls ide intro dialog discardable 0, 0, 346, 105 
istyle ds_modalframe | ws_popup | ws_caption | ws sysmenu 

^CAPTION "Double-Sided Printing Test" 

-FONT 8, "MS Sans Serif" 

=aEGIN 

J LTEXT "To help guide you through printing a single-f 

jold card on both sides of a page, some information needs to be gat 
Jiered about the way paper feeds through your printer.", 
3 IDC_STATIC,0,4,345,24 

2 LTEXT "This print test will use one piece of paper. 

It will only need to be run once for a particular printer.", 

IDC_STATIC, 0, 32, 34 5, 24 
^■^E^T "Click Next when you are ready to print the te 

st page.", 

IDC_STATIC, 0, 97, 345, 8 

END 



IDD_DBLSIDESTEP1 DIALOG DISCARDABLE 0, 0, 346, 105 
STYLE DS_MODALFRAME | WS_POPUP ( WS_CAPTION | WS SYSMENU 
CAPTION "Double-Sided Printing Test" 
FONT 8, "MS Sans Serif" 
BEGIN 
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^T^^T "After the test page has printed, it must be p 

rinted on once more to complete this test.", 

IDC_STATIC,0,4,345,8 
L^^^^ "Please put the page back into the printer wit 

h the printed side UP and the arrow pointing TOWARD the printer.", 

IDC_STATIC,0,24,345,24 
LTEXT "Click Next when you are ready to print.", IDC 

STATIC, 0, 

97,345,8 

END 



IDD_DBLSIDESTEP2 DIALOG DISCARDABLE 0, 0, 34 6, 105 
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS SYSMENU 
CAPTION "Double-Sided Printing Test" 
FONT 8, "MS Sans Serif" 
BEGIN 

"Please click on the option below that matches 



LTEXT 
your printed page. 





CONTROL 


^68 






CONTROL 


!1,68 






CONTROL 


.102,68 




CONTROL 


^02, 


68 




CONTROL 




CONTROL 




CONTROL 




CONTROL 




CONTROL 




CONTROL 




LTEXT 




LTEXT 




LTEXT 




LTEXT 




LTEXT 



IDC_STATIC,0,4,345,8 

"", IDC_FRAME1, "Static", SS_ETCHEDFRAME, 0, 20, 56, 

" " , IDC_FRAME2 , "Static", S S_ETCHEDFRAME , 66,20,56 

"", IDC_FRAME3, "Static", SS_ETCHEDFRAME, 132, 20, 1 

" " , I DC_FRAME 4 , " S t a t i c " , S S_ET CHE D FRAME ,244,20,1 

210, IDC_STATIC, "Static", SS_BITMAP, 8,26,40,49 

212, IDC_STATIC, "Static", SS_BITMAP, 74, 26, 40, 49 

208, IDC_STATIC, "Static", SS_BITMAP, 140,26, 40,49 

208,IDC_STATIC,"Static",SS_BITMAP,252,26,40,49 

209, IDC_STATIC, "Static", SS_BITMAP, 186,26, 40,49 

211, IDC_STATIC, "Static", SS_BITMAP, 298, 26, 40,49 

"Front", IDC_STATIC, 152, 76, 17, 8 

"Back", IDC_STATIC, 197, 76, 18, 8 

"Front", IDC_STATIC,264,77, 17, 8 

"Back", IDC_STATIC, 309, 77,18,8 

"Click Next to continue. ", IDC_STATIC, 0, 97, 345, 



END 



IDD_DBLSIDEEND DIALOG DISCARDABLE 0, 0, 346, 105 

STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS SYSMENU 

CAPTION "Double-Sided Printing Test" 

FONT 8, "MS Sans Serif" 

BEGIN 
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LTEXT "The double-sided printing test is complete.", 

IDC_STATIC, 

0, 4, 345,8 

LTEXT "It is now time to print your card. IDC_STATI 

CO, 24, 345, 

8 

LTEXT "Click Finish when you are ready. IDC_STATIC, 

0,97,345,8 
END 



////////////////////////////////////////////////////////////////// 

/////////// 

// 

// DESIGNINFO 
// 

#ifdef APSTUDIO_INVOKED 
GUIDELINES DESIGNINFO DISCARDABLE 

ir^EGIN 

IDD_WAITDLG, DIALOG 
m BEGIN 

rij LEFTMARGIN, 7 

^3 RIGHTMARGIN, 179 

IJ TOPMARGIN, 7 

^ BOTTOMMARGIN, 37 

U END 

= END 

Cl#endif // APSTUDIO INVOKED 



\N / / 1 1 1 1 1 1 1 1 1 1 1 / / 1 / n / / / n 1/ 1 1 1 1 1 1 1 1 1 n 1/ 1 1 1 n 1 1 1 1 n / 1 1 1 1 1 1 1 1 1 1 1 1 n 
ir^i n 1 1 1 1 1 1 1 1 

Vill 

11 AGIMAGE 
// 

IDR_AGLOGO AGIMAGE DISCARDABLE "ResWAGLogo.agi" 

IDR_CPLOGO AGIMAGE DISCARDABLE "Res\ \C&PLogo . agi" 

////////////////////////////////////////////////////////////////// 

/////////// 

// 

// TTZ 
// 
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IDR_CACFC 

ff 



TTZ 



DISCARDABLE 



"ResWCacfc 



.ttz 



////////////////////////////////////////////////////////////////// 

/////////// 

// 

// Bitmap 
// 



IDB_1UP 
IDB_2UP 
IDB_3UP 
IDB_2D0WN 
IDE 1UP2D0WN 



BITMAP DISCARDABLE 

BITMAP DISCARDABLE 

BITMAP DISCARDABLE 

BITMAP DISCARDABLE 

BITMAP DISCARDABLE 



" Res \ \lup.bmp" 
"Res\\2up.bmp" 
"ResWSup.bmp" 
" Re s \ \ 2 down . bmp " 
"Res\ \lup2down.bmp 



#endif // English (U.S.) resources 

////////////////////////////////////////////////////////////////// 
/////////// 



n#ifndef APSTUDIO_INVOKED 

ii////////////////////////////////////////////////////////////////// 
.3/////////// 

:y// 

J// Generated from the TEXTINCLUDE 3 resource. 
1/1 

#include "ResWersion . rc2" 

J////////////////////////////////////////////////////////////////// 

■^1 mil III II 

=^#endif // not APSTUDIO INVOKED 
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// npshell.cpp - Plug-in methods called from Netscape. 
// 

#include "stdafsch*' 
#include <string.h> 
#include "npapi.h" 
#include "Ctp.h" 

#include "scappint .li" 

GCoiuModule _Module; 

BEGIN„OBJECT_MAP{ObjectMap) 
EMD_OBJECT_MAP() 



BOOL WIMPI DllMain(HIHSTMCE hinstDLL, DWORD fdwReason, LPVOID /*lpvReserved«/) 

swi tch ( f dwReason ) 
{ 

case DLL_PROCESS_ATrACH: 

„Module,Init(ObjectMap, hinstDLL) ; 
break ; 

case DLL_PROC£SS_DETACH: 
„Module.Term{) ; 
break; 

f-% case DLL^IHREAD^ATTACH: 
case DLLJIHREADJETACH: 
break; 

m 

return TRUE; 

} 

id 

M'P^Initialize 

// 

HPError NPP_Initiaii2e(void) 

{ n 

rSCENG„Init(); 
return NPERR„HO„ERROR; 

} ly 

// l#P_Shutdown 

Cj 

void OTP_Shutdown{void) 
{ 

CAGDC: :Free(); 
SCEHG„Fini(); 

} 



// 

// NPP_New - Create a ne?? plug-in itiStQXiC&. 

// 

HPError NP„LOADDS NPP_New (OTMIMEType /*pluginiype*y', HPP pi instance. uintl6 /*mode*/, 

intl6 argc. char *argn[], char *argv[]. 
NPSavedData * /*saved«/) 

if (pinstance ^= HULL) 

return NPERR_IMVALID„IHSTAHCE„£RROR; 

CGtp *pCtp « new CCtp(); 
pCtp->SetHPPInstance (pinstance) ; 
plnstance->pdata pCtp; 

for (int i - 0; i < argc; i+4-) 
{ 

if (Istrcmpi (argn[i], "Fonts") 0) 
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{ 

pCtp->SetFontURL(arsv[i]) ; 
break ; 

} 

} 

return NPERR NOJRROR; 

} 



// 

NPP„Destroy - Destroy our ^lu^-in instance. 

// 

HPError NP„LOADDS NPPJestroy (NPP pinstance, OTSavedData ** /'*save»/) 

if (pinstance NULL) 

return HPERR„INVALID„INSTMCE_ERROR; 

CCtp *pCtp ^ (CCtp *)plnstance->pdata; 

if (pCtp) 

{ 

mm hWnd ^ pCtp->UnsubclassWindow(); 
BOOL bXemp; 

pCtp->OnDestroy (0, 0, 0, bTemp); 
delete pCtp; 

JMD hParent :: Get Parent (hWnd) ; 

LONG IStyie = : :GetWindowLong(hParent, (^L^SIYIE); 

IStyle i - WS„CLIPCHILDREN; 

: :SetWindowLon£f{hParent, GWL^SIYLE, IStyle); 



[iireturn MPERRJsFO^ERROR; 

> ry 

t y 

OTP^SetWindow - A rnxnAom was created, resized, or destroyed, 
NPEyror NP.LOADDS NPP_SetWindow(NPP pinstance, NPWindow *pNPWindow) 
l%£ (pinstance MILL) 

;i return NPERR.INVALID.INSTAHCE^ERROR; 
/tCtp *pCtp = (CCtp *)plnstance->pdata; 

|.af (pNPWindow NULL |( pCtp NULL) 

return NPERR_GENERIC„ERROR; 
ipMd hWnd - (fMND) (DWORD)pNPWindow->window; 

if (hWnd NULL) 

return NP£RR„NO.ERROR; 

if (hWnd l« NULL pCtp->m„hWnd NULL) 
{ 

HVvND hParent - :: Get Parent (hWnd) ; 

LONG IStyle « : rGetWmdowLong (hParent, GWL_STYLE) ; 

IStyle '"WSJLIPCHILDREN; 

::SetVi?indowLong (hParent, GWL^SIYLE, IStyle); 

if (! pCtp->SubclassWindow(hWnd)) 
{ 

delete pCtp; 

plnstance->pdata « NULL; 

return NPERR_MODULE„LOAD_FAILED„ERROR; 

} 

BOOL bTemp; 

pCtp->OnCreate{0, 0, 0, bTemp); 

: :InvalidateRect(pCtp->GetParent(), NULL, TRUE); 



return NPERR NO.ERROR; 

} 
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// 

// HPPJsfewStream - A new stream was created. 

// 

IsfPError NP^LOADDS NPP^NewStream (MPP plnstance, NPMIMEType type, OTStream *stream, 

NPBool /*seekable*/, umtlB «stype) 

{ 

if (pinstance == MILL) 

return NPERR_IHVALID„INSTAHCE„ERROR; 

CCtp *pCtp - (CGtp *)plnstance->pdata; 

if (Istrcmpi (Scstreairi->url [lstrlen(stream->url) - 3], "ctp") 0) 

pCtp->FileStart(); 
else if (Istrcmpi (£cstream->url [Istrlen (stream ->url ) - 3], "tts") 0) 

pCtp->FontStart (£cstreain->url [Istrlen (stream->url) - 12]); 

«stype - NP^NORMAL; 
return IsTP ERR„NO„ERROR; 

} 



// 

// NPP__WriteReady - Returns amount of data we can handle for the next NPP_Write 

// 

int32 NP_LOADDS NPP_WriteReady (HPP pinstance, KPStream * /^*stream*/) 
{ 

if (pinstance NULL) 
p return NPERR„Il!?VALID„INSTAHCE_ERROR; 

:Jeturn OxOFFFFFFF; 

' m 

// ; , 

5^p_V\?rite - Here is some data. Return -1 to abort stream. 

// J 

infc^ HP_LOADDS MPP„Write (NPP pinstance, NPStream »stream, int32 /*offset*/, 

int32 len, void *buffer) 

i % 

CJf (pinstance == NULL) 

-J return HPERR„IOTALID„INSTANC£„£RROR; 
J^^Ctp *pCtp « (CCtp *)plnstance->pddta; 

|=%f (Istrcmpi (fetream->url [Istrlen (stream->url) - 3], "ctp") 0) 
fj pCtp->FileData((BYTE *)fouffer, len); 

.~5?lse if (Istrcmpi (Sstream->url [Istrlen (stream->url) - 3], "ttz") " 0) 

pCtp->FontData(ScStream->url [Istrlen (stream- >url) - 12], 
(BYTE *)buffer, len); 

} 

return len; 

} 



// 

// NPP_DestroyStream - Stream is done, but audio may still be playing. 

// 

MPError OT„LOADDS NPP„DestroySt ream (OTP pinstance, MPStream *stream, 

NPError reason) 

{ 

if (pinstance HULL) 

return MPERR_IKVALID„INSTANCE„ERROR; 

if (reason MPRES.DOHE) 
{ 

CCtp *pCtp ^ (CCtp *)plnstance->pdata; 

if (Istrcmpi {Scstreaxn->url [Istrlen (stream->url) - 3], "ctp") 0) 
pCtp->FileEnd() ; 

else if (Istrcmpi (Scstream->url [Istrlen (stream->url) - 3], "ttz") 0) 
pCtp->FontEnd (S:stream->url [Istrlen (stream->url ) - 12]); 
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} 

return HPERR„HO_ERROR; 

} 



// 

// MPP_StreamAsFile - For File based plug-ins, not streaming, 
// 

void NP„LOADDS NPP^StreaniAsFile (OTP /*p Instance*/, NPStream « /*3tream*/^ 

const char * /'*fname»/^) 

{ 
} 



jref NP„LOADDS lNlPP„GetJavaC lass (void) 
{ 

return HULL; 

} 



void HP_LOADDS NPP_Print (OTP /*plnstance*/, OTPrint * /*printInfo»/) 
} 



void OT„LOADDS OTP^URLMotify (OTP /* pinstance */, const char * /» url 
NPReason reason void * /* notifyData »/) 

{ 

} Pi 
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/* npwin.cpp */ 

//\\// INCLUDE 
^inclndB "StdAfx.h" 

netscape 
#ifiidef JjJPAPIJi^ 
^include '*npapi .h'* 
#endif 

#ifndef __NPUPP„H_ 
#iiiclude "npupp.h" 
#endif 

//\\// DEFIOT 
#ifdef WIN32 

#define NP_EXPORT 
#else 

#define OT^EXPORT „eKpo3rt 
#endif 



//\\// GLOBAL DATA 

NPNetscapeFuncs *g_pNavigatC!rFuncs =^0; 
JRIGlobalRef Private„GetJavaClass (void) ; 




// Private__GetJavaClass (global function) 

//^""SGiven a Java class reference (thru OTP„Get JavaClass) inform JRT 
//^^=^f this class existence 

JRlOlobalRef Private_GetJavaClass (void) 

{ 

;;^^^jref clazz « NPP„GetJavaClass () ; 
lyif (clazz) 

JRIEnv* env « OTl3„Get JavaEnv ( ) ; 
return JRI„HewGlobalRef (env, clazz); 

. } 

fire turn NULL; 




y/'ld PLUGIH DLL entry points 

//C3 

These are the Windows specific DLL entry points. They must be exported 



// we need these to be global since we have to fill one of its field 

with a data (class) 5?hich requires knowledge of the navigator 
// jump-table. This jump table is known at Initialize time (HP^Initialize) 
// which is called after NP„GetEntryPoint 
static HPPlugiuFuncs »g„pluginFuncs; 




NP^GetEntryPoints 

// 

// fills in the func table used by Navigator to call entry points in 
// plugin DLL. Note that these entry points ensure that DS is loaded 
by using the NP.LOADDS macro, when compiling for Win 16 

// 

NPError WINAPI NP.EXPORT NP„GetEntryPoints (NPPluginFuncs *pFuncs) 

// trap a NULL ptr 
if (pFuncs NULL) 

return NPERR„INVALID_FUHCTABLE„ERROR; 
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//if the plugin's function table is smaller than the plugin expects, 
// then they are incompatible, and should return an error 

pFuncs->version - (NP_VERSI01sf_MAJ0R << 8) | NP_„VERSION„MfflOR; 

pFuncs->newp ^ NPP_t?ew; 

pFuncs->destroy = NPP^Destroy; 

pFuncs->setwindow = HPP^SetWindow; 

pFuncs->newstreain = NPP„lsfewStream; 

pFuncs->destroystream = NPPJestroyStream; 

pFuncs->asf ile ^ ls[PP_StreamAsFile; 

pFunc:s->writeready ^ IsIPP^WriteReady; 

pFuncs-> write = OTP_.Write; 

pFuncs->print - NPP^Prmt; 

pFuncs-> event =0; /// reserved 

g_pluginFuncs = pFuncs; 

return MPERR_NO„ERROR; 

> 




// NP.Initialize 

// 

// called iininediateiy after the plugin DLL is loaded 

// 

OTError WINAPI OT_EXPORT NP_Initialize (NPMetscapeFuncs *pFuncs) 
{ 

ry/ trap a MJLL ptr 
r^if (pFuncs HULL) 

return NPERR„I]slVALID_FUKCTABLE„ERROR; 

flg^pNavigatorFuncs = pFuncs; // save it for future reference 

J^^// if the plugin major ver level is lower than the Navigator's, 
lU// then they are incompatible, and should return an error 
^-If (HIBYTE(pFuncs->version} > NP_VERSIOM_MAJOR) 
p return NPERR_INC0MPATIBLE_VERSI01:L.ERR0R; 

^_^// We have to defer these assignments until g_pKavigatorFuncs is set 
C3int navMinorVers === g„pNavigatorFuncs->version & OkFF; 

.'lif (navMinorVers >- HPVERS„HAS„HOTI FX CATION) 

H g„pluginFuncs->urlnotify ^ NPPJLTRLNotify; 

ca> 

#iMef WIH32 // An ugly hack, because Win 16 lags behind in Java 

if (navMinorVers >- NPV£RS„HAS_LIVECOmECT) { 
-i^e 1 se 

if (navMinorVers >- NPVERS„WIN16„HAS_LIVEC0NKECT) { 
#endif // WN32 

g pluginFuncs->javaClass - Private„GetJavaClass () ; 

} 

// NPP„Initialize is a standard (cross-platform) initialize function, 
return HPP„Initialize() ; 

} 




// lsrP_Shutdown 

// 

// called immediately before the plugin DLL is unloaded. 

// This functio shuold check for some ref count on the dll to see if it is 

// un loadable or it needs to stay in memory. 

// 

NPError WINAPI NP_EXPORT NP_Shutdown ( ) 
{ 

NPP^Shutdown ( ) ; 
gjNavigatorFuncs = HULL; 
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return MPERR_NO_ERROR; 

} 



// END - PLUGIN DLL entry points 




/* NAVIGATOR Entry points */ 

/* These entry points expect to be called from within the plugin. The 
noteworthy assumption is that DS has already been set to point to the 
plu^in's DLL data segment. Don't call these functions from outside 
the plugin without ensuring DS is set to the DLLs data segment first, 
typically using the NP_LOADDS macro 

*/ 



/* returns the major/tninor version numbers of the Plugin API for the plugin 
and the Navigator 

*/ 

void HPlsf„Version(int «plugin„major, int *plugin„minor, int «netscape„major, 
int *netscape„minor) 

{ 

*plugin_major - ro„VERSION„MAJOR; 
*plugin„minor = OT„VERSION_MINOR; 

*netscape_ma3or = HIBYTE(g„pMavigatorFuncs->version) ; 
«netscape__minor = LOBYTE (g__plslavi gat orFuncs-> vers ion) ; 

} 



/*^CTUses the specified URL to be fetched and streamed in 

NPirro^r NPN„GetURLNotify (HPP instance, const char »uri, const char *target, 

void *notifyData) 



"Jint navMinorVers ^ g_pWavigatorFuncs->version & OsFF; 
r=^PError err; 

'^=^if (navMinorVers >= NPVERS^HAS^NOTIF I CATION) 

fi err ^ g„pNavigatorFuncs->geturlnotify {instance, url, target, notifyData); 
, jelse 

err - NPERR_INCOMPATIBLE_VERSION„ERROR; 

H 

rzreturn err; 

} y 



NPError NPN_GetURL (NPP instance, const char *url, const char *target) 
{ 

return g_pNavigatorFuncs->geturl (instance, url, target); 

} 



NPError NPN_PostURLNotify (NPP instance, const char *url, const char *window, 

uint32 len, const char *buf , NPBool file, void *notifyBata) 

{ 

int navMinorVers = g_pNavigatorFuncs->version Sc OkFF; 
NPError err; 

if (navMinorVers >- NPVERS„HAS„NOTIF I CATION) 
{ 

err g„pNavigatorFuncs->posturlnotify (instance, url, window, len, 

buf, file, notifyData); 

} 

else 

{ 

err = NPERR_INCOMPATIBLE_VE}?SION_ERROR; 

} 

return err; 

} 
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NPError HPb?_PostURL (NPP instance, const char »url, const char *window, 
uxnt32 len, const char *buf, HPBool file) 

return g plsravigatorFuncs->posturl (instance, url, window, len, buf, file) 

} 

/« Requests that a number of bytes be provided on a stream. Typically 
this would be used if a stream was in "pull" mode. An optional 
position can be provided for streams which are seekable. 

*/ 

NPError NPH„RequestRead (NPStream *stream, NPByteRange *rangeList) 
return g_pNavigatorFuncs->3requestread (stream, rangeList); 

} 



/* Creates a new stream of data from the plug-in to be interpreted 
by Netscape in the current window, 

«/ 

KFPError HPH_NewStream(lsIPP instance, HPMIMEType type, 

const char *target, OTStream **stream) 

^ int navMinorVersion = g_pNavigatorFuncs->version & OkFF; 
NPError err; 

^if (navMinorVersion >= OTVERS_HAS„STREMOUTPUT) 
1,3 err g„pNavigatorFuncs->newstream( instance, type, target, stream); 

'-'else 

■ry{ 

.2 err - OTERR„IKCOMPATIBLE_VERSION„ERROR; 
■''Return err; 

} 

/*!Erovides len bytes of data. 

intg2 NPM_Write (MPP instance, NPStream *stream, 
|1 int32 len, void »buffer) 

I^Hnt navMinorVersion ^ g„pHavigatorFuncs->version £= OxFF; 
C3int32 result; 

-^if (navMinorVersion >= HPVERS^HAS.STREAMOUTPUT) 

result g_pNavigatorFuncs->write (instance, stream, len, buffer); 

} 

else 
{ 

result ^ -1; 

} 

return result; 

} 



/* Closes a stream object. 

reason indicates why the stream was closed. 
»/- 

MPError lslPN„DestroyStream (HPP instance, HPStream *stream, isJPError reason) 

int navMinorVersion » g_pNavigatorFuncs->version & OkFF; 
NPError err; 

if (navMinorVersion >- isfPVERS„HAS_STREAMOUTPUI) 

err « g_pHavxgatorFuncs->destroystream( instance, stream, reason); 

} 

else 
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{ 

err - OTERR„Ils[C0MPATIBLE_VERSION„ERR0R; 

} 

return err; 

} 



Provides a text status message in the Netscape client user interface 

void NPIsI„Status (NPP instance, const char *message) 
{ 

g„pNavigatorFuncs-> status (instance, message) ; 

} 



/* returns the user agent string of Navigator, which contains version info 
»/ 

const char *HPN„UserAgent (NPP instance) 
{ 

return g_pNavigatorFuncs->uagent (instance) ; ^^^^mi 
} """^^ 



/* allocates memory from the Navigator's memory space. Necessary so that 
saved instance data may be freed by Navigator when exiting. 

«/ 

void *NPN„HemAlloc(uint32 size) 
{ 

_return g_pNavigatorFuncs->memalloc(si2e) ; 

/* '-ifeciprocal of MemAlloc() above 
voii NPN„MemFree(void *ptr) 

{ ;i 

'%„pNavigatorFuncs->memf ree (ptr) ; 

} 'J ■ 



/*:grivate function to Netscape, do not use! 
*/lJ 

voM- NPN ReloadPlugins(HPBool reloadPages) 

{ lA 

''%_pNavigatorFuncs->reloadplugins (reloadPages) ; 

} It 

JRttnv *SfPK_GetJavaEnv(void) 
{ 

return g pNavigatorFuncs->getJavaEnv() ; 

} 



jref HPN GetJavaPeer(NPP instance) 
{ 

return g_pNavigatorFuncs->getJavaPeer(instance) ; 

} 
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#ifndef _PROP„SHEET.H_ 
#define _PROP„SHEETJi_ 

#include <coinmctrl .h> 

template <class T> 

class ATL_NO VIABLE CPropertyPagelmpl : public CDialog Imp 1 Base 
{ 

public; 

PROPSHEETPAGE m_psp; 

operator PROPSHEETPAGE* ( ) { return Sin^psp; } 

// Construction 

CPropertyPaHeImpl(LPCTSTR IpszTitle « KULL) 

{ 

// initialize PROPSHEETPAGE struct 
iftemset(£jn„psp, 0, sizeof (PROPSHEETPAGE) ) ; 
m psp,dwSizB « sizeof (PROPSHEETPAGE) ; 
mlpsp.dwFlags - PSPJISECALLBACK; 
m^psp.h Instance = _Module.GetResourceInstance ( ) ; 
m„psp.pszTemplate - MAKEIOTRESOURCE(T: :IDD) ; 
mjsp.pfaDlgProc = (DLGPROC)T: :StartDialogProc; 
m_psp.pfnCallback ^ T: rPropPageCallback; 
m^psp.lParam = (LPARAM)this; 

if{lpszTitle !- NULL) 
{ 

m„psp.pszTitle = IpszTitle; 
fj m„psp.dwFlags |= PSP^USETITLE ; 

%i.y } 

fHstatic UIOT CALLBACK PropPageCallback (HMD hWnd, UIOT uMsg, LPPROPSHEETPAGE ppsp) 

„ASSERTE (hWnd HULL); 
if(uMsg PSPCBj:REArE) 

fi CBialoglmplBase* pPage - (CDialogIffiplBase*)ppsp->lParam; 

"""^ ^Module .AddCreateWndData (ScpPage->m„thunk .cd. pPage) ; 

} 

IJ return 1; 

I JhPROPSHEETPAGE Create ( ) 

f2 return : :Crea tePropertySheet Page (San jsp) ; 

p} 

BOOL EndDialog(int) 

do nothing here, calling : :EndDialog will close the whole sheet 
_ASSERTE( FALSE); 
return FALSE; 

} 

// Operations 

void CancelToCloseO 

{ 

_ASSERTE ( : : IsWindow(m„hWnd) ) ; 
_ASSERTE (Get Parent () 1 - ISIULL ) ; 

: : SendMessage (GetParent ( ) , PSM^CAlsICELTO CLOSE , 0 . OL ) ; 

} 

void SetModified(BOOL bChanged = TRUE) 
{ 

_ASSERTE ( : : IsWindow(jn_hWnd) ) ; 
_ASSERTE (GetParent () 1 - WILL ) ; 

if (bChanged) 

: -.SendMessage (GetParent (), PSM_CHM?GED, (WPARI^)m„hWnd, OL); 

e Ise 

:; SendMessage (GetParent (), PSM^UHCHANGED , (WPARAK)m„hWnd, OL); 
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} 

void SetWisardButtons (DWORD dwFlags) 
{ 

„ASSERTE ( : : I sWi ndow (m„hWnd ) ) ; 
„ASSERTE (fet Parent ( ) ! - HULL ) ; 

: :PostMessage( Get Parent (), PSM„SETOI2BUnOHS. 0, (LPARAM) dwFlags); 

LRESULT QuerySiblings{WPARAM wParam. LPARM IParam) 
{ 

„ASSERTE ( : : IsWindow (mjmd ) ) ; 
_ASSERTE (GetParent ( ) I - NULL ) ; 

return : :SendMessage (GetParent () , PSM_QUERYSIBLIHGS, wParam, IParam); 

} 

BEGIN„MSG„MAP (CPropertyPageImpl<T> ) 

MESSAGE_HANDLER (^.NOTIFY, OnNotify) 
END JdSG_MAP ( ) 

// Message handier 

LRESULT OnNotifF(UINT uMsg, WPARAM wParam, LPARAM IParam, BOOL£= foHandled) 
{ 

^ASSERTE ( : : IsWindow (m.hWnd ) ) ; 
SimDR* pNMHDR - (IsiMHDR*) IParam; 

// don't handle messages not from the page/sheet itself 

if (plslN2iDR->hwndFrom !- m_hWnd &£c p3«iDR->hwndFroffl != : :GetParent (m^hWnd) ) 
{ 

C3 bHandled - FALSE; 

, return 1 ; 

fy T* pT - (T*)this; 
O LRESULT IResult = 0; 
handle default 
switch (ptMiDR->code) 

^4 { 

n case PSlsLSETACTIVE: 

l'" IResult « pT->OnSetActive() ? 0 : -1; 

C3 case PSN_RILLACTIVE: 

'^J IResult ^ ipT->OnKillActive() ; 

r, . z break ; 

: - case PSH„APPLY: 

1^ IResult - pT->OnApply() ? PSHRETJFOERROR : PSHRETJNVALIDJsfOCHANGEPAGE; 

Cl break; 

i'i case PSN_RESET: 

•"^ pT->OnReset() ; 

break ; 
case PSN.QUERYCANCEL : 

IResult = ipT->OnQueryCancel() ; 

bx^eak * 
case PSN.WIZNEXT: 

IResult = !pT->OnWizardHeKt(); 

case PBlsr_WIZBACK: 

IResult - !pT->OnWizardBack() ; 

case PSN^WIZFINISH: 

IResult « lpT->OnWizardFinish(); 

break ; 
case PSH„HELP: 

IResult = pT~>OnHelp(); 

break ; 
default: 

bHandled « FALSE; not handled 

} 

return IResult; 

} 

// Overridables 
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BOOL OnSetActiveO 

{ 

return TRUE; 

} 

BOOL OnKillActiveO 
{ 

return TRUE; 

} 

BOOL OnApplyO 
{ 

return TRUE; 

} 

void OnResetO 

{ 

} 

BOOL OnQueryCancei () 

return TRUE; ok to cancel 

} 

BOOL OnWisardBackO 
{ 

return TRUE; 

} 

BOOL OnWizardNeKtO 
{ 

return TRUE; 

} 

BOOL OnWizardFinishO 

.A 

ij return TRUE; 
^'^BOOL OnHelpO 
in return TRUE; 




#eyif //_PROP„SHEET_H_ 
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//{ {NO.DEPENDENCIES } } 

// Microsoft Developer Studio generated include file. 



// Used by NPCTP.rc 
// 

#define IDD^CTLPMEL 102 

#define IDD„WAITDLG 103 

#define IDC„PAGE1 201 

#define IDR.AGLOGO 201 

#define IDC_PAGE2 202 

#define IDR„CPLOGO 202 

#define IDCJAGE3 203 

#define IDR.CACFC 203 

#de£ine IDC„PAGE4 204 

#defxne IDD^DBLSIDEIOTRO 204 

#define IDC„F01siT 205 

#define IDD^DBLSIDESTEPI 205 

#define IDC„PTSIZE 206 

#define IDD„DBLSIBEEHD 206 

#define IDC„COLOR 207 

#define IDDJBLSIDESTEP2 207 

#define IDC_LEFT 208 

#define IDB^IUP 208 

#define IDCJENTER 209 

#define IDB„2UP 209 

#define IDCJIGHI 210 

#define IDB„3UP 210 

#define IDC^PRIOT 211 

#define IDB_2D(MJ 211 

#define IDC.SINGLEFOLD 212 

#daiine IDB_lUP2D0Wr 212 

#defane IDC^QUARTERFOLD 213 

#d^'Iine IDC^FRAMEl 214 

#ddrine IDC_FRAME2 215 

#d|&ne IDC„FRMdE3 216 

#d^§ine IDC„FRAME4 217 

#deF:ine IDCJBLSIDE 218 



//'■lifext default values for new objects 

#illef APSTUDIO„INVORED 
#if»def APSTaDIO„READOHLY„SYMBOLS 



#dliine „APS_NEXr„RE:SOURCE„VALUE 213 

#d^gine _APS3EXr_C0MHAm3J/ALUE 32768 

#deeine „APS_lsfEXr_„COOTROL„VALUE 219 

#dl?ine .APS_NEXr_SYME DEVALUE 104 
#eiciif 
#eiaif 
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# Microsoft Developer Studio Project File - Name-"CTPUtil " - Package Owner-<4> 

# Microsoft Developer Studio Generated Build File, Format Version 5.00 

# ** DO NOT EDIT »* 

# TARGTYPE "Win32 (s86) Application" 0x0101 
CFG-CTPUtil - Win32 Debug 

IMESSAGE This is not a valid makefile. To build this project using l^IMAKE, 
! MESSAGE use the Export Makefile coraand and run 
! MESSAGE 

! MESSAGE IslMAKE /£ "CTPUtil .mak" . 
i MESSAGE 

I MESSAGE You can specify a configuration when running HMAKE 
tMESSAGE by defining the macro CFG on the command line. For example : 
! MESSAGE 

mESSAGE MAKE /f "CTPUtil .mak" CFG«"CTPUtil - Win32 Debug" 
! MESSAGE 

SMESSAGE Possible choices for configuration are: 
! MESSAGE 

tMESSAGE 'CTPUtil - Win32 Release^* (based on "Win32 (k86) Application") 
IMESSAGE "CTPUtil - Win32 Debug" (based on "Win32 (s86) Application") 
! MESSAGE 

# Begin Project 

# PROP Scc„ProjName ""S^CTPUtil ". OKAAAAAA" 

# PROP Scc„LocalPath " . " 
CPP=cl .exe 

tflL'^midl .ejje 
RSC=rc.exe 

||f "$(CFG)" "CTPUtil - Win32 Release" 

i 5 PROP BASE Use„MFC 5 

'CPROP BASE Use„Debug_Libraries 0 

^^MpROP BASE Output„Dir "Release" 

liPROP BASE Intertnediate^Dir "Release" 

WiPROP BASE Targetjir "" 

,^PROP UseJdFC 5 

'#PROP Use„Debug_Libraries 0 

# PROP Output„Dir "Release" 
i#tPROP Itttennediate^Dir "Release" 
W^PROV Ignore_EKport_Lib 0 
#^PROP Target_Dir "" 

y ADD BASE CPP /nologo /MI /W3 /GX ^^02 /D "W1M32" /D "NDEBUG" /D "^WiroOWS" /!iru"stdafK .h" /FD /c 
I^ADD CPP /nologo /Zp2 /MI /W3 /GX /02 /I " . .\Stonehnd" /I ".AZLib" /D "WIN32" /D "HDEBUG" /D "„Wm 
iECJWS" /Yu"stdafs.h" /FD /c 

¥ ADD BASE MTL /nologo /D "HDEBUG" /mktyplxb203 /o WL /win32 
Si ADD MIL /nologo /D "NDEBUG" /mktyplib203 /o mi /win32 

# ADD BASE RSC /I 0k409 /d "MDEBUG" 

# ADD RSC /I 0x409 /d "NDEBUG" 
BSC32=bscmake . ene 

# ADD BASE BSC32 /nologo 

# ADD BSC32 /nologo 
LINK32-link.exe 

# ADD BASE LINK32 /nologo /subsystem: windows /machine : 1386 

# ADD LINK32 version, lib /nologo yBubsystem: windows /ffiachine:I386 

lELSEIF "$(CFG)" "CTPUtil ~ Win32 Debug" 

# PROP BME Use_.MFC 5 

# PROP BASE Use„Debug Libraries 1 

# PROP BASE Output.Dir "Debug" 

# PROP BASE Intermediate_Dir "Debug" 

# PROP BASE Targetjir "" 

# PROF Use„MFC 5 

# PROP Use_Debug„Libraries 1 

# PROP Outputjir "Debug" 

# PROP Intermediate__Dir "Debug" 

# PROP Ignore„E^:port_Lib 0 

# PROP Target_Dir "" 

# ADD BASE CPP /nologo /MTd /W3 /Gm /GX /2i /Od /D "WIM32" /D 'LDEBUG" /D "„WIHDOWS" /Yu"stdafK .h" / 
FD /c 

# ADD CPP /nologo /Zp2 /Kid /W3 /Gm /GX /2i /Od /I " . .\Stonehnd" /I "..\ZLib" /D "WIH32" /D "„BEBUG" 
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/D "^WINDOWS" /Yu"stdafK,h" /FD /c 

# ADD BASE MIL /noloso /D "„DEBUG" /mktyplib203 /o MJL /win32 

# ADD m /nologo /D "„DEBUG" /mktyplib203 /o HUL /wiii32 

# ADD BASE RSC /I 0k409 /d "_DEBUO'" 

# ADD RSC /I 0k409 /d "_DEBUG" 
BSC32-bscmake . &kb 

# ADD BASE BSC32 /nologo 

# ADD BSC32 /nologo 
L IbJK3 2 1 i nk • ©s© 

# ADD BASE LINK32 /nologo /subsystem: windows /debug /machine: 1386 /pdbtype : sept 

# ADD LINK32 version. lib /nologo /subsystem: windows /debug /machine:I386 /pdbtype : sept 

lENDIF 

# Begin Target 

# Name "CTPUtil - Win32 Release" 

# Name "CTPUtil - Win32 Debug" 

# Begin Group "Source Files" 

# PROP Default„Filter "cpp;c;cKx;rc;def ;r;odl ;idl ;hpj ;bat" 

# Begin Source File 

SOURCE-. NAGDC.cpp 

# End Source File 

# Begin Source File 

SOURCE « . NAGDoc . cpp 
ii^End Source File 
P Begin Source File 

r^URCE== . \AGLayer . cpp 
I?: End Source File 
Begin Source File 

^SpURCE- . NAGMatrix . cpp 
End Source File 

# Begin Source File 

^SOURCE- . NAGPage . cpp 
M End Source File 
:^ Begin Source File 

1@}URCE- , \AGSym , cpp 

End Source File 
?i Begin Source File 

lioURCE= . \AGText . cpp 
'I End Source File 

# Begin Source File 

SOURCE-. \CTPUtil ,cpp 

# End Source File 

# Begin Source File 

SOURCE ».\CTPUtil.rc 

tIF "$(CFG)" "CTPUtil - Win32 Release" 
lELSEIF "$(CFG)" == "CTPUtil - Win32 Debug" 
iENDIF 

# End Source File 

# Begin Source File 

SOURCE - . NMa i nFrm . cpp 

# End Source File 

# Begin Source File 

SOURCE-. \ProgDlg. cpp 

# End Source File 

# Begin Source File 
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SOURCE -.\StdAfK.cpp 

# ADD CPP /Yc"stdafx.h" 

# End Source File 

# End Group 

# Begin Group "Header Files" 

# PROP Defaiilt_Filter "h;hpp;hSK;hm;inl" 

# Begin Source File 

SOURCE«.\AGDC.h 

# End Source File 

# Begin Source File 

SOURCE-. \AGDifa.h 

# End Source File 

# Begin Source File 

SOURCE -.NAGDoc.h 

# End Source File 

# Ba^in Source File 

SOURCE -.NAGLayer.h 

# End Source File 

# Begin Source File 

SOURCE^ , NAGMatriK . h 

# End Source File 
Begin Source File 

^URCE-.NAGPage.h 
,|flEnd Source File 
#f Begin Source File 

^lURCE-.NAGSym.h 
lyEnd Source File 
Begin Source File 

S)URCE«.NAGText.h 
s# End Source File 
§5 Begin Source File 

"&buRCE«.\CTPUtil.h 
l4 End Source File 
1^ Begin Source File 

^ioURCE^.NMainFrm.h 
Ci End Source File 

# Begin Source File 

SOURCE-, \ProgDlg.h 

# End Source File 

# Begin Source File 

SOURCE- - \Resource . h 

# End Source File 

# Begin Source File 

SOURCE=.\StdAfx.h 

# End Source File 

# Begin Source File 

SOURCE= . Wersion .h 

# End Source File 

# End Group 

# Begin Group "Resource Files" 

# PROP Default_Filter "ico;cur;bmp;dlg;rc2;rct ;bin;cnt;rtf ;gif ;jpg; jpeg; jpe" 

# Begin Source File 

SOURCE- . \res\CTPUti 1 . ico 

# End Source File 

# Begin Source File 
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SOURCE *.\res\CTPUtil .rc2 

# End Source File 

# End Group 

# End Target 

# End Project 
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// 

// CTPUtil.cpp ; Defines thet class behaviors for the application. 

// 

#include "stdafx.h" 
#include "CTPUtil.h" 

#include "MainFrm.h" 
#include "scappint.h" 

#ifdef _DEBUG 
#de£ine nev? DEBUG_.NCT 
#undef THIS„FILE 

static char TBIS„FILE[] = FILE ; 

#andif 



BE8IH MESSAGE MAP (CCTPUtilApp. CWinApp) 
//{ { AFX_MSG„MAP ( CCTPUt i 1 App ) 
ON^COMMAND (ID„APP„ABOOT, OnAppAbout) 
01sf_C0MMAND(ID_FILE„PRIlsrr„SETUP, OnFilePrintS^tup) 
//}}AFX_MSG„MAP 

// Standard file based dociiment cotimands 
END„MESSAQE„MAP{) 



?^ CCTPUt il App construction 
ioiPUt 1 lApp : : CCTPUt i 1 App ( ) 



4(k The one and only CCTPUtilApp object 

rf 

KTPUtilApp theApp; 



W CCTWtilApp initialisation 

mOL CCTPUtilApp: :lnitlnstance() 

% 

"-■^ // Standard initialization 
#ifdef .AFXDLL 

HndMe3dControls(); // Call this when using MFC in a shared DLL 

#else 

EnableSdControlsStatic () ; // Call this when linking to HFC statically 
#end if 

SCENG„Init(); 

aupMamWnd - new CMainFrame() ; 
m_pMainWnd->Shov5Window(SW_SH0W) ; 
ffi_pMainWnd-">UpdateWindow( ) ; 

return TRUE; 



// CAboutDlg dialog used for App About 

// 

class CAboutDlg : public CDialog 
{ 

public: 

CAboutDlg () ; 
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// Dialog Data 

//{ { AFX_DMA (CAboutDlg ) 
enum { IDD = Wd_^kBOUIBOX }; 
CString m„csVersion; 
//}}AFX_DATA 

// ClassWisard generated virtual function overrides 
//{{AFX_VIRIUAL (CAboutDlg) 
protected ; 

virtual void DoDataEschange(CDataEKchange* pDX) ; // DDX/DDV support 
//}}AFX„VIRTUAL 

Implementation 
protected : 

//{ {AFX„MSG (CAboutDlg ) 
virtual BOOL OnlnitDialog ( ) ; 
//}}AFX„MSG 
DECLAREJ4ESSAGE HAP() 

CAboutDlg: : CAboutDlg 0 : CDialog (CAboutDlg IDD) 
{ 

//{ {AFX„DATA_INIT (CAboutDlg ) 
m„csVersion = „T("*"); 
//'}}AFX DATA^INIT 

} 

void CAboutDlg: :DoDataExchange(CDataEKChange* pDX) 

h 

CDialog: :DoDataEschange (pDX) ; 
% J //{ { AFX_DATA_.MAP ( CAboutD Ig ) 
fn DDX^Text (pDX, IDC„VERSION, m^csVearsion) ; 
l^\ //}}AFX_DATA_MAP 

% 

BIGIN^MESSAGE^MAP (CAboutDlg, CDialog) 
: 1 //{ {AFX_MSG„MAP (CAboutDlg ) 
J? //}}AFX„MSG„MAP 
tiD„MESSAGE_MAP() 

f-^ App command to run the dialog 
LWid CCTPUt i lApp : ; OnAppAbout ( ) 

|y CAboutDlg aboutDlg; 
t JL aboutD 1 g . DoModa 1 ( ) ; 



// CCTPUt il App commands 

BOOL CAboutDlg: rOnlnitDialogO 
{ 

char ssAppPath [_MAX_„PAIH] ; 
DTOHD dwVerl n f oS i ze ; 
DWORD dwVexiind; 
Ultn: uVersionLen; 
LPSTR IpVersion; 
CString csVersion; 

csVersion . Empty ( ) ; 

: :GetModuleFileName(AfKGetInstanceHandle () , szAppPath, sizeof (szAppPath) ) ; 
dwVerlnfoSise =^ : :GetFileVersionInfoSi2e(szAppPath^ MwVerHnd); 
if (dwVerlnfoSize) 
{ 

LPSTR IpVfflnfo « (LPSTR)malloc ( (int)dwVerlnfoSize) ; 

if (IpVfflnfo) 

{ 

: :GetFileVersionInfo (szAppPath, dwVerHnd, dwVerlnfoSize, IpVfflnfo) 
: :VerQueryValue (IpVfflnfo, 

"v\StringFileInfovv040904BQ\\ProductVersion", 

(LPVOID *)S:lpVersionr S^uVersionLen) ; 
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if (uVarsionLen) 

csVersion ^ IpVersion; 
free (ipVfflnfo); 



UpdateData (TRUE); 
m^csVersion += csVsrsion; 

CDxaiog: lOnlnitDialog ( ) ; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 



int CCTPUtilApp: :ExitInstance() 
{ 

SCEHGJiniO ; 

return CWinApp: :ExitInstance ( ) ; 
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# Microsoft Developer Studio Project File - Name="CTPUtil" - Packa 
ge Owner=<4> 

# Microsoft Developer Studio Generated Build File, Format Version 
6.00 

# ** DO NOT EDIT ** 

# TARGTYPE "Win32 (x86) Application" 0x0101 
CFG=CTPUtil - Win32 Debug 

[MESSAGE This is not a valid makefile. To build this project using 
NMAKE, 

'MESSAGE use the Export Makefile command and run 
! MESSAGE 

[MESSAGE NMAKE /f "CTPUt il .mak" . 
[MESSAGE 

[MESSAGE You can specify a configuration when running NMAKE 
[MESSAGE by defining the macro CFG on the command line. For exampl 
e: 

[MESSAGE 

[MESSAGE NMAKE /f "CTPUtil .mak" CFG="CTPUtil - Win32 Debug" 
[MESSAGE 

[MESSAGE Possible choices for configuration are: 
[MESSAGE 

[MESSAGE "CTPUtil - Win32 Release" (based on "Win32 (x86) Applicat 
ion") 

[MESSAGE "CTPUtil - Win32 Debug" (based on "Win32 (x86) Applicatio 
n") 

[MESSAGE 

# Begin Project 

# PROP AllowPerConf igDependencies 0 

# PROP Scc_ProjName ""$/CTPUtil", OKAAAAAA" 

# PROP Scc_LocalPath "." 
CPP=cl.exe 

MTL=midl . exe 
RSC=rc . exe 

[IF "$(CFG)" == "CTPUtil - Win32 Release" 

# PROP BASE Use_MFC 5 

# PROP BASE Use_Debug_Libraries 0 

# PROP BASE Output_Dir "Release" 

# PROP BASE Intermediate_Dir "Release" 

# PROP BASE Targe t_Dir "" 

# PROP Use_MFC 5 

# PROP Use_Debug_Libraries 0 
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# PROP Output_Dir "Release" 

# PROP Intermeciiate_Dir "Release" 

# PROP Ignore_Export_Lib 0 

# PROP Target_Dir 

# ADD BASE GPP /nologo /MT /W3 /GX /02 /D "WIN32" /D "NDEBUG" /D " 
_WINDOWS" /Yu"stdafx.h" /FD /c 

# ADD CPP /nologo /Zp2 /MT /W3 /GX /02 /I " . . \Stonehnd" /I "..\ZLi 
b" /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /Yu"stdafx.h" /FD /c 

# ADD BASE MTL /nologo /D "NDEBUG" /inktyplib203 /o "NUL" /win32 

# ADD MTL /nologo /D "NDEBUG" /mktyplib203 /o "NUL" /win32 

# ADD BASE RSC II 0x409 /d "NDEBUG" 

# ADD RSC /I 0x409 /d "NDEBUG" 
BSC32=bscmake . exe 

# ADD BASE BSC32 /nologo 

# ADD BSC32 /nologo 
LINK32=link . exe 

# ADD BASE LINK32 /nologo /subsystem: windows /machine : 1386 

# ADD LINK32 version. lib /nologo /subsystem:windows /machine: 1386 

iELSEIF "$(CFG)" == "CTPUtil - Win32 Debug" 

# PROP BASE Use__MFC 5 

# PROP BASE Use_Debug_Libraries 1 

# PROP BASE Output_Dir "Debug" 

# PROP BASE Intermediate_Dir "Debug" 

# PROP BASE Targe t_Dir "" 

# PROP Use_MFC 5 

# PROP Use__Debug_Libraries 1 

# PROP Output_Dir "Debug" 

# PROP lntermediate_Dir "Debug" 

# PROP Ignore__Export_Lib 0 

# PROP Target_Dir 

# ADD BASE CPP /nologo /MTd /W3 /Gra /GX /Zi /Od /D "WIN32" /D "_DE 
BUG" /D "_WINDOWS" /Yu"stdafx.h" /FD /c 

# ADD CPP /nologo /Zp2 /MTd /W3 /Gm /GX /ZI /Od /I ". . \Stonehnd" / 
I "..\ZLib" /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /Yu"stdafx.h" /FD 

/c 

# ADD BASE MTL /nologo /D "_DEBUG" /mktyplib203 /o "NUL" /win32 

# ADD MTL /nologo /D "_DEBUG" /mktyplib203 /o "NUL" /win32 

# ADD BASE RSC /I 0x409 /d "_DEBUG" 

# ADD RSC /I 0x4 09 /d "_DEBUG" 
BSC32=bscmake . exe 

# ADD BASE BSC32 /nologo 

# ADD BSC32 /nologo 
LINK32=link.exe 

# ADD BASE LINK32 /nologo /subsystem: windows /debug /machine : 1386 
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/pdbtype: sept 

# ADD LINK32 version. lib /nologo /subsystem: windows /debug /machin 
e: 1386 /pdbtype: sept 

!ENDIF 

# Begin Target 

# Name "CTPUtil - Win32 Release" 

# Name "CTPUtil - Win32 Debug" 

# Begin Group "Source Files" 

# PROP Default_Filter "cpp;c;cxx;rc;def ;r;odl;idl;hpj;bat" 

# Begin Source File 

SOURCE=AAGDC.cpp 

# End Source File 

# Begin Source File 

SOURCE-. \AGDoc , cpp 

# End Source File 

# Begin Source File 

SOURCE- . \AGLayer . cpp 

# End Source File 

# Begin Source File 

SOURCE- . \AGMatrix . cpp 

# End Source File 

# Begin Source File 

SOURCE- . \AGPage . cpp 

# End Source File 

# Begin Source File 

SOURCE- A AGSym. cpp 

# End Source File 

# Begin Source File 

SOURCE- . \AGText . cpp 

# End Source File 

# Begin Source File 

SOURCE- . \CTPUtil . cpp 

# End Source File 

# Begin Source File 
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SOURCE=.\CTPUtil.rc 

# End Source File 

# Begin Source File 

SOURCE- AMa i n Frm . cpp 

# End Source File 

# Begin Source File 

SOURCE- . \ ProgDlg . cpp 

# End Source File 

# Begin Source File 

SOURCE- A StdAfx. cpp 

# ADD CPP /Yc"stdafx.h" 

# End Source File 

# End Group 

# Begin Group "Header Files" 

# PROP Default^Filter "h;hpp;hxx;hin; inl" 

# Begin Source File 

SOURCE-. \AGDC.h 

# End Source File 

# Begin Source File 

SOURCE- AAGDib.h 

# End Source File 

# Begin Source File 

SOURCE- AAGDoc.h 

# End Source File 

# Begin Source File 

SOURCE- AAGLayer , h 

# End Source File 

# Begin Source File 

SOURCE- . \AGMat rix . h 

# End Source File 

# Begin Source File 

SOURCE- AAGPage.h 

# End Source File 

# Begin Source File 
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SOURCE=.\AGSym.h 

# End Source File 

# Begin Source File 

SOURCE-. \AGText.h 

# End Source File 

# Begin Source File 

SOURCE=ACTPUtil.h 

# End Source File 

# Begin Source File 

SOURCE- AMainFrm.h 

# End Source File 

# Begin Source File 

SOURCE=AProgDlg,h 

# End Source File 

# Begin Source File 

SOURCE^ . \Resource . h 

# End Source File 

# Begin Source File 

SOURCE=AStdAfx.h 

# End Source File 

# Begin Source File 

SOURCE- A vers ion . h 

# End Source File 

# End Group 

# Begin Group "Resource Files" 

# PROP Default__Filter "ico;cur;bmp;dlg;rc2;rct;bin;cnt;rtf ;gif ; j 
^* jpeg; jpe" 

# Begin Source File 

SOURCE- • \res\CTPUtil . ico 

# End Source File 

# Begin Source File 

SOURCE- AresXCTPUtil . rc2 

# End Source File 

# End Group 

# End Target 

# End Project 
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Microsoft Developer Studio Workspace File, Format Version 6.00 
# WARNING: DO NOT EDIT OR DELETE THIS WORKSPACE FILE! 

################################################################## 
############# 

Project: "CTPUtil"^. \CTPUtil .dsp - Package Owner=<4> 

Package=<5> 
{{{ 

begin source code control 
"$/CTPUtil", OKAAAAAA 

end source code control 

}}} 

Package=<4> 
{{{ 

Begin Project Dependency 
Project__Dep_Name ZLib 
End Project Dependency 
Begin Project Dependency 
Project_Dep_Name Stonehnd 
End Project Dependency 

}}} 

################################################################## 
############# 

Project: "Stonehnd"=. . \Stonehnd\Stonehnd.dsp - Package Owner=<4> 

Package=<5> 
{{{ 

begin source code control 
"$/Stonehnd", CGAAAAAA 
• • \stonehnd 

end source code control 

}}} 

Package=<4> 

{{{ 

}}} 



################################################################## 
############# 
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Project: "ZLib"=. . \ZLib\ZLib.dsp - Package Owner=<4> 

Package=<5> 
{{{ 

begin source code control 
"$/ZLib", LBAAAAM. 
. . \2lib 

end source code control 

}}} 

Package=<4> 

{{{ 

}}} 

################################################################## 
############# 

Global: 

Package=<5> 
{{{ 

begin source code control 
"$/CTPUtil", OKAAAAAA 

end source code control 

}}} 

Package=<3> 

{{{ 

}}} 

################################################################## 
############# 
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// CTPUtil.h : main header file for the CTPUTIL application 

// 

#if i defined CAFX„CTPUnL_H_64AE5205„3509„ilD3 9331_0080C6F796A1_INCLUDED 
#def ine AFX„CTPUTIL„H_64AE5205_3509„llD3_933i„0080C6F796Al_INCLUDED„ 

#if „MSC_VER >= 1000 
#pra^ma once 

#endif // _MSC_yER >« 1000 

#ifndef _AFXWINJrI_ 

#error include 'stdafx.h' before including this file for PCH 
#endif 

#include "resource .h'* //main s3pTtibols 

// CCTPUtilApp: 

// See CTPUtil.cpp for the implementation of this class 
// 

class CCTPUtilApp : public CWinApp 
{ 

public: 

CCTPUtilAppO; 

// Overrides 

// ClassWizard generated virtual function overrides 
//{ { AFX^VI RTUAL ( CCTPUt i 1 App ) 
public: 

virtual BOOL Initlnstance{ ) ; 
virtual int EKitInstance() ; 
Cri //}}AFXJ/IRTaAL 

f LI 

//^ Implementation 

IJ //{{AFXMSG(CCTPUtiiApp) 
s,\ afs:_msg void OnAppAbout () ; 
,J //}}AFX„MSG 

DECLARE_MESSAGE„MAP ( ) 



^YA {AFX„INSERT_„LOCATIOH} } 

//^Microsoft Developer Studio mil insert additional declarations immediately before the previous li 
#endif // I defined CAFX„CTPUTIL„H_64AE5205„3509_11D3„9331_0080C6F796A1_INCLUDED_) 



File: Vtork\CrtPrt\CTPUtil\CTPUtil .pig 



Page: 1 



<html> 
<body> 
<pre> 

<hl>Build Log</hl> 
<h3> 

Configuration; CTPUtil - Win32 Defeuq 

<h3>Coimaand Lines</h3> 

PUUrrc"""'"'' "rc.exe /I 0x409 /fo"Defoug/CTPUtil ,ras" /d "JEBUG" "C:\Work\CrtPrt\CTPUtiI\CT 

Creating temporary file "c:\windows\TEMP\RSP8372.IHP" with contents 

/nologo /Zp2 /Kid /W3 /Gm /GX /ZI /Od /I " . ,\Stonehnd" /I "..\ZLib" /D "WIKf32" /D " n^mm" /n " wikth 

OWS" /Fp"Debug/CTPUtil.pch" ^u"stdafK .h" /Fo"Debug/" /Fd " Debug/' VfD/c " " ™^ 

"C:\Work\CrtPrt\CTPUtil\AGDC.cpp" a i^i^ ^ 

"C :\Work\CrtPrt\CTPUtil\AGDoc .cpp" 

"C : \Work\CrtPrt\CTPUt i l\AGLd3^r . cpp " 

"C : \Work\CrtPrt\CTPUti INACMatriK .cpp " 

"C : \Work\CrtPrt\CTPUt i iNAGPage . cpp " 

^'C : \Work\CrtFrt\CTPUti INAGSym . cpp " 

"C : \Work\CrtPrt\CTPUt i iNAGTeKt . cpp » 

'•C : \Work\CrtPrt\CTPUt i ixCTPUt i 1 . cpp " 

"C : \Work\CrtPrt\CTPUti IxMainFrm . cpp " 

" C : \Work\CrtPrt \CTPUt i 1 \ProgD 1 g . cpp " 

Creating coitimand line "cl.exe @c:\windows\TEMP\RSP8372,TMP" 
Creating temporary file "c:\windows\TEMP\RSP 837 3, TMP" with contents 

/nologo /Zp2 /Mid A^3 /Gm /GX /ZI ^Od /I " . .\Stonehnd" /I " 

Qj^" /Fp"Debug^TPUtil.pch" /Yc "stda f s . h " ^o"Debug/" /Fd"Debuq/" /FD /c " 
\Vtork\CrtPrt\CTPUti 1 \StdAf x . cpp " 

hi 

qif^ating command line "cl.exe §c:\windows\TEMP\RSP8373.TMP" 
(pfating temporary file "c:\windows\TEMP\RSP8374.TMP" with contents 

ft«?^■■ie^u?OT§?iK:S"'/;db^^^ ^pdb.-Dehug/CXPUtil.pdb" /debug /machxne:I38 

.J3)ebug\^GDC .obj 

.\Jebug\AGDoc -obj 

•iJebugNAGLayer . ob j 

.^DebugNAGMatriK . obj 

■ >JDebug\AGPage . ob j 

-KfebugNAGSym.obj 

. '^iebugNAGText . ob j 

.^SiebugXCTPUtil .obj 

. IfebugNMa i nFrm . ob j 

. SSebugxProgD 1 g . ob j 

.UebugNStdAfH.obj 

.^SebugXCTPUtil.res 
\Work\CrtPrt\ZLib\Debug\ZLib .lib 
\Work\CrtPrt\Stonehnd\Debug\Stonehnd .lib 

Creating coinmand line nink.ese @c :\w in dowsxTEMPNRSPBS 74 .TOP*' 

<h3>0utput Window</h3> 

Compiling resources. , . 

Compiling . . , 

StdAfK.cpp 

Compiling. , . 

AGDC.cpp 

AGDoc . cpp 

AGLayer.cpp 

AGMatris.cpp 

AGPage.cpp 

AGSym.cpp 

AGText . cpp 

CTPUtil. cpp 

Mai nFrm. cpp 

ProgDlg.cpp 

Generating Code, . . 

Linking . . . 
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<h3>Results</'h3> 

CTPUtil.exe - 0 error(s), 0 waxning (s) 

</pre> 

</body> 

</'html> 
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//Microsoft Developer Studio generated resource script. 
// 

#include "resource. h" 

#define APSTUDIO_READONLY_SYMBOLS 

////////////////////////////////////////////////////////////////// 

I III I linn 
II 

II Generated from the TEXTINCLUDE 2 resource. 
// 

# include "afxres.h" 

iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiimiiiiiini/i// 
mil mill 

#undef APSTUDIO_READONLY_SYMBOLS 

iiiiiiiiiiiiiiiiiiiiiiiiimiiiiiiiiiiiiiimiiiiiimmmmm 
iiiiiiiim 

II English (U.S.) resources 

#if ! defined (AFX_RESOURCE_DLL) M defined (AFX_TARG_ENU) 
#ifdef _WIN32 

LANGUAGE LANG_ENGLISH, SUBLANG_ENGLISH_US 
#pragma code_page ( 1252 ) 
lendif //_WIN32 

iifdef APSTUDIO_INVOKED 

////////////////////////////////////////////////////////////////// 

/////////// 

// 

// TEXTINCLUDE 
// 

1 TEXTINCLUDE DISCARDABLE 
BEGIN 

"resource. h\0" 

END 

2 TEXTINCLUDE DISCARDABLE 
BEGIN 

"#include ""af xres . h""\r\n" 
"\0" 

END 

3 TEXTINCLUDE DISCARDABLE 
BEGIN 
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"#define _AFX_NO_SPLITTER_RESOURCES\r\n" 
" #def ine _AFX_NO_OLE_RESOURCES \ r \ n " 
" #de f ine _AFX_NO_TRACKER_RESOURCES \ r \ n " 
"#define _AFX_NO_PROPERTy RESOURCES\r\n" 
"\r\n" 

"#if ! defined (AFX_RESOURCE_DLL) || defined (AFX TARG ENU) \r\n" 

"#ifdef _WIN32\r\n" 

"LANGUAGE 9, l\r\n" 

"#pragma code_page (1252) \r\n" 

"#endif\r\n" 

"#include ""resWCTPUtil . rc2"" // non-Microsoft Visual C++ ed 
ited resources\r\n" 

"#include ""afxres . rc"" // standard components\r\n" 

"#endif\0" 

END 

#endif // APSTUDIO INVOKED 



////////////////////////////////////////////////////////////////// 
// 

// Icon 
// 

// Icon with lowest ID value placed first to ensure application ic 
on 

// remains consistent on all systems. 

IDR_MAINFRAME ICON DISCARDABLE "resWCTPUtil . ico" 

////////////////////////////////////////////////////////////////// 
// 

// Menu 
// 



IDR_MAINFRAME MENU PRELOAD DISCARDABLE 
BEGIN 

POPUP "SFile" 

BEGIN 

MENUITEM "Batch SPrint. 
MENUITEM "Build ^Thumbs 
MENUITEM "SCard List . . . ' 
MENUITEM SEPARATOR 
MENUITEM "P&rinter Setup. 

P 



r 



ID_BATCHPRINT 

ID_BUILDTHUMBS 

ID_CARDLIST 

ID FILE PRINT SETU 



File : Work\CrtPrt\CTPUtil\CTPUtil . rc 



Page: 3 



MENUITEM SEPARATOR 
MENUITEM "E&xit", 

END 

POPUP "Print &Options" 
BEGIN 

MENUITEM "&Default Format Only", 
MENUITEM "Force to &Quarter-fold", 
MENUITEM "Force to &Single-f old", 
MENUITEM "Print &Both formats", 

END 

POPUP "&Help" 
BEGIN 

MENUITEM "SAbout CTPUtil...", 

END 



ID APP EXIT 



ID_PRINTDEFAULT 
ID_PRINTQUARTER 
ID_PRINTS INGLE 
ID PRINTBOTH 



ID APP ABOUT 



END 



////////////////////////////////////////////////////////////////// 
// 

// Dialog 
// 

IDD_ABOUTBOX DIALOG DISCARDABLE 0, 0, 217, 65 

STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS SYSMENU 

CAPTION "About CTPUtil" 

FONT 8, "MS Sans Serif" 

BEGIN 

CTEXT "CTPUtil Version ",IDC VERSION, 5, 10, 208, 8, SS N 

OPREFIX 

DEFPUSHBUTTON "OK", IDOK, 84, 39, 50, 14,WS GROUP 

END 



CG_IDD_PROGRESS DIALOG DISCARDABLE 0, 0, 271, 79 

STYLE DS_MODAL FRAME | WS_POPUP | WS VISIBLE | WS CAPTION | WS SYSM 
ENU ~ ~ - 

FONT 8, "MS Sans Serif" 
BEGIN 

DEFPUSHBUTTON "Cancel", IDCANCEL, 110,58,50, 14 

CONTROL "Progressl",CG_IDC_PROGDLG_PROGRESS, "msctls pr 

ogre3s32", ~ 

WS_BORDER, 17, 34, 236, 13 
LTEXT " 0 %",CG_IDC_PROGDLG_PERCENT,126,23,18,8 

LTEXT "",CG IDC PROGDLG STATUS, 13, 7, 242, 8 

END ~ ~ 
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/^'i'/i^'i/iiiininnni////////i///ninfuiiinnf/nnn!iifiiii 
// 

// DESIGNINFO 
// 



#ifdef APSTUDIO_INVOKED 
GUIDELINES DESIGNINFO DISCARDABLE 
BEGIN 

IDD_ABOUTBOX, DIALOG 
BEGIN 

LEFTMARGIN, 7 

RIGHTMARGIN, 210 

TOPMARGIN, 7 

BOTTOMMARGIN, 58 

END 



CG_IDD_PROGRESS, DIALOG 
BEGIN 

LEFTMARGIN, 7 
fS RIGHTMARGIN, 264 

rii TOPMARGIN, 7 

% BOTTOMMARGIN, 72 

s'j END 
Elfp 

#gidif // APSTUDIO_INVOKED 

ftiiiini//ni/nn///n/iin/i/nn/nn/////i/n/inm/////m/ 

lid II 1 1 1 1 1 1 

/ft 

l't% string Table 
/ft 

STRINGTABLE DISCARDABLE 
BEGIN 

CG_IDS_PROGRESS_CAPTION "Printing. . . " 
IDS_PROGRESS_THUMBS "Building Thumbs..." 

IDS_PROGRESS_CARDLIST "Generating Card List..." 

END 



fendif // English (U.S.) resources 

////////////////////////////////////////////////////////////////// 
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#ifndef APSTUDIO_INVOKED 

////////////////////////////////////////////////////////////////// 

/////////// 

// 

// Generated from the TEXTINCLUDE 3 resource. 
// 

#define _AFX_NO_SPLITTER_RESOURCES 
#define _AFX_NO__OLE_RESOURCES 
#define _AFX_NO_TRACKER_RESOURCES 
#define _AFX_NO_PROPERTY_RESOURCES 

#if ! defined (AFX_RESOURCE_DLL) || defined (AFX_TARG_ENU) 

#ifdef _WIN32 

LANGUAGE 9, 1 

#pragma code_page (1252) 

lendif 

#include "res\CTPUtil . rc2" // non-Microsoft Visual C++ edited res 
ources 

ftticlude "afxres.rc" // Standard components 

#'^dif 

/5f!//////////////////////////////////////////////////////////////// 

1% I mini 

#'ptidif // not APSTUDIO_IiSfVOKED 



File: Work\CrtPrt \CTPUt i 1 N^a i nFrtn . cpp 



// MaxnFrm.cpp : implementation of the CMainFrame class 

// 



#include "stdafx.h" 

#include '"CTPUtii.h" 

#iiiclude "MainFnn.h" 

#include "AGDoc.h" 

#includs "AGDib.h" 

^include "ProgrDlg.h" 

#include <f stream, h> 
#include <mndowsx.h> 
#include <math.h> 

#ifdef jmm 

#define new DEBUG„NEW 
#undef IHIS_FIL£ 

static char IHIS_FILE[] - _FIL£_; 
#endif 



#de£ine MAXJILEBUF 65535 
typedef struct { 

int KSize; /* horizontal size of the ima^e in Pixels */ 

int ysize; /* vertical size of the image in Pixels */ 

BYTE * data; /* pointer to first scanline of image */ 

int span; /* byte offset between two scanlines */ 
} Imacfe; 

vfoid a?*om (Image *dst^ Image *src); 

m 

^/ CMliliFrame 

BEGINai&SSAGE.MAP (CMainFrame , CFrameWnd) 
//•ftAFXJdSG^MAP (CMainFrame) 
0rfj]0MHAND(ID_BATCHPRIlNlT, OnBatchPrint) 
OCI^OMMAHD{ID„BUILDTOUMBS, OnBuiidThumbs) 
ON„UPDATE_COMMAHD_UI (ID^PRIOTBOTH, OnUpdatePrintBoth) 
0]C£0MM^^(ID„PRIOTBOTB. OnPrintOptians) 

OMi:lrPDATE_COMMANDJUri (ID^PRIOTDEFAULT, OnUpdatePrintDefault) 
01syjPDATE_.C0MMAND_UI (ID„PRIKTQUARTER, OnUpdatePrintQuarter) 
OISLWDATE.COMMMID.UI ( ID^PRIOTSIIilGLE , OnUpdatePrintSingle ) 
OltlCOlC^AMD ( ID.PRIOTDEFAULT, OnPrintOpt ions ) 
ObltOMMAKD (ID^PRIOTQUARTSR, OnPrintOpt ions) 
OM£|!OMMAlsfD{ID„PRIOTSINGLE, OnPrintOptions) 
0H?.€0MMA1:5D(ID_CARDLIST, OnCardList) 
//T}AFX„MSG MAP 
NDJ!ESSAGE_MAP() 

/ CMainFrame construction/destruction 

MainFrame : :CMainFrame ( ) 

Create (IsIULL, "Create and Print Utility", WS^OVERLAPPEDWIMDOW, 
rectDefault, mJLL, MAKEINTRESOURCE (IDR^MAIliJFRAME) ) ; 

m_nPrintOption = ID^PRIOT-DEFAULT; 



MainFrame : : '^CMainFrame { ) 



}0L CMainFrame: :PreCreateWindow(CREATESTRUCTS: cs) 
return CFrameWnd : :PreCreateWindow(cs) ; 
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// CMainFrame diagnostics 
#ifdef JEBUG 

void CMainFrame: ;AssertValid{) const 
{ 

CFrameWfid : : AssertVal id ( ) ; 

} 

void CMainFrame : :Dump(CBumpConteKt& dc) const 
{ 

CFrameWnd ; :Dujnp (dc ) ; 

} 

#end if //DEBUG 



// CMainFrame message handlers 

void CMainFrame : :OnBatchPrint ( ) 
{ 

CString csFi Iters; 

csFiiters « "Create and Print Files (*.ctp)"; 
csFi Iters 

csFi Iters -t-= "»*c:tp"; 
csFi Iters "j"; 
csFi Iters "j"; 

CFileDialog FiieDlg (TRUE, MILL, mi, 

CSFN^HIDEREADONLY 1 OFN_.FILEMUSTEXISr j OFN_ALLOmJLTI SELECT, 

,asFiltera, AfxGetMainWnd ()); 
F|SeDlg.m_o£n.lpstrTitle * "Select File(s) to Print**; 
Fll^Dlg.m„ofn.lpstrFile - (char *) malloc (MAX^FILEBUF) ; 
«fiileDlg.m_ofn.lpstrFile - 0; 
Fi^^Blg.m^ofn.nMaxFile - MAX_FILEBUF; 

il^^^(FileDlg.DoModal () IDOK) 

O PRIOTDLG PrmtDlg; 

■^"^ if (AfsGetApp () ->GetPrinterDeviceDefaults (StPrintDlg) ) 
{ 

DEVHAMES *pDevKaii\es - (BEVHAMES *) GlobalLock (PrintDlg .bDevNames) ; 
DEVMODE *pDevMode = (DEVMODE *) GlobalLock (PrintDlg .hDevMode) ; 
char *pszDriver « ((char *) pDevl^ames) + pDevNames->wDriverOf fset; 
char *ps2Device ^ ((char *) pDevMames) + pDevWames->wDeviceOf fset ; 
r-^ char *pszOutput « ((char *) pDevNames) + pDevMames->wOutputOf fset; 

CProgressDlg ProgDlg; 
ProgDlg.Create( J ; 



int nFileCount « 0; 

POSITION Pos « FileDlg.GetStartPosition {); 

while (Pos 1^ MILL) 

{ 

nFileCount+-f ; 

FileDig.GetNeKtPathHame (Pos); 

} 

ProgDlg.SetRange (0, nFileCount); 

Pos = FileDlg.GetStartPosition (); 

while (Pos 1= IjJULL) 

{ 

CString csFileNaitie - FileDlg .GetNeKtPathName (Pos); 
CString csMsg ^ "Printing "; 
csMsg +^ csFileKame; 
ProgDlg.SetStatus (csMsg); 
if (ProgDlg.CheckCancelButton {)) 
break ; 



CAGDoc «pAGDoc « new CAGDoc (); 

if stream In (csFiieName, 2os;:in | ios: rnocreate | ios : :binary) ; 
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If (pAGDoc->Read (In)) 
{ 

int nOption - m^nPrintOption; 
if {nOption ID^PRIHIDEFAULT) 

{ 

AGDOCTYPE DocType « pAGDoc->GetDocType (); 

if (DocType DOC_CARDFV l[ DocType DOC„CARDFH) 

nOption - IDJRIOTQUARTER; 
else if (DocType DOC„CARDW 1 1 DocType DOC„CARDHH) 

nOption « IB^PRHsTTSmGLE; 

else 

nOption - 0; 

} 

if (ProgDlg.CheckCancelButton ()) 
break ; 

if (nOption ID^PRIOTQUARTER M nOption ID^PRIKTrBOTH) 
{ 

pAGDoc->PrintCardQuarter (pszDriver, pszDevice, 
pssOutput, pDevModer csFileName) ; 

} 

if (ProgDlg.CheckCancelButton ()) 
break ; 

if (nOption =- ID^PRIHTSIMGLE 1 | nOption IBJRIOTEOIH) 
{ 

bool bRotated; 

pAGDoc->PrxntCardSingle (PRUsrUOIH, pszDriver, 
1:1 pszDevice, pszOutput, pDevMode^ bRotated, csFilsName); 

a } 

v.: ProgDlg-StepIt (); 

fy if (ProgDlg.CheckCancelButton ()) 

break; 

} 

delete pAGDoc; 

d } 

!^ : rGlobalUnlock (PrintDlg .hDevMode) ; 
M : ;GlobalUnlock (PrintDlg.hDevNames) ; 

M } 
}h\ 

fafeTe (FileDlg[.m_ofn . IpstrFile) ; 

5: w; 



7oid cp^inFrame: rOnBuildXhumbsO 
r 

L 

CString csFi Iters; 

csFilters ^ "Create and Print Files («.ctp)"; 
csFi Iters "|"; 
csFi Iters += "*.ctp'*; 
csFi Iters "j": 
csFilters " 1 "; 

CFileDialog FileDlg (TRUE, NULL, MULL, 

OFN^HIDEREABONLY ( OFN.FILEMUSTEXIST j OFN„ALLOVMJLTISELECT, 

csFilters, Af xGetMainWnd ()); 
FileDl0.itL.ofn.lpstrTitle = "Select Fiie(s) to Build Thuinbs"; 
FileDlg.m^ofn.lpstrFile - (char *) malloc (MAXJILEBUF) ; 
*FileDlg.m„ofn.lpstrFile « 0; 
FiieDlg.nuofn.nMasFile - MAX_FILEEUF; 

if (FileDlg.DoModal () IDOR) 
{ 

CProgressDlg ProgDlg (IDS^PROGRESS^IHUMBS) ; 
ProgDlg.CreateO ; 

int nFileCount « Q; 

POSITION Pos » FileDlg.GetStartPosition (); 
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while (Pos ! = MILL) 
{ 

nFileCount++; 

FileDlg . GetHextPathHame (Pos ) ; 

} 

ProgDlg.SetRange (0, nFileCoant) ; 

Pos ^ FileDlg.GetStartPosition (); 

while (Fob WLL) 

i 

CString csFileMame « FileDlg .Get^extPathHame (Pos); 
CStrmg csMsg « "Building Thumbs for 
csMsg +^ csFile^^ame; 
ProgDlg . SetStatus (csMsg ) ; 
if (ProgDlg. CheckCancelButton ()) 
break; 

CAGDoc *pAGDoc - new CAGDoc (); 

ifstream In (csFileNaine, ios::in | ios : :nocreate ( ios: :binary) ; 

if {pAGDoc->Read (In)) 
{ 

CAGPage *pPage = pAGDoc-> Get Page (1); 
int nLast = csFileName .ReverseFind 

CString csThumbX = csFileHame .Left (nLast) + "w. .N\Th\mifo" + 
csFileHame.Mid (nLast, csFileName .GetLength () - nLast - 5) + 
"T.bmp"; 

CString csThumfoD = csFileName .Lef t (nLast) + "\\. .WDetail" + 
csFileNaiRe.Mxd (nLast, csFileName. Get Length () - nLast - 5) + 
S3 "D.bmp"; 

m if (ProgDlg -CheckCancelButton ()) 

%l break; 

\j CreateThuffih (pPage, 153*2, csThumtaT); 

!:1 if (ProgDlg. CheckCancelButton ()) 

' break ; 

1" CreateThumb (pPage^ 400«2, csThumbD); 

ProgDlg. Stepit (); 
'^J if (ProgDlg, CheckCancelButton ()) 

i:\ break; 

'T } 

1'2 delete pAGBoc; 

}E 

£tBB (FileDlg .iiuofn , IpstrFile) ; 

} 



/old CMa i nFrame : : OnCardL i st ( ) 
r 

L 

CString csFilters; 

csFilters = "Create and Print Files (*.ctp)'*; 
csFi Iters "|"; 
csFilters "*,ctp"; 
csFilters "j"; 
csFilters +« " | "; 

CFileDialog FileDlg (TRUE. 3:5ULL, 15ULL, 

OFN.HIDEREADONLY | OFN„FILEMUSTEXIST ( OFN_ALL0VMJLTI SELECT, 

csFilters, AfxGetMainWnd (j); 
FileDlg. m^ofn.lpstrXitle = "Select File(s) for Card List"; 
FileDlg.in^ofn.lpstrFile = (char *) malloc (MAX_FILEBUF) ; 
«FiIeDlg.m_ofn.ipstrFile « 0; 
FileDlg.iR_ofn,nMaKFile = MAX_FILEBUF; 



if (FileDlg. Dotodal () IDOK) 
{ 
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CProgressDlg ProgDlg (IDS„PROGRESS„CARDLIST) ; 
ProgDlg. Great© (); 

int nFileCount « 0; 

POSITION Pes - FileDla.GetStartPosition (); 

while (Pos != miL) 

{ 

nFileCount++; 

FileDlg.GetNeKtPathName (Pos); 

ProgDlg.SatRange (0, nFileCount); 

FILE »output ^ fopen ( "card list .csv" , "w'M ; 

if (output mLL) 

{ 

MessageBox (''Can't open output file", HULL, MB OR); 
return; * 

} 

Pos - FileDlg.GetStartPosition (); 
while (Pos NULL) 

CString csFileHame = FileDlg.GetNeKtPathName (Pos); 
CString csMsg = "Processing "; 
csMsg csFileHame; 
ProgDlg.SetStatus (csMsg) ; 
if (ProgDlg.CheckCancelButton ()) 
break ; 

CAGDoc *pAaDoo = new CAGDoc (); 

ifstream In (csFileMaaie, ios: rin | ios : rnocreate | ios : :binary) ; 
in if (pAGDoc->Read (In)) 

'2 if (ProgDlg.CheckCancelButton ()) 

W break; 

char szFName [ JlA^CFlJmME] ; 
^ .splitpath (csFileHame, HULL, ^JLL, szFName, iULL) ; 

S2FMame[7] 0; 

AGDOCTYPE DocType « pAGDoc->GetDocType (); 
fprintf (output, Zs. Zs\n\ szFName, 

(c^har *) ((DocType DOC^CARDHV \\ DocType DOC„CARDHH) 
ly (c^iiar *) ((DocType DOO-CARDHV |t Boclype DOC_CARDFV) 

;I ProgDlg.StepIt {); 

4' (ProgDlg.CheckCancelButton ()) 

O break; 

} 

delete pAGDoc; 

} 

f close (output); 
free (FileDlg ,m_ofn .IpstrFile) ; 



^oid CMainFrame: :OnPrintOptions( ) 

m„nPrintOption - GetCurrentMessage [)->wParam; 



''oid CMainFrame: :OnUpdatePrintBoth(CCmdUI* pCmdUI) 

pCmdUI-> Set Radio (in„nPrintOption === ID_PRIOTBOTH) ; 



oid CMainFrame: :OnUpdatePrintDefault(CCmdUI* pCmdUI) 
pCmdUI->SetRadio (m^nPrintOption ID^PRHsTTDEFAULT) ; 



File: Work\CrtPrt\CTPUtil\MainFrm,cpp p^^^. ^ 

void CMainFrame: :OnUpdatePrintQuarter(CCmdUI* pCmdUI) 

pCmdUI->S©tRadio (m^nPrintOption ID_PRIKTQUARTER) ; 



} 

void CMainFrame: :OnUpdatePrintSingle(CCindUI* pCmdUI) 

pCmdUI-> Set Radio (m_nPrintOption — ID.PRIOTSINGLE) ; 

} 

void CMainFrame: iCreateThumb (const CAQPage "pPage, int nMaxSize, 
const char *pszFileName) 

{ 

SIZE sisePage; 

pPage->GetPageSize (SsizePage); 

double KScala - (double) nMasrSize / (double) sizePage.cx; 
double yScale - (double) nMasSize / (double) sizePage.cy; 
if (xScale < yScale) 
yScale - KScale; 

else 

xScale = yScale; 

Blimp INFO bi; 

mezttset (&bi, 0, sizeof (foi ) } ; 

bi .biniHeader,biSize = sizeof (BIIHAPIHFOHEADER) ; 

bi .bmiHeader.biWidth « (int) ( (sizePage ,cx * xScale) + 0.5); 

bi.bmiHeader.biHeight = (int) ( (sizePage .cy * yScale) + 0.5); 

foi.*bmiHeader*biPlanes ^1; 

bi|bmiHeader.biBitCount = 24; 

bQbmiHeader.biCompression = BI„RQB; 

bfflbmiHeader.biXPelsPerMeter === 3938; 

b||.jbmiHeader. bi YPelsPerMeter « 3938; 

BlrtE *pBits = KIULL; 

C^QDIBSectionDC do (&bi, DIB„R0B_COLORS, %Bits); 

Rggr DestRect - {0. 0. bi .bmiHeader.biWidth, bi.bmiHeader.biHeight}; 
:j.liliRect {do.Getmc {), ^DestRect, (HBRUSH) : :(^tStockObject (ffilTE JRUSH) ) ; 

Cit(14atriK HatriK (xScale, 0. 0, yScale); 
diJrSetDeviceMatriH (Matrix); 
pP"'%e->Draw (dc); 

BfmAPIHFOHEADER biNew « bi .bmiHeader; 
b^Kbw.biWidth /= 2; 
b^lfew.biHeight 2; 
biNew. biSizelmage « 0; 

BIIMAPINFOHEADER *pdibDest - (BIimPIMFOHEADER *) GlobalAllocPtr (GHND. DibSize (ScbiNew) ) 
1 r (pdibDest ) % / / 

{ 

*pdibDest = biNew; 
Image dst. src; 

src.Ksize - (int) bi .bmiHeader .biWidth; 
src.ysize = (int) bi.bmiHeader.biHeight; 
src. data = pBits; 

src. span - DibWidthBytes (&bi .bmiHeader) ; 
dst.xsize « (int) pdibDest-yhiWidth; 
dst.ysize = (int) pdibDest->biHeight; 
dst.data = (BYTE *) DibPtr (pdibBest ) ; 
dst.span = DibWidthBytes (pdibDest); 

zoom (Scdst, &src); 

WriteBMP (pszFileName, (BITMAPINFO *)pdibDest, DibPtr (pdibDest)); 
GlobalFreePtr (pdibDest); 
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// WriteBMP (pszFileMame, Scbi, pBits); 
} 

void CMainFrame: rWriteBMP (const char *pszFileName, const BIIMAPIlsfFO * 
const BYTE *pBits) 

{ 

int nImageSize = DibSizelmage (£cpfomi->bmiHeader) ; 

BIimPFILEHEADER fof; 

memset (Scbf, 0, sizeof (bf)); 

bf.bfType = 0x4d42; /■* 'BM* */ 

bf .bfSize = sizeof (bf) + pbrai->bmiHeader.biSize + nImageSize; 
bf.bfOffBits = sizeof (bf) + pbmi->bmiHeader.biSize; 

FILE *output = fopen (pszFileName, "?<rb"); 

if (output) 

{ 

fwrite (&bf. sizeof (bf), 1, output); 

fwrite (&pbiai->biniHeader, pbmi->bcniHeader,biSize, 1, output); 
fwrite (pBits, nlmageSize, 1. output); 
f close (output); 



The iollowing code is from Filtered iKiage Rescaling by Dale Schumacher // 
//in Graphics Gems III 

#define M„PI 3.141592 '"^ 

#defi|i ffilTE^PIXEL (255) 
#defin^ BLACK^PIXEL (0) 

#defi^i CLAMP(v,l,h) ((v)<(l) ? (1) : (v) > (h) ? (h) : v) 

typedSi struct { 

BYIE b; 

BYEe g; 

B|¥E r; 
} Pixlll; 

typedef struct { 

i|t piKel; 

dtlulsle weight; 
} COKTBglB; 

typedf^ struct { 

iift' n; /* number of contributors «/ 

C(|irRIB *p; /* pointer to list of contributions */ 
} CLIfT^ 

:LIST *contrib; /* array of contribution lists ^/ 

roid get_row(PiKel *row. Image *image, int y) 

if{(y < 0) |] (y image->ysi2e)) { 
return; 

} 

hmemcpy( row, 

image->data + ((long) y » image->span) , 
^ (sizeof (Pixel) * image->Ksize) ) ; 

^oid get^column (Pixel *column. Image *im3ge, int z) 

int i, d; 
BYTE *p; 

if((x < 0) 11 (X >- image->xsize)) { 
return ; 

} 

d image->span; 

for(i - image->ysize, p = image->data -f (x « sizeof (Pixel)); i— > D; p dW 
column->r = p[2]; ' f «i i 
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column->g = p[l]; 
column->b = p[0]; 
coluinn++; 

} 

} 

void put^pixeti (Image *image, int int Pixel »data) 

static Image *im - JSHJLL; 
static int yy = -1; 
static BYTE *p ^ NULL; 

if((K < 0) II (X imaee->xsize) (| (y < 0) || (y image->ysi2e) ) { 
return ; 

} 

if((iin 1= image) )| (yy N y)) { 
im ^ image; 

yy = yi 

^ p image->data -f ((long) y * image->span) ; 

BYTE «pTemp = p + (x * sizeof (Pixel)); 
*pTemp++ = data~>b; 
»pTemp++ = data->g; 
»pTemp * data~>r; 

} 

inline double sine {double x) 
x *« M_PI; 

if^x I- 0) return{sin(x) / x); 
riturn(l.O) ; 

} ^3 

#defii.'^ Lanczos3_,support (3.0) 
inlin^i'double Lanczos3„f xlter(double t) 

if|t < 0) t = -t; 

i£|t < 3.0) return (sine (t) * sine (t/3 . 0) ) ; 
r^Surn (0.0); 

} o 

void |taom (Image *dst. Image *src) 

Iii[e%e tmp; inteimediate image */ 

d4lJble xscale, yscale; /» zoom scale factors «/ 

i|| i, k; /* loop variables »/ 

^4"^ 31 ; /* pixel number */ 

doAle center, left, right; filter calculation variables */ 
d(|#>le width, fscale. weight; /* filter calculation variables */ 
Pixel *raster; /» a row or column of pixels »/ 

/* create intermediate image to hold horizontal zoom »/ 
tmp.xsize - dst->ssi2e; 
tmp.ysize = src->ysize; 

tmp, data - (BYTE *) GlobalAllocPtr (GHND, 

(long) tmp.xsize * tmp.ysize * sizeof (Pixel)); 
if (tmp. data NULL) 
return ; 

tmp, span « tmp.xsize * sizeof (Pixel); 

xscale « (double) dst->xsize / (double) src->xsize; 
yscale « (double) dst->ysi2e / (double) src->ysize; 

/» pre-calculate filter contributions for a row 

contrib = (CLIST *) GlobalAllocPtr (GHND. dst~>xsize * sizeof fCLIST) ) ; 
if(xscale < 1.0) { 

width - Lanc2os3_support / xscale; 

fscale - 1.0 / xscale; 

for(i = 0; i < dst->xsize; -f-+i) { 
contrib [i] .n * 0; 

contrib[i].p = (CONTRIB *) GlobalAllocPtr (fflND, 

(long) (width * 2 + 1) * sizeof (CONTRIB) ) ; 
center = (double) i / xscale; 
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left « ceil (center - width); 
right = floor (center + width); 
for(j - (int) left; j <- (int) right; +4- j ) { 
weight « center - (double) j; 

weight - Lanczos3_fi Iter (weight / fscale) / fscale; 
< 0) { 
n - -j; 

} else if (j >- src->Ksize) { 

n (src~>Ksize - j) + src->Ksize - 1; 

} else { 
n - j; 

} 

k = contrxfo[i] .n-f+; 
c:ontrib[i] .p[k] .pixel =» n; 
contrib[i] .p[k] .weight = weight; 

} 

} else { 

for(i = 0; i < dst->Ksize; ++i) { 
contrib[i] .n « 0; 

contrib[i],p - (CONTRIB *)GlobalAllocPtr (GHKD, 

{Lanczos3_support * 2 -f Ij * sizeof (COOTRIB) ) ; 
center = (double) i / sjscale; 
left ceil (center - Lanczos3_support) ; 
right floor(center + Lanczos3„support ) ; 
for(j - (int) left; j <= (int) right; ++ j ) { 
weight = center - (double) j; 
weight - Lanc2os3_f i Iter (weight ) ; 
if(j < 0) { 
f-; n = -j; 

} else if (j src->Ksi2e) { 
\^ n (src->Ksize - j) + src->xsize - 1; 

Cn } else { 

n - j; 

:s > 

%^ k ^ contrib[i] .n++; 

IJ contrib[i] .p[k] -pixel = n; 

contribfij .p[k] .weight « weight; 

ss, } 

} 

}. 

-^^lapply filter to zoom horizontally from src to tmp 
raster = (Pixel *)GlobalAllocPtr (OTD, S3rc->KSize » sizeof (Pixel )) ; 
f©^(k - 0; k < tmp.ysize; ++k) { 
|£ get_row (raster, src, k) ; 

for{i =^ 0; i < trap.Ksize; -f+i) { 
iJ double rweight = 0.0; 
C3 double gweight ^0.0; 
double bweight =0.0; 
for(j 0; J < contrib[i] .n; ++ j ) { 

rweight +-= raster[contrib[i] ,p[j] .pixel] .r 

* contrib[i I .p[j ] .weight; 

gweight raster[contrib[i] .p[j ] .pixel] .g 

* contrib[i].p[j] .weight; 

bweight raster [contrib [i] .p[j ] .pixel ] .b 

* contrib [i ] .p[j] .weight; 

Pixel p; 

p.r - (BYTE) CLAMP (rweight, BLACK^PIXEL, ffiITE_PIXEL) ; 

p.g - (BYTE) CLAMP (gweight. BLACK_PIXEL, ^^ITE„PIXEL) ; 

p.b - (BYTE) CLAMP (bweight, BLACK„PIXEL, WHITE^PIXEL) ; 

// Since this output is destined for the printer, force to white 

if (p.r > 250 ScS: p.g > 250 p.b > 250) 

p.r - p.g - p,b « 255; 
put„pixel(£:tmp, i, k, Sep); 

} 

} 

GlobalFreePtr (raster) ; 

free the memory allocated for horizontal filter weights */ 
for(i - 0; i < tmp.xsize; ++i) { 
GlobalFreePtr (contrib [i ] .p) ; 
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} 

GlobalFreePtr (contrib); 

/* pre-calculate filter contributions for a column */ 

contrib - (CLIST *)GlobalAllocPtr (GHMD, dst->ysize * siseof (CLISTn 

if(yscale < 1.0) { 

width = Lanczos3„support / yscale; 

f scale = 1.0 / yscale; 

for(i - 0; i < dst->ysize; { 
contrib [i] .n = 0; 

contrib[i].p « (COKTRIB *)GlobalAllocPtr (GHISID, 

(long) {width * 2 + 1) * sizeof (COIsfrRIB) ) ; 
center = (double) i / yscale; 
left ^ ceil (center - width); 
right ^ floor (center + width); 
for(j = (int) left; j (int) right; ++ j ) { 
weight - center - (double) j; 

weight - Lanczos3_fi Iter (weight / fscale) / fscale; 
< 0) { 

n - -j; 
} else if(j tmp.ysize) { 

n « (tmp.ysize - j) + tmp.ysize - 1; 
} else { 

n - j; 

} 

k = contrib [i] ,n++; 
contrib[i] ,p[k] .pixel « n; 
contrib [i ] .p[k] .weight = weight; 

... } 
}^4lse { 

Q for(i = 0; i < dst->ysize; ++i) { 
ni contribfi] .n 0; 

contrib [i].p - (COOTRIB »)GlobalAllocPtr (GHISTD, 
(Lanczos3_support * 2 + 1) * sizeof (COOTRIB) ) ; 
%J center - (double) i / yscale; 

left = ceil (center - Lanczos3„support) ; 
-11 right - floor(center + Lanczos3_support) ; 

for(j - (int) left; j <- (int) right; ++j ) { 
weight « center - (double) j; 
.3 weight = Lanczos3_filter(weight); 

if(j < 0) { 
ri n - -j; 

"■'^ } else if(j tmp.ysize) { 

ly n * (tmp.ysize - j) + tmp.ysize - 1; 

} ©Ise { 
n = j; 

U } 

y k ^ contrib [i] .n+-*-; 

c;ontrxb[i] .p[k] .pixel n; 
contrib[i] ,p[k] .weight = weight; 



} 



} 



/* apply filter to zoom vertically from tmp to dst */ 
raster - (Pixel *)GlobdlAllocPtr (CTsfD, tmp.ysize * sizeof (Pixel )) - 
for(k = Q; k < dst->xsize; +-*-k) { ^ 
get_column (raster, Sttmp, k); 
for(i - 0; i < dst->ysize; ++i) { 
double rweight ^ 0.0; 
double gweight = 0.0; 
double bweight « 0,0; 
for(j - 0; j < contrib [i ] .n; ++ j ) { 

rweight 3raster[contrib[i ] .p[j ] .pixel ] ,r 

* contrib [1 ] .p[j] .weight; 

gweight += raster[contrib[i],p[j]. pixel], g 

* contrib[i] .p[j ] .weight; 

bweight raster [contrib [i ] .p[j ] .pixel ] .b 
^ * contrib[i] .p[jj .weight; 

Pixel p; 

p.r = (BYTE) CLAMP (rweight, BLACK_PIXEL, ffiITE„PIXEL); 
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p.g - (BYTE) CLAMP (gweight. BLACK_PIXEL, WHITE.PIXEL) ; 
p.fo = (BYTE) CLMP(bweigbt, BIACK„PIXEL, WITE.PIXEL); 

Since this output is destined for the printer, force to white 
if (p.r > 250 aSc p.g > 250 p.b > 250) 

p-r p.g - p.b - 255; 
put_pixel (dst, k, i, ; 

} 

} 

GlobalFreePtr (raster); 

/« free the memory allocated for vertical filter weights */ 
for{i - 0; i < dst->ysize; { 
GlobalFreePtr (contrib[i ] .p) ; 

} 

GlobalFreePtr (contrib); 



GlobalFreePtr (tmp.data); 

} 
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// MdinFnn.h : interface of the CMainFrame class 

// 



#if ! defined (AFX„MAINFRM_H_64AE5209„3509_11D3J331„0080C6F796A1_IMCLUDED_) 
#define AFX.MAmFRM_H_64M5209_3509_llD3„933U080C6F796Al_INCLUDED„ 

#if _MSC_VER >- 1000 
#prag][na once 

#endif // „MSC_VER >- 1000 



#include "AGPage.h" 

class CMainFrame : public CFrameWnd 
{ 

public: 

CMainFrame () ; 

// Attributes 
public: 



Operations 
public: 

Overrides 

// ClassWizard generated virtual function overrides 
//{{AFX.VIRIUAL (CMainFrame) 

virtual BOOL PreCreateWindow(CREATESTR0CTS< cs); 
//}}AFX_VIRTaAL 

// Iifi^ementation 
publi^: 

\Sl:tual "^CMainFrameO ; 
#ifde,fi .DEBUG 

y&tual void AssertValidO const; 

V^tual void Dump(CDumpConteKt£c dc) const; 
#endi|£| 

prot^iiij^ed : 

Void CreateThuHib (const CAGPage *pPage, int nMaxSize. 

g const char *ps2FileNaine) ; 
vpld V^riteBMP (const char »pszFxleHame^ const BIIMAPIWFO *pbKii. 

,rconst BYTE *pBits); 

// Geltlrated message map functions 
prote|:g:ed : 

{AFXJiSG (CMainFrame ) 

af4_msg void OnBatchPrint () ; 

afl„msg void OnBuildThumbs( ) ; 

afx_msg void OnCardList () ; 

afx^msg void OnPrintOptions ( ) ; 

afs.msg void OnUpdatePrintBoth (CCmdUI* pCmdUI); 

af5c„ffisg void OnUpdatePrintDefault (CCmdUI* pCmdUI); 

afK_,msg void OnUpdatePrintQuarter (CCmdUI* pCmdUI); 

afK_msg void OnUpdatePrintSingle (CCmdUI* pCmdUI); 

//}}AFX„MSG 

DECLARE„MESSAGE„MAP ( ) 

protected : 

int m„nPrintOption; 



//{ {AFX_mSERT_L0CATION} } 

// Microsoft Developer Studio will insert additional declarations immediately before the previous li 
ne . 

#endif !defined(AFX.MAIlsfFRM_H_64AE5209_3509„llD3„933O080C6F796Al_mCLUDED_) 
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// PragDlg.cpp : implementation file 

// CG: This file was added by the Progress Dialog component 

#include "stdafs.h" 
#includs "resource. h" 
#include "ProgDlg.h" 

#ifdef JEBUG 
#undef THIS_FILE 

static char BASED„CODE THIS„FILE[] = _FILE_; 
#endif 



// CProgressDlg dialog 

// 

CProgressDlg: :CProgressDlg (UIOT nCaptionID) 
{ 

m_nCaptionID - CG_IDS„PROGRESS„CAPTION; 
if (nCaptionID != 0) 

m_nCaptionID nCaptionID; 

m_bCance 1 «FALSE ; 
m_nLower-0; 
m„nUpper-100; 
ffijStep^l; 

//{ {AFX _DATA„IMIT (CProgressDlg ) 

NOTE; the ClassWisard will add member initialization here 
//}}AFX„DATA„miT 
ilJbParentDisabled ^ FALSE; 

} O 

CProgi^ssDlg : i^CProgressDlg { ) 

{ ru 

ig(m_hWndi«MJLL) 
,'TDest3royWindow() ; 

} 

BOOL -r^rogressDlg : : DestroyWi ndow ( ) 

{ 

HeEnableParent ( ) ; 

t^urn CDialog: :DestroyWxndow() ; 

} y 



void r#ProgressDlg : :ReEnableParent ( ) 

fS(m„bParentDisabled SeSc (m_pParentWnd ! «HULL ) ) 
'•^'4rupParentWnd->EnableWindow(TRLJE) ; 
m„bParen t D i sab led =FALSE ; 

} 



BOOL CProgressDlg: : Create (CWnd »pParent) 
{ 

// Get the true parent of the dialog 
3ti—pPci3rentWnd ^ CWnd : :GetSafeOwner (pParent ) ; 

// ffi„bParentDisabled is used to re-enable the parent window 
// when the dialog is destroyed. So we don't want to set 
// it to TRUE unless the parent was already enabled . 

if { (mjParentWndf ^MJLL) ra_pParentWnd->IsWindowEnabled ( ) ) 
{ 

m„pParentWnd~>Enabl^indow(FALSE) ; 
m_bParentDisabled - TRUE; 

} 

if (! CDialog: ; Create (CProgressDlg ; : IDD,pParent ) ) 
{ 

ReEnableParent ( ) ; 
return FALSE; 

} 
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return TRUE; 



void CProgressDlg: :DoDataEKchange(CDataEKchange* pDX) 
{ 

CDialog: :DoDataEKchange (pDX) j 

{AFX„DATA_MAP (CProgressDlg ) 
DDX„Control (pDX, CG„IDC„PROGDLG_PROGRESS, m^Progress); 
//}}AFXJATAJ4AP 

} 

BEGIN„MESSAGE„MAP ( CProgressD 1 g . CDialog) 

//{ {AFX„MSG„MAP (CProgressDlg ) 

//}}AFX.MSG_MAP 
END_MESSAGE.MAP() 

void CProgressDlg: :SetStatus(LPCTSTR IpszMessage) 

{ 

ASSERT (m.hWnd); // Don't call this „before„ the dialog has 

// been created. Can be called from OnlnitDialog 
CWnd *pWndStatus = GetDlgItem(CG.IDC_PROGDLG_STATUS} ; 

// Verify that the static text control exists 
ASSERT (pWndSt at us i =lsIULL) ; 
pWndStatus->SetWindowText (IpszMessage) ; 

} 

void !£ProgressDlg : : OnCancel ( ) 

{ 

iUbCancel^TRUE; 
void'^dProgressDlg: :SetRange(int nLower^mt nUpper) 

i a 

CInLower - nLower; 
4^nUpper - nUpper; 
iyProgress . SetRange (nLower , nUpper) ; 

} H 

int CProgressDlg : :SetPos (int nPos) 
SS^upMessages ( ) ; 

tfft iResult = m„Progress.SetPos(nPos); 
UpdatePercent (nPos ) ; 
return iResult; 

} 

int CProgressDlg: ;SetStep( int nStep) 
{ 

m_nStep » nStep; Store for later use in calculating percentage 

return m^Progress . Set Step ( nStep ) ; 

} 

int CProgressDlg: : Off setPos( int nPos) 
{ 

PumpMessages ( ) ; 

int iResult = m^Progress .Of fsetPos(nPos) ; 
Upda tePercen t ( 1 Resu 1 t+nPos ) ; 
return iResult; 



int CProgressDlg: :StepIt() 
{ 

PumpMessages ( ) ; 
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int iResult = iEL.Progress .Stepit ( ) ; 
UpdatePerc0nt(iResult+m„nStep) ; 
return iResult; 

} 



void CProgressDlg : : PumpMessages ( ) 
{ 

// Must call Create () before using the dialog 
ASSERT (m_hWnd ! -MILL) ; 

MSG msg; 

// Handle dialog messages 

while (PeekMessage(&nsg. IslULL, 0^ 0, PM_REMOVE)) 
{ 

if ( f IsDialogMessage (Stmsg) ) 
{ 

TranslateMessage (Smsg ) ; 
DispatchMessage (&msg) ; 

} 

} 

} 



BOOL CProgressDlg : :CheckCancelButton { ) 
{ 

Process all pending messages 
PumpMessages ( ) ; 

|2 Reset m„bCancel to FALSE so that 
{^4 CheckCancelButton returns FALSE until the user 
If clicks Cancel again. This will allow you to call 
-13 CheckCancelButton and still continue the operation, 
fy If m„bCancel stayed TRUE, then the neKt call to 
CheckCancelButton would always return TRUE 

WOL bResult ^ nL.bCancel; 
s^JbCancel ^ FALSE; 

fiturn bResult; 

> 

voids SProgressDig : :UpdatePercent (int n^ewPos) 

{ ^ 

*pWndPercent = GetDlgItem(CG„IDC_PROGDLG_PERCEKT) ; 
igt nPercent; 

if 

itft nDivisor ^ m^nUpper - m_nLower; 

ASSERT (nDivisor > 0); // m_nLower should be smaller than m„nUpper 

int nDividend ^ (nNewPos - mjLower) ; 

ASSERT (nDividend >= 0); // Current position should be greater than m„nLower 

nPercent - nDividend * 100 / nDivisor; 

Since the Progress Control wraps, we will wrap the percentage 
// oloxL^ with it. However, don't reset 100% back to Wi 
if (nPercent ! -100) 
nPercent %^ 100; 

// Display the percentage 
CString strBuf; 

strBu f . Format (_T ( "'%d5ic " ) , nPercent ,„T ( ' ' ) ) ; 

CString strCur; get current percentage 

pWndPercent->GetWindowTeKt (strCur) ; 

if (StrCur \^ strBuf) 

pWndPercent->SetWindowText (strBuf) ; 

} 
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// OnlnitDialog 

// 

BOOL CProgressDig: :OnInitDialog ( ) 
{ 

CDialog: :OnInitDialog( ) ; 
m_Progress , SetRange (m_nLciwer ,iiL_nUpper) ; 
sa^Progress . SetStep (m_nStep ) ; 
m_Progress .SetPos (in_nLower) ; 

CString strCaption; 

VERI FY ( St rCap t i on . LoadStr i ng (m^nCapt i on I D ) ) ; 
SetWindowTeKt (strCaption) ; 

return TRUE; 

> 
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// ProgDig.h ; header file 

// CG: This file was added by the Progress Dialog component 

// CProgressDlg dialog 

#ifndef _FROGDLG.H_ 
#define _PROGDLG„H_ 

class CProgressDlg ; public CDialog 
{ 

Construction / Destruction 
public: 

CProgressDlg (UIHT nCaptionID « 0); // standard constructor 
"'CProgressDlg 0 ; 

BOOL Create (CWnd *pParent=mJLL) ; 

// Checking for Cancel button 
BOOL CheckCancelButton ( ) ; 

Progress Dialog manipulation 
void SetStatus (LPCTSTR IpszMessage) ; 
TOid SetRange(int nLower,int nUppar) ; 
int SetStep(int nStep); 
int SetPos(int nPos); 
int OffsetPos(int nPos); 
int Steplt(); 

// Dialog Data 

m{ {AFX_MTA (CProgressDl g j 
Mnm { IDD - CGJDD_PROGRESS }; 
SfrogressCtrl m„Progress ; 
|^}}AFX_DATA 

Ov^^rides 

W ClassWizard generated virtual function overrides 

l^{{AFX_VIRnjlAL (CProgressDlg ) 

p#lic: 

Y%tual BOOL DestroyWindow(} ; 
^»tected : 

-sssirtual void DoDataEsschange (CDataExchange* pDX) ; // DDX/DDV support 
|5}}AFX„VIRTUAL 

Implementation 
prot^iyted : 

liMI m^nCaptionlD; 
iBfi m„nLower; 

m„nUpper; 
iS: m„nStep; 



BOOL m_bCancel; 

BOOL m^bParentDisafoled; 

void ReEnableParent ( ) ; 

virtual void OnCancel(); 
virtual void OnOK() {}; 
void UpdatePercent (int nCurrent); 
void PumpMessages ( ) ; 

Generated message map functions 
//{ {AFX„MSG (CProgressDlg ) 
virtual BOOL OnlnitDiaiog ( ) ; 
//}}AFX„MSG 
DECLARE_MESSAGE„MAP ( ) 



#endif // PROGDLG„H 
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//{ {NO JEPEHDEHC lES } } 

// Microsoft Developer Studio generated include file. 



// Used by CTPUtil.rc 

// 

#define IDD„ABOUTBOX 100 

#deflne CG_IDD_PROGRESS 102 

#define CG_IDS_PROGRESS_.CAPTION 103 

#define IDS_PROGRESS_IHUMBS 104 

#define IDS_PROGRESS_CARDLIST 105 

#define IDR_MAIHFRM4E 128 

#define IDR_CTPUTITYPE 129 

#define IDC„VERSION 1000 

#define CG_IDC_PROGDLG„PROGRESS 1003 

#d^fine CG_IDC„PR0GDLG_.PERCEU3T 1004 

#define CG„IDC_PROGDLG„STATUS 1005 

#define IDJUILDIHUMBS 32771 

#define IDJATCHPRIOT 32772 

#define ID^PRHsTIDEFAULT 32773 

#define ID_PRIOTSINGLE 32774 

#define ID_PRINTQUARTER 32775 

#deFine ID„PRIlsITBOITi 32776 

#define ID.CARDLIST 32777 



// HeKt default values for new objects 

#ifdef APSTUDIO_INVOKED 

#ifndef APSTUDIO^READONLY^SYMBOLS 



#define „APS„3D_C0OTR0LS 1 
#define „APS_HEXr3ES0URCE_VALUE 130 
#defffe „APS.NEXT„COMMMD„VALUE 32778 
#defife „APS_]sIEXr_C01SrrR0L„VALUE 1002 
#def£rfe _APS_NEXr„SYMED_VALUE 104 
#endlf^ 
#endf£1 
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// stdafK.cpp : source file that includes just the standard includes 

// CTPUtil.pch will be the pre-compiled header 

// stdafs.obj will contain the pre-compiled type information 

#include "stdafx^h" 
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stdafs.h : include file for standard system include files ^ 
// or project specific include files that are used frequently, but 
// are changed infrequently 

// 

#if ! defined (AFX_STDAFX_H_64AE5207„3509„11D3„9331 0080C6F796A1_IMCLUDED ) 
#define AFX„SIDAFX„H_64AE5207_35G9„11D3„9331„0080C6F796A1_INCLUD£D„ 

#if _MSC_VER >= 1000 
#pragnia once 

#endif // _MSC_VER >- 1000 

#define VC^EXIRALEAM // Exclude rareiy-used stuff from Windows headers 

#include <afxwin.h> MFC core and standard components 

#include <afse35:t.h> MFC eKtensions 

#ifndef „AFX„NO_.AFXCMtsf„SUPPORT 

#include <afKcmn.h> // MFC support for Windows Common Controls 

#endif // _AFX NO_AFXCMKLSUPPORT 



//{ {AFX„INSERT„LOCATIOH} } 

// Microsoft Developer Studio will insert ^.A^xXionol declarations immediately before the previous li 
ne. 

#include <vector> 

#define WIDTH(r) ((r) .right - (r),left) 

#define HEIGHr(r) ((r). bottom- (r).top) 

#defi^s^ SWAP (a, b) ((a) ^« (b),(b) (a), (a) (b)) 

#def ffe APP„RESOLUTIOH 1440 

#end$fl // ! defined (AFX_STDAFX„H_64AE5207_3509_llD3„933O080C6F796Al_IHCLUDED_) 
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# Microsoft Developer Studio Project File - Name- "CTP Inst'' - Package Owner-<4> 

# Microsoft Developer Studio Generated Build File, Format Version 5.00 

# *» DO NOT EDIT *» 

# TARGTYPE "Win32 (k86) Application" 0x0101 
CFG-CTPInst - Win32 Debug 

(MESSAGE This is not a valid makefile. To build this project using NMAKE, 
[MESSAGE use the Export Makefile command and run 
I MESSAGE 

IMESSAGE NMAKE /f "CTPInst .mak'\ 
1 MESSAGE 

! MESSAGE You can specify a configuration when running NMAKE 
IMESSAGE by defining the macro CFG on the coimnand line. For example: 
IMESSAGE 

IMESSAGE mkKE /f "CTPInst .mak" CFG-"CTPInst - Win32 Debug" 
IMESSAGE 

IMESSAGE Possible choices for configuration are: 
IMESSAGE 

IMESSAGE "CTPInst - Win32 Release" (based on "Win32 (x86) Application") 
IMESSAGE "CTPInst - Win32 Debug" (based on "Win32 (k86) Application") 
IMESSAGE 

# Begin Project 

# PROP Scc.ProjName " "$/'CTPInst " , MFAAAAAA" 

# PROP Scc„LocalPath "." 
CPP=cl .exe 

MTL'=midl ,exe 
RSC^rc .exe 

"$(CFG)" "CTPInst - Win32 Release" 

iriPROP BASE Use„MFC 0 

fL?ROP BASE Use_Debug_Libraries 0 

#IPROP BASE Output„Dir "Release" 

#==-^ROP BASE Intermediate Dir "Release" 

4li^R0P BASE Targetjir "" 

#,pROP Use.MFC 0 

#5*R0P UseJebug_Libraries 0 

#4>R0P Output„Dir "Release" 

# PROP Intemediate„Dir "Release" 
#f*ROP Ignore„Export„Lib 0 
^fTR0P Target_Dir "" 

C"kDD BASE CPP /nologo /W3 /GX /02 /D "WIN32" /D "NDEBUG" /D " WINDOV^" /YX /FD /c 
4 ADD CPP /noiogo /W3 ^GX /Ol /D "WIN32" /D "NDEBUG" /D "^WINDOWS" /FD /c 
«iSUBTRACT CPP /YX 

BASE MIL /nologo /D "NDEBUG" /mktyplib203 /o NUL /win32 
#^DD MTL /nologo /D "NDEBUG" /mktyplib203 /o NUL /win32 

BASE RSC /I 0x409 /d "NDEBUG" 

# ADD RSC /I 0x409 /d "NDEBUG" 
BSC32«bscmake .exe 

# ADD BASE BSC32 /nologo 

# ADD BSC32 /nologo 
LINK32-link,exe 

# ADD BASE LINK32 kernel 32, lib user32.1ib gdi32.1ib winspool.lib comdlg32,lib advapi32.1ib shell 32.1 
lb ole32.1ib oleaut32.1ib uuid.iib odbc32.1ib odbccp32.1ib /nologo /subsystem :windows /machine : 1386 

# ADD LINK32 kernel32.1ib user32.1ifo gdi32.1ib advapi32.1ib version. lib /nologo /subsystem: windows / 
machine:! 386 /nodefaultlib 

# SUBTRACT LINK32 /map 

lELSEIF "$(CFG)" « "CTPInst - Win32 Debug" 

# PROP BASE Use„MFC 0 

# PROP BASE Use„Debug_Libraries 1 

# PROP BASE Output_Dir "Debug" 

# PROP BASE Intermediate_Dir "Debug" 

# PROP BASE Targetjir "" 

# PROP Use„MFC 0 

# PROP Usejebug Libraries 1 

# PROP Output^Dir "Debug" 

# PROP Intermediatejir "Debug" 

# PROP Ignore_Export„Lib 0 

# PROP Target_Dir "" 
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# ADD BASE CPP /nologo /W3 /Qm /GX /Zi /Od /ID "WIN32" /D "JEBUG" /D "^WINDOWS'* /YX /FD /c 

# ADD CPP /nolo^o /Gm /GX /Zi /Od /D "WIN32" /D "„DEBUG" /D " WINDOWS" /FD /c 

# SUBTRACT CPP /YX 

# ADD BASE KIL /nologo /D "„DEBUG" /inktyplib203 /o MIL /win32 

# ADD MIL /nologo /D "^DEBUG" /mktyplib203 /o HUL /win32 

# ADD BASE RSC /I Ok 40 9 /d " DEBUG" 

# ADD RSC /I 0k409 /d "_DEBUQ" 
BSC32«bscniake.exe 

# ADD BASE BSC32 /nologo 

# ADD BSC32 /nologo 
LIHK32«link.ese 

# ADD BASE LIM32 kernel32.1ib user32.1ib gdi32.1ib winspool.lib comdlg32.1ib advapi32.1ib shell32.1 
ib ole32.1ib oleaut32.iib uuid.lib odbc32,lib odbccp32,lib /nologo /subsystem '.windows /debug /raachin 
e:I386 /pdb type : sept 

# ADD LINK32 kernel32.1ib user32.1ib gdi32.1ib advapi32.1ib version. lib /nologo /subsystem: windows / 
debug /machine : 1 386 /nodef aultlib /pdbtype : sept 

lENDIF 

# Begin Target 

# Name "CTPInst - Win32 Release" 

# Name "CTPInst - Win32 Debug" 

# Begin Source File 

SOURCE = . \CTP I ns t . cpp 

# End Source File 

# Begin Source File 

|aURCE«.\CTPInst.rc 

UF "$(CFG)" "CTPInst - Win32 Release" 

ii H 

flLSEIF "$(CFG)" =- '"CTPInst - Win32 Debug" 
I^NDIF 

#JEnd Source File 
#^Begin Source File 

SOURCE -.NNpctp.dl_ 
flEnd Source File 
#jBegin Source File 

yURCE=. .\HpCtp\ReleaseNNPCTP.dll 

|iF "S(CFG)" "CTPInst - Win32 Release" 

#"'Begin Custom Build 

InputPath= . . NNpCtp\ReleaseNNPCTP . dl 1 

"NpCtp.dl„" : $ (SOURCE) "$(1NTDIR)" "$(OUTDIR)" 
compress $(InputPath) NpCtp.dl„ 

# End Custom Build 

lELSEIF "$(CFG)" "CTPInst - Win32 Debug" 

# Begin Custom Build 

InputPath - . . NNpCtpNReieaseNNPCTP . dl 1 

"NpCtp.dl^" : $ (SOURCE) "${INTDIR)" "$(OUTDIR)" 
compress $ (InputPath) NpCtp,dl„ 

# End Custom Build 
i ENDIF 

# End Source File 

# Begin Source File 

SOURCE^ . \resource .h 

# End Source File 
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# Begin Source File 

SOURCE = Aversion .h 

# End Source File 

# End Target 

# End Project 
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^include <windows.h> 
#iiicl ude " resource . h " 

#define MSGBOX^TITLE "Installer" 
#de£ine SRCFILE "npctp.dl^" 
#define DESTFILE "NpCtp.dll" 



// Eliminate the need for linking in the CRT libraries 
// 

extern "C" void WinMainCRTStartup( ) 
{ 

// 

// Get the Navigator plugm directory 

// 

char szInstallDirUMAX^PAIH] - 
HKEY hKey; 

if (RegOpenKeyEs (HKEY CURREm'JJSER, '* So ftware\NKetscape\NHet scape NavieatorxNHain ' , 
0, KEY_READ, &hKey) ERROR^SUCCESS) 

DWORD dwSize = sizeof (s2lnstallDir) ; 

RegQueryValueEx(hKey, "Install Directory", MJLL, NULL, {BYTE *)szInstallDir, &dwSize); 
RegCloseKey (hKey) ; 

} 

if {!szInstallDir[0]) 

^ MessageBoKCNULL, "Netscape Navigator 3 installation directory registry entry not found.", 
MSGBOXjriTLE, MB_OK) ; 
E5£itProcess(0) ; 

ru } 

i,j else 

if (szInstallDir[lstrlen(szInstallDir) - 1] i- 'w') 
""■'4 lstrcat(szInstallDir, "w"); 

fi istrcat(szInstallDir, "programwplugins" ) ; 

r } 



5 J // Tell the user that we* re ^oiu^ to install the plug-in 
^™ char szMsg[512]; 

il wsprintf (szMsg, "This xs the American Greetings Create and Print Plug-m installer\n' 
rk "for Netscape Navigator version 3\n\n" 

"It will install the plug-in into -\n5^s\n\n" 

"Press OK to install.", 

szInstallDir) ; 

if (MessageBox(NULL, szMsg, MSGBOX.TITLE , MB_OKCANCEL) =- IDOK) 
{ 

// 

// Copy the compressed plug-in to the temp directory 

// 

char szSrcDirUM^^_.PATH]; 

GetTempPath (sizeof (szSrcDir) , szSrcDir) ; 

char szCompressedFileLMAX^PATH] ; 

Istrcpy (szCompressedFile, szSrcDir) ; 

if (s2CompressedFile[lstrlen(szCompressedFile) - 1] 

Istrcat (szCompressedFile, "w") ; 
1 St rcat (szCompressedFile, SRCFILE) ; 

OFSTRUCT of; 

HANDLE hFiie = (HANDLE)OpenFile (szCompressedFile, Scof, OF^CREATE ! OF.WRITE); 
if (hFile (HANDLE )HF I LE^ERROR) 

Me!ssageBoK(NULL, "Error extracting plug-in to temp directory.", 

MSGEOX^TITLE, MB_OK) ; 
EKitProcess(O) ; 
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} 

HRSRC hResInfo « FindResource (HULL, MAREIHTRESOURCE (IDR^COMPRESSED) , "COMPRESSED"); 
HGLOBAL hResData Loa<iResource(NULL, hResInfo); 
DWORD dwSize = Si2eofResource(]S[ULL, hResInfo); 
void *pData = LockResource (hResData) ; 
DWORD dwBytesWritten; 

WriteFile(hFile, pData, dwSize, ScdwBytesV^ritten , HULL); 
CloseHandle(hFile); 

// 

// Decompress the plug-m to the Netscape plug-in directory 
// 

char szTempFiieLMA}LPA"IH] - ""; 
UIOT uTmpFileLen - 0; 
DWORD dwResult = 0; 

dwResult - VerInstallFile{0, SRCFILE, DESTFILE, szSrcDir, ssIustallDir, 

szTempFile, toTmpFileLen) ; 

if (dwResult 0) 

MessageBoK(MJLL, "The plug-in was successfully installed.", MSGBOX„TITLE, MB„OR) ; 
else if (dwResult & VIF.SRCOLD) 

^ MessageBox (IsfULL , "You already have a newer version of the plug-in installed.", 
MSGBOX_TITLE, MB^OK); 

else if (dwResult VI F_F I LEI MUSE) 

p ^ MessageBoK (NULL , "You already have a version of the plug-in installed and it is currentl 

y, lin use.Nn" 

"You will have to exit Netscape before installing the new version", 
MSGBOXjriTLE, MB„OK) ; 

else if (dwResult & VIF.OUTOFSFACE) 

^ ^ MessageBoK (NULL , "You do not have enough disk space to install the plug-in.", 

MSGBOXjriTLE, MB_OK); 

Cl } 

7 else if ((dwResult & VIF^WRITEPROT) 1| (dwResult & VIF_TEMPFILE) ) 

C5 ^ dwResult - VerInstallFile(VIFF_FORCEINSTALL, SRCFILE, DESTFILE, szSrcDir, 

".J szInstallDir, szTempFile, SuTmpFileLen) ; 

.1 if (dwResult & VIF^WRITEPROT) 

{ 

f MessageBoK (NULL , 

O "You already have a version of the plug-in installed and it is write pro 

tacted.Nn" 

"You will have to remove the read only attribute before installing the n 

ew version . ", 

MSGBOX.XITLE, MB„OR) ; 

} 

else if (dwResult) 
{ 

char szMsg [50] ; 

wsprintf (szMsg, "Installation failed. Error %k", dwResult); 
MessageBox(NULL, szMsg, MSGBOX^TITLE , MB„OR) ; 

} 

else 

MessageBoK(NULL, "The plug-in was successfully installed.", MSGEOX„TITLE , MB„OK) ; 

} 

else 
{ 

char szMsg[50] ; 

wsprintf (szMsg, "Installation failed. Error %k", dwResult); 
MessageBo3£(NULL, szMsg, MSGBOX.TITLE , MB.OK) ; 

} 

// 

// Clean up the temporary files 
// 

DeleteFile (szCompressedFile) ; 
if {szTempFile[0]) 
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DeleteFile(szTempFile) ; 

> 

MessageBox(MJLL, "Installation aborted.". MSGBOX„TITLE, MB„OK) 
EKitProcess(O) ; 
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# Microsoft Developer Studio Project File - Name="CTPInst" - Packa 
ge Owner=<4> 

# Microsoft Developer Studio Generated Build File, Format Version 
6.00 

# ** DO NOT EDIT ** 

# TARGTYPE "Win32 (x86) Application" 0x0101 
CFG=CTPInst - Win32 Debug 

[MESSAGE This is not a valid makefile. To build this project using 
NMAKE, 

[MESSAGE use the Export Makefile command and run 
'MESSAGE 

! MESSAGE NMAKE /f "CTPInst .mak" . 
[MESSAGE 

'MESSAGE You can specify a configuration when running NMAKE 
[MESSAGE by defining the macro CFG on the command line. For exampl 
e: 

[MESSAGE 

[MESSAGE NMAKE /f "CTPInst .mak" CFG="CTPInst - Win32 Debug" 
[MESSAGE 

[MESSAGE Possible choices for configuration are: 
[MESSAGE 

[MESSAGE "CTPInst - Win32 Release" (based on "Win32 (x86) Applicat 
ion") 

[MESSAGE "CTPInst - Win32 Debug" (based on "Win32 (x86) Applicatio 
n") 

[MESSAGE 

# Begin Project 

# PROP AllowPerConfigDependencies 0 

# PROP Scc_ProjName ""$/CTPInst", MFAAAAAA" 

# PROP Scc_LocalPath "." 
CPP=cl.exe 

MTL=midl .exe 
RSC=rc. exe 

[IF "$(CFG)" == "CTPInst - Win32 Release" 

# PROP BASE Use_MFC 0 

# PROP BASE Use_Debug_Libraries 0 

# PROP BASE Output_Dir "Release" 

# PROP BASE Intermediate_Dir "Release" 

# PROP BASE Target_Dir "" 

# PROP Use_MFC 0 

# PROP Use_Debug_Libraries 0 
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# PROP Output_Dir "Release" 

# PROP Intermediate_Dir "Release" 

# PROP Ignore_Export_Lib 0 

# PROP Target Dir "" 

# ADD BASE CPP /nologo /W3 /GX /02 /D "WIN32" /D "NDEBUG" /D "_WIN 
DOWS" /YX /FD /c 

# ADD CPP /nologo /W3 /GX /Ol /D "WIN32" /D "NDEBUG" /D "_WINDOWS" 
/FD /c 

# SUBTRACT CPP /YX 

# ADD BASE MTL /nologo /D "NDEBUG" /mktyplib203 /o "NUL" /win32 

# ADD MTL /nologo /D "NDEBUG" /mktyplib203 /o "NUL" /win32 

# ADD BASE RSC /I 0x409 /d "NDEBUG" 

# ADD RSC /I 0x409 /d "NDEBUG" 
BSC32=bscmake . exe 

# ADD BASE BSC32 /nologo 

# ADD BSC32 /nologo 
LINK32=link.exe 

# ADD BASE LINK32 kernel32.1ib user32.1ib gdi32.1ib winspool.lib c 
omdlg32.1ib advapi32.1ib shell32.1ib ole32.1ib oleaut32.1ib uuid.l 
ib odbc32.1ib odbccp32.1ib /nologo /subsystem: windows /machine: 138 

6 

# ADD LINK32 kernel32.1ib user32.1ib gdi32.1ib advapi32.1xb versio 
n.lib /nologo /subsystem: windows /machine: 1386 /nodefaultlib 

# SUBTRACT LINK32 /map 

lELSEIF "$(CFG)" == "CTPInst - Win32 Debug" 

# PROP BASE Use_MFC 0 

# PROP BASE Use_Debug_Libraries 1 

# PROP BASE Output_Dir "Debug" 

# PROP BASE Intermediate_Dir "Debug" 

# PROP BASE Targe t_Dir "" 

# PROP Use_MFC 0 

# PROP Use_Debug_Libraries 1 

# PROP Output_Dir "Debug" 

# PROP Intermediate_Dir "Debug" 

# PROP Ignore_Export_Lib 0 

# PROP Target Dir "" 

# ADD BASE CPP /nologo /W3 /Gm /GX /Zi /Od /D "WIN32" /D "_DEBUG" 
/D " WINDOWS" /YX /FD /c 

# ADD CPP /nologo /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_ 
WINDOWS" /FD /C 

# SUBTRACT CPP /YX 

# ADD BASE MTL /nologo /D "_DEBUG" /mktyplib203 /o "NUL" /win32 

# ADD MTL /nologo /D "_DEBUG" /mktyplib203 /o "NUL" /win32 

# ADD BASE RSC /I 0x409 /d "_DEBUG" 
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# ADD RSC /I 0x409 /d "_DEBUG" 
BSC32=bscmake .exe 

# ADD BASE BSC32 /nologo 

# ADD BSC32 /nologo 
LINK32=link.exe 

# ADD BASE LINK32 kernel32.1ib user32.1ib gdi32.1ib winspool.lib c 
omdlg32.1ib advapi32.1ib shell32.1ib ole32.1ib oleaut32.1ib uuid.l 
lb odbc32.1ib odbccp32.1ib /nologo /subsystem: windows /debug /mach 
ine:I386 /pdbtype : sept 

# ADD LINK32 kernel32.1ib user32,lib gdi32.1ib advapi32.1ib versio 
n.lib /nologo /subsystem: windows /debug /machine: 1386 /nodefaultli 
b /pdbtype: sept 

lENDIF 

# Begin Target 

# Name "CTPInst - Win32 Release" 

# Name "CTPInst - Win32 Debug" 

# Begin Source File 

SOURCE=. \CTPInst . cpp 

# End Source File 

# Begin Source File 

SOURCE=. \CTPInst .rc 

# End Source File 

# Begin Source File 

SOURCE= . \Npctp . dl_ 

# End Source File 

# Begin Source File 

SOURCE=. . \NpCtp\Release\NPCTP.dll 

!IF "$(CFG)" == "CTPInst - Win32 Release" 

# Begin Custom Build 

InputPath=. .\NpCtp\Release\NPCTP.dll 

"NpCtp.dl_" : $ (SOURCE) "$(INTDIR)" "$(OUTDIR)" 
compress $(InputPath) NpCtp.dl_ 

# End Custom Build 

lELSEIF "${CFG)" == "CTPInst - Win32 Debug" 
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# Begin Custom Build 

InputPath=. • \NpCtp\Release\NPCTP^dll 

"NpCtp.dl_" : $ (SOURCE) "$(INTDIR)" "$(OUTDIR)" 
compress ${InputPath) NpCtp*dl_ 

# End Custom Build 
lENDIF 

# End Source File 

# Begin Source File 

SOURCE^ Aresource , h 

# End Source File 

# Begin Source File 

SOURCE=. \version.h 

# End Source File 

# End Target 

# End Project 
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Microsoft Developer Studio Workspace File, Format Version 6.00 
# WARNING: DO NOT EDIT OR DELETE THIS WORKSPACE FILE! 

################################################################## 
############# 

Project: "CTPInst"=. \CTPInst .dsp - Package Owner=<4> 

Package=<5> 
{{{ 

begin source code control 
"$/CTPInst", MFAAAAAA 

end source code control 

}}} 

Package=<4> 

{{{ 

}}} 

################################################################## 
############# 

Global : 

Package=<5> 

{{{ 

begin source code control 
"$/CTPInst", MFAAAAAA 

end source code control 

}}} 

Package=<3> 

{{{ 
}}} 

################################################################## 
############# 
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<htinl> 
<body> 
<pre> 

<hl>Build Log</hl> 
<h3> 

Configuration: CTPInst - Win32 Debug 

</h3> 

<h3>Coiniaand Lines</h3> 

Creating temporary file "c:\windows\TEMP\RSP7184.BAT" with contents 
[ 

@echo off 

compress ..NNpCtp\ReleaseWCTP.dll NpCtp.dl_ 
Creating command line "c:\windows\TEMP\RSP7184.BAT" 

Creating command line "rc.eKe /I 0k409 /fo"Debug/CTPInst .res'^ /d "JEBUG" "C:\Work\CrtPrt\CTPInst\CT 
PInst .rc" " 

Performing Custom Build Step on , .SIslpCtpVReleaseStJPCTP .dll 
Bad command or file name 

Creating temporary file "c:\windows\TEMP\RSP7i95.1KP" with contents 

/nologo /MLd /W3 /Gm /GX /ZI /Od /D "WIH32" /D 'LDEBUG" /D 'LWIMDOWS" /Fo "Debug/" /Fd "Debug/" /FD /c 
"C :\Work\CrtPrt\CTPInst\CTPInst .cpp" 

Creating command line "cl.eKe @c :\windows\TEMP\RSP7195 .IMP*' 

Creating command line "link.eKe kernel32.1ib user32.1ib gdi32.1ib advapi32.1ib version. lib /nologo / 
subsystem: windows /incremental : yes /pdb : "Debug/CTPInst .pdb" /debug /machine:I386 /nodefaultlib /out: 
"Debug/CTPInst.ese" /pdbtypersept .\Debug\CTPInst .obj .\Bebug\CTPInst .res " 
<h 3 > Output Window</h3> 
i&>mpiling resources. . . 

Cd:\Work\CrtPrt\CTPInst\CTPInst,rc (99): error RC2135 : file not found: Npctp.dl_ 
fgrror executing rc.ese. 



''^dh3>Results</h3> 

f|TPInst.ese - 1 error(s), 0 warning(s) 

''^/pre> 

^</body> 

C|/html> 
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//Microsoft Developer Studio generated resource script. 
// 

#include "resource. h" 

#define APSTUDI0_READONLY_SYMBOLS 

////////////////////////////////////////////////////////////////// 

/////////// 

// 

// Generated from the TEXTINCLUDE 2 resource. 
// 

#include "afxres.h" 
#include "version. h" 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 1 1 1 / 1 1 1 1 n 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n 1 1 
iiiiiiii/ii 

#undef APSTUDIO_READONLY_SYMBOLS 

//////////////////////////////////////// /////////nu///////////// 

I nil II I HI 

II English (U.S.) resources 

#if ! defined {AFX_RESOURCE_DLL) ii defined (AFX_TARG_ENU) 
#ifdef _WIN32 

LANGUAGE LANG_ENGLISH, SUBLANG_ENGLISH_US 
tpragraa code_page ( 1252 ) 
#endif //_WIN32 

#ifndef _MAC 

////////////////////////////////////////////////////////////////// 

/////////// 

// 

// Version 
// 

VS_VERSION_INFO VERSIONINFO 

FILEVERSION VER_FILE_VERSION 

PRODUCTVERSION VER_PRODUCT_VERSION 

FILEFLAGSMASK 0x3 fL 
#ifdef _DEBUG 

FILEFLAGS OxlL 
telse 

FILEFLAGS OxOL 
tendif 

FILEOS 0x40004L 

FILETYPE OxlL 

FILESUBTYPE OxOL 
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BEGIN 

BLOCK "StringFilelnfo" 
BEGIN 

BLOCK "040904b0" 

BEGIN 

VALUE "CompanyName", VER_COMPANY 

VALUE "FileDescrlption", "Create and Print Plug-in ins 

tallerXO" 

VALUE "FileVersion", VER_FILE_VERSION_STR 
VALUE "InternalName", "CTPInst\0" 
VALUE "LegalCopyright", VER_COPYRIGHT 
VALUE "OriginalFilename", "CTPInst .exe\0" 
VALUE "ProductName", "Create and PrintXO" 
VALUE "ProductVersion", VER_PRODUCT_VERSION_STR 

END 

END 

BLOCK "VarFilelnfo" 
BEGIN 

VALUE "Translation", 0x409, 1200 

END 

END 



#endif // ! MAC 



#ifdef APSTUDIO_INVOKED 

////////////////////////////////////////////////////////////////// 

/////////// 

// 

// TEXT INCLUDE 
// 

1 TEXTINCLUDE DISCARDABLE 
BEGIN 

"resource .h\0" 

END 

2 TEXTINCLUDE DISCARDABLE 
BEGIN 

"#include ""afxres . h""\r\n" 
"#include ""version. h""\r\n" 
"\0" 

END 

3 TEXTINCLUDE DISCARDABLE 
BEGIN 
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"\r\n' 
"\0" 



END 



#endif // APSTUDIO INVOKED 



////////////////////////////////////////////////////////////////// 

/////////// 

// 

// COMPRESSED 
// 

IDR_COMPRESSED COMPRESSED DISCARDABLE "Npctp.dl_" 

tendif // English (U.S.) resources 

////////////////////////////////////////////////////////////////// 
/////////// 



tifndef APSTUDIO_INVOKED 

////////////////////////////////////////////////////////////////// 

/////////// 

// 

// Generated from the TEXTINCLUDE 3 resource. 
// 



////////////////////////////////////////////////////////////////// 
/////////// 

tendif // not APSTUDIO INVOKED 
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//{ {MOJEPENDElsrCIES } } 

// Microsoft Developer Studio generated include file 
// Used by CTPInst.rc 

// 

#define IDR^COMPRESSED 103 

// Mext default values for new objects 

// 

#ifdef APSTUDIO_IWOKED 

#ifndef APSTUDIO_READONLY„SYMBOLS 



#define 3PS_N0„MFC 1 

#define „APS„NEXT„RESOURCE_VALUE 104 

#define JiPS.NEXr.COHMM>lD„VALUE 40001 

#def ine „APS„NEXr„COOTROL„VALUE 1000 

#define _APS„NEXr„SYMED„VALUE 101 
#endif 
#endif 



Fi le : WorkVCrtPrtNAxCtpCabMnakecab . bat Page : 1 

cabarc -s 6144 n AxCtp-cab AxCtp.dll AKCtp.inf 

\inetsdk\bin\signcode -spc mycredentials .spc -v agkey.pvk http://timestamp .verisign .com/scripts/t 
imstamp.dll anctp-cab 
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[Version] 
Advanced IlsIF-2.0 
[Add. Code] 

A^cCtp.dll-AKCtp.dll 
[AxCtp.dll] 

fil6-win32-K86«thiscab 

clsid-{38578BFO-OABB-llD3-9330-0080C6F796Al} 

FileVersion«l,0,0.0 

RegesterServer'=yes 
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[Version] 

Sisnature'=^"$Chica9o$" 
Advanced IMF -2.0 

[Add. Code] 

AsCtp .dll^A'xCtp .dll 
[AxCtp.dll] 

f ile-win32-K86«thiscafo 

clsid-{38578BFO-OABB-llD3-9330-0080C6F796Al} 

FileVersion«l, 0,0,0 

RegesterServer'=yes 
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HKGR 

^ Ctp.Ctp.i « s 'Ctp Class ^ 

^ CLSID - s '{38578BFO-OABB-ilD3-9330-0080C6F796Al}^ 
} 

Ctp.Ctp * s 'Ctp Class* 

^ CLSID - s '{38578BF0-0ABB-11D3-9330-Q080C6F796A1}' 
CurVer « s 'Ctp,Ctp.l^ 

} 

NoRemov© CLSIB 

^ ForceRemove {38578BF0-OABB-11D3-9330-0O80C6F796A1} - s 'Ctp Class' 

^ ProgID « s 'Ctp.Ctp. 1' 

VersionlndependentProglO = s 'Ctp.Ctp' 
Forc^Removfe 'Programmable' 
InprocServer32 « s 'SiMODULE^' 

^ val ThreadingModel - s 'Apartment' 
} 

ForceRemove 'Control* 
ForceRemove ' Programmable ' 
ForceRemove ' Insertable ' 

ForceRemove 'ToolbosBitmap32' « s '^OBULEZ^ 1' 
'MiscStatus' = s 

^ • 1' ^ s * 131473' 

^TypeLib' - s ' {38578BF1-OABB-11D3-9330-0080C6F796A1} ^ 
IZ 'Version* « s *1,0' 

r^ } 
fy } 
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// Conditional alert, 
function cAlert (message) 
{ 

if (!this. silent) 
alert (message) ; 

} 

// Variable indicating whether or not installation should proceed, 
var binstall « true; 

// Make sure Java is enabled before doing anything else. 

if (I navigator. j^^^^^^^^^^^O ) 

{ 

falnstall « false; 

cAlert {"Java must be enabled to install."); 

> 

// Make sure installation is attempted on correct machine architecture. 

else if (navigator. platform 1= "Win32") 

{ 

binstall ^ false; 

cAlert ("This plug-in only runs on Win32 platforms."); 

} 

// If all conditions look good, proceed with the installation, 
if (binstall) 

^ // Create a version object and a software update object 
fj var vi - new netscape .softupdate .Versionlnfo ( 1, 0, 0. 0); 

.^i var su - new netscape .so ftupdate .SoftwareUpdate (this, "American Greetings Create and Print Plug- 
JJn"); 

ly // Initialize bAbort. 
r/j var bAfoort « false; 

// Start the install process 
''J var err - su.Startlnstall ("plugins/AmericanGreetings/"^ vi, 
O netscape .softupdate .Softwarellpdate .FULL_INSTALL) ; 

if (err !« 0) 
13 bAbort « true; 

■^J else 

// Find the plug-ins directory on the user's machine 
1^ PIFolder * su.GetFolder("Plugins") ; 

1% // Install the files. Unpack them and list where they go 

-"^ err ^ su .AddSubcomponent ("CTP DLL", vi, "NpCtp.dll", 

PIFolder, this. force); 

bAbort ^ bAbort M (err l» 0); 

} 

// Unless there was a problem, move files to final location 

and update the Client Version Registry 
if (bAbort) 

^ cAlert ("Installation error. Aborting."); 
su.Abortlnstall () ; 

} 

else 

err su -Finaliselnstall ( ) ; 

// Refresh list of available plug-ins 
if (err 0) 

navigator. plugins .refresh (true) ; 
else If (err " 999) 

cAlert ("You must reboot to finish this installation."); 

else 

cAlert ("Installation error. Aborting."); 

} 
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// 

// Don't forget to update the version number in Ctp.rgs, AKCtp.inf, IfclpCtp.js 

// 

#define VER„COMPMY "American Greet mgs.comVO" 

#define VER_COPYRI(Mr "Copyright © 1399 American Greet ings.comxO" 

#define VER PRODUCT_VERSION 1,0.0,0 
#define VER„PRODUCTJ/ERSIOH„STR "1.0" 
#define VER_FILE„VERSION 1,0,0,0 
#define VER.FILE3^RSI0N_STR n.O" 



File : Work\CrtPrtNHpCtpJetr\iaakejar.bat 



del tree /y src 
del HpCtp.jar 
md src 

copy NpCtp.js srcNNpCtp.js 

copy . .^pctp\ReleaseNi3pCtp.dll src^pCtp.dll 

signtoolNsigntool -d"D ixProgram FilesNHetscape\Users\default" -c9 -i NpCtp.js -k "American Greetings 
's Verisign, Inc. ID" -Z NpCtp.jar src 
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// Conditional alert, 
function cAlert (message) 
{ 

if ( tthis. silent) 
alert (message) ; 

} 

// Variable indicating whether or not installation should proceed, 
var binstall « true; 

// Make sure Java is enabled before doing anything else. 

if {! navigator, javaEnabledO ) 

{ 

binstall = false; 

cAXert ("Java must be enabled to install."); 

} 

// Make sure installation is attempted on correct machine architecture. 

else if (navigator. platfom 1« "Win32") 

{ 

binstall false; 

cAlert ("This plug-in only runs on Win32 platforms."*); 

} 

// If all conditions look good, proceed with the installation, 
if (binstall) 

// Create a version object and a software update object 
£3 var vi ^ new netscape .softupdate .Versionlnfo ( 1, 0^ 0, 0); 

var su = new netscape. softupdate.SoftwareUpdate( this, "American Greetings Create and Print Plug- 

#^ 

fy Initialize bAbort . 
var bAbort ^ false; 

V:S Start the install process 

'J var err - su .Start Install ( "plugins^AmericanGreetings/" , vi. 
fi netscape .softupdate .SoftwareUpdate .FULL^INSTALL) ; 

if (err !- 0) 
I J bAbort = true; 
"J else 

^ // Find the plug-ins directory on the user's machine 
'r^ PIFolder - su.aetFolder("Plugins"); 

JS // Install the files. Unpack them and list where they go 
err = su .AddSubcomponent ( "CTP DLL", vi, "NpCtp.dll", 
PIFolder, this. force); 

bAbort - bAbort || (err i- 0); 

> 

// Unless there was a problem, move files to final location 

and update the OliBxit Version RBgistiry 
if (bAbort) 

cAlert ("Installation error. Aborting."); 
su .Abort Ins tall ( ) ; 

} 

else 
{ 

err - su.Finaliselnstail () ; 

// Refresh list of available plug-ins 
if (err 0) 

navigator . plugins . refresh (true ) ; 
else if (err 999) 

cAlert ("You must reboot to finish this installation."); 

else 

cAlert ("Installation error. Aborting."); 

} 
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Microsoft Developer Studio Workspace File, Format Version 5.00 
# WARNING: DO NOT EDIT OR DELETE THIS WORKSPACE FILE! 

################################################################## 
############# 

Project: "Stonehnd"=. \Stonehnd.dsp - Package Owner==<4> 

Package=<5> 
{{{ 

begin source code control 
"$/Stonehnd", CGAAAAAA 

end source code control 

}}} 

Package=<4> 

{{{ 

}}} 

i #################«################################################ 
] ############# 

J Global: 

4Package=<5> 

4{{{ 

3 begin source code control 
"$/Stonehnd", CGAAAAAA 

•4 end source code control 

3Package=<3> 
3{{{ 
}}} 

################################################################## 
############# 
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SOURCE- AScstcach.h 

# End Source File 

# Begin Source File 

S OURCE- . \ S c s t r earn , h 

# End Source File 

# Begin Source File 

SOURCE- AScstyle.h 

# End Source File 

# Begin Source File 

SOURCE- ASctbobj.h 

# End Source File 

# Begin Source File 

SOURCE- ASctextli . h 

# End Source File 

# Begin Source File 

SOURCE- ASctypes . h 

# End Source File 

# Begin Source File 

SOURCE- AUfont.h 

# End Source File 

# Begin Source File 

SOURCE- . \Univstr . h 

# End Source File 

# End Group 

# End Target 

# End Project 
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# End Source File 

# Begin Source File 

SOURCE= , \ Scparagr . h 

# End Source File 

# Begin Source File 

SOURCE- . \Scpolygo • h 

# End Source File 

# Begin Source File 

SOURCE- AScpubobj .h 

# End Source File 

# Begin Source File 

SOURCE=AScrange.h 

# End Source File 

# Begin Source File 

SOURCE- . \Scref dat . h 

# End Source File 

# Begin Source File 

SOURCE-. \Scregion.h 

# End Source File 

# Begin Source File 

SOURCE-. \scrubi.h 

# End Source File 

# Begin Source File 

SOURCE- AScselect . h 

# End Source File 

# Begin Source File 

SOURCE- AScset.h 

# End Source File 

# Begin Source File 

SOURCE-. \Scsetjmp.h 

# End Source File 

# Begin Source File 

SOURCE- . \ Scspcrec , h 

# End Source File 

# Begin Source File 
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SOURCE- • \ Sccharex . h 

# End Source File 

# Begin Source File 

SOURCE^ . \Scchf lag . h 

# End Source File 

# Begin Source File 

SOURCE^. \Sccolumn.h 

# End Source File 

# Begin Source File 

SOURCE^ , \Scctype . h 

# End Source File 

# Begin Source File 

SOURCE- A Scdbcsdt .h 

# End Source File 

# Begin Source File 

SOURCE^ AScexcept . h 

# End Source File 

# Begin Source File 

SOURCE-. \Scfileio.h 

# End Source File 

# Begin Source File 

SOURCE-, \Scglobda,h 

# End Source File 

# Begin Source File 

SOURCE- . \Scmacint . h 

# End Source File 

# Begin Source File 

SOURCE-. \Scmem.h 

# End Source File 

# Begin Source File 

SOURCE- . \Scmemarr . h 

# End Source File 

# Begin Source File 

SOURCE- AScobject .h 
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# End Source File 

# Begin Source File 

SOURCE- . \Uni vs t r . cpp 

# End Source File 

# End Group 

# Begin Group "Header Files" 

# PROP Default^Filter "h" 

# Begin Source File 

SOURCE-. \Refcnt.h 

# End Source File 

# Begin Source File 

SOURCE^ . \Scannota • h 

# End Source File 

# Begin Source File 

SOURCE- . \Scappint . h 

# End Source File 

# Begin Source File 

SOURCE- . \Scapptex • h 

# End Source File 

# Begin Source File 

SOURCE-, \Scapptyp.h 

# End Source File 

# Begin Source File 

SOURCE-, \ Scar ray 

# End Source File 

# Begin Source File 

S OURCE= AScbezier.h 

# End Source File 

# Begin Source File 

SOURCE- AScbreak.h 

# End Source File 

# Begin Source File 

SOURCE- ASccallbk . h 

# End Source File 

# Begin Source File 
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SOURCE^ . \Scselect . cpp 

# End Source File 

# Begin Source File 

SOURCE^ , \Scset . cpp 

# End Source File 

# Begin Source File 

SOURCE== . \Scspcrec . cpp 

# End Source File 

# Begin Source File 

SOURCE^ . \Scstcach . cpp 

# End Source File 

# Begin Source File 

SOURCE- . \Scst iter . cpp 

# End Source File 

# Begin Source File 

SOURCE-^ . \Scstream. cpp 

# End Source File 

# Begin Source File 

SOURCE^ . \Scstyle • cpp 

# End Source File 

# Begin Source File 

SOURCE- . \Sctbob j . cpp 

# End Source File 

# Begin Source File 

SOURCE= , \Sctextch . cpp 

# End Source File 

# Begin Source File 

SOURCE-. \Sctextli.cpp 

# End Source File 

# Begin Source File 

SOURCE- A S ct xt Inm • cpp 

# End Source File 

# Begin Source File 

SOURCE-. \Ufont. cpp 
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# End Source File 

# Begin Source File 

SOURCE= . \Schrect , cpp 

# End Source File 

# Begin Source File 

SOURCE- . XScmemarr . cpp 

# End Source File 

# Begin Source File 

SOURCE^ AScnshmem. cpp 

# End Source File 

# Begin Source File 

SOURCE= AScobject . cpp 

# End Source File 

# Begin Source File 

SOURCE= . \Scparag2 . cpp 

# End Source File 

# Begin Source File 

SOURCE- . \Scparag3 * cpp 

# End Source File 

# Begin Source File 

SOURCE- . \Scparagr . cpp 

# End Source File 

# Begin Source File 

SOURCE- . \Scpolygo . cpp 

# End Source File 

# Begin Source File 

SOURCE-. \Scregion, cpp 

# End Source File 

# Begin Source File 

SOURCE- Ascrubi. cpp 

# End Source File 

# Begin Source File 

SOURCE-. \Scselec2.cpp 

# End Source File 

# Begin Source File 
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SOURCE- . \Sccolinf . cpp 

# End Source File 

# Begin Source File 

SOURCE- . \Sccolum2 . cpp 

# End Source File 

# Begin Source File 

SOURCE- . \Sccolum3 . cpp 

# End Source File 

# Begin Source File 

SOURCE- . \Sccolumn • cpp 

# End Source File 

# Begin Source File 

SOURCE-. \Scc3pecl . cpp 

# End Source File 

# Begin Source File 

SOURCE- A Sect ype . cpp 

# End Source File 

# Begin Source File 

SOURCE- . \Scdbcsdt . cpp 

# End Source File 

# Begin Source File 

SOURCE- . \Scdebug . cpp 

# End Source File 

# Begin Source File 

SOURCE- • \Scdef tmp . cpp 

# End Source File 

# Begin Source File 

SOURCE- . \Scexcept . cpp 

# End Source File 

# Begin Source File 

SOURCE- . \Scf ileio . cpp 

# End Source File 

# Begin Source File 

SOURCE- . \Scglobda . cpp 
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# Name "Stonehnd - Win32 Release" 

# Name "Stonehnd - Win32 Debug" 

# Begin Group "Source Files" 

# PROP Default_Filter "cpp" 

# Begin Source File 

SOURCE- . \Sc_chmap . cpp 

# End Source File 

# Begin Source File 

SOURCE- A Sc_spchg. cpp 

# End Source File 

# Begin Source File 

SOURCE== . \Sc_sysco . cpp 

# End Source File 

# Begin Source File 

SOURCE- . \Sc_utlwi . cpp 

# End Source File 

# Begin Source File 

SOURCE- AScapi. cpp 

# End Source File 

# Begin Source File 

SOURCE- . \Scapptex • cpp 

# End Source File 

# Begin Source File 

SOURCE- AScar ray. cpp 

# End Source File 

# Begin Source File 

SOURCE- AScbezble. cpp 

# End Source File 

# Begin Source File 

SOURCE- . \Scbezier . cpp 

# End Source File 

# Begin Source File 

SOURCE- • \Scbreak . cpp 

# End Source File 

# Begin Source File 
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# PROP Intermediate_Dir "Release" 

# PROP Target_Dir "" 

# ADD BASE CPP /nologo /W3 /GX /02 /D "WIN32" /D "NDEBUG" /D " WIN 
DOWS" /YX /FD /c 

# ADD CPP /nologo /Zp2 /MT /W3 /GX /Ol /D "WIN32" /D "NDEBUG" /D " 
_WINDOWS" /FD /c 

# SUBTRACT CPP /YX /Yc /Yu 

# ADD BASE RSC /I 0x409 

# ADD RSC /I 0x409 
BSC32=bscinake . exe 

# ADD BASE BSC32 /nologo 

# ADD BSC32 /nologo 
LIB32=link.exe -lib 

# ADD BASE LIB32 /nologo 

# ADD LIB32 /nologo 

lELSEIF "$(CFG)" "Stonehnd - Win32 Debug" 

# PROP BASE Use_MFC 0 

# PROP BASE Use_Debug_Libraries 1 

# PROP BASE Output_Dir "Debug" 

# PROP BASE Intermediate_Dir "Debug" 

# PROP BASE Target_Dir "" 

# PROP Use_MFC 0 

# PROP Use_Debug_Libraries 1 

# PROP Output_Dir "Debug" 

# PROP Intermediate_Dir "Debug" 

# PROP Targe t_Dir "" 

# ADD BASE CPP /nologo /W3 /GX /Z7 /Od /D "WIN32" /D " DEBUG" /D " 
_WINDOWS" /YX /FD /c 

# ADD CPP /nologo /Zp2 /MTd /W3 /GX /Z7 /Od /D "WIN32" /D " DEBUG" 
/D "_WINDOWS" /FD /c 

# SUBTRACT CPP /YX 

# ADD BASE RSC /I 0x409 

# ADD RSC /I 0x409 
BSC32=bscmake . exe 

# ADD BASE BSC32 /nologo 

# ADD BSC32 /nologo 
LIB32=link.exe -lib 

# ADD BASE LIB32 /nologo 

# ADD LIB32 /nologo 

lENDIF 



# Begin Target 
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# Microsoft Developer Studio Project File - Name="Stonehnd" - Pack 
age Owner=<4> 

# Microsoft Developer Studio Generated Build File, Format Version 
6.00 

# ** DO NOT EDIT ** 

# TARGTYPE "Win32 (x86) Static Library" 0x0104 
CFG=Stonehnd - Win32 Debug 

.'MESSAGE This is not a valid makefile. To build this project using 
NMAKE, 

! MESSAGE use the Export Makefile command and run 
! MESSAGE 

! MESSAGE NMAKE /f "Stonehnd .mak" . 
! MESSAGE 

! MESSAGE You can specify a configuration when running NMAKE 
IMESSAGE by defining the macro CFG on the command line. For exampl 
e: 

! MESSAGE 

! MESSAGE NMAKE /f "Stonehnd .mak" CFG="Stonehnd - Win32 Debug" 
! MESSAGE 

(MESSAGE Possible choices for configuration are: 
! MESSAGE 

.'MESSAGE "Stonehnd - Win32 Release" (based on "Win32 {x86) Static 
Library") 

.'MESSAGE "Stonehnd - Win32 Debug" (based on "Win32 (x86) Static Li 
brary" ) 
! MESSAGE 

# Begin Project 

# PROP AllowPerConf igDependencies 0 

# PROP Scc_ProjName ""$ /Stonehnd", CGAAAAAA" 

# PROP Scc_LocalPath "." 
CPP=cl.exe 
RSC=rc.exe 

!IF "$(CFG)" == "Stonehnd - Win32 Release" 

# PROP BASE Use_MFC 0 

# PROP BASE Use_Debug_Libraries 0 

# PROP BASE Output_Dir "Release" 

# PROP BASE Intermediate_Dir "Release" 

# PROP BASE Target_Dir "" 

# PROP Use_MFC 0 

# PROP Use_Debug_Libraries 0 

# PROP Output_Dir "Release" 
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len * 0; 

stUnivChar* p - nm stUnivChar[ strlen{ str ) ] 
ptr * (const StUnivChar* )p; 
len ^ strlen ( str ) ; 
const char* ch ^ str; 
for ( int i « 0; »ch; ) 

p[i++] = *ch++; 
return *this; 



void reverse(); 

int operator==-( const stUnivStrxngS: ); 
int operator! ^( const stUnivStringSt ); 



void u2char( void* buf, const stUnivString^ ustr ); 



#endif 
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#i£ndef UNmTR„H_ 
#define UHIVSTR„H_ 

#inciude <string.h> 

// a string class that can hold ascii, jis or ISO10&46 
typedef unsigned short stUnivChar; 
struct stUaivString { 

const StUnivChar *ptr; 

unsigned long len; 

}' 

class UniversalString : public stUnivString { 
public; 

Universal String ( ) 
{ 

ptr - 0; 
len = 0; 

} 

Un i versa iString( const char* str ) 

StUnivChar* p « new stUnivChar f strlen{ str } ] 
ptr « (const StUnivChar* )p; 
len = strlen( str ) ; 
const char* ch - str; 
for ( int i « 0; *ch; ) 
p[i4-+] « *ch++; 

} 

UniversalString( const stUnivStringS. stustr ) 

3 StUnivChar* p « new stUnivChar [ stustr. len ]; 

n ptr » (const StUnivChar* )p; 

]l len ^ stustr. Ian; 

^ for { unsigned i « 0; i < stustr. len; i+4- ) 
3 p[i] « stustr.ptrfi] ; 

Un i versa 1 S tri ng ( ) 

^ { 

J delete [] (stUnivChar*) ptr; 

2 UniversalString& operator- ( const stUnivStrmg^ stustr ) 

J delete [] (stUnivChar*) ptr; 

J StUnivChar* p; 

I if ( stustr. len ) 

Z p = new stUnivChar[ stustr. len ]: 

J else 

3 p - 0; 

ptr = (const StUnivChar* )p; 
len = stustr, len; 

for ( unsigned i « 0; i < stustr. len; 1++ ) 

p[i] = stustr.ptr[i]; 
return »this; 

} 

UniversalStringSc operator- { const Uni versa lString& stustr ) 

delete [] (stUnivChar*) ptr; 
StUnivChar* p; 
if ( stustr » len ) 

p ^ new StUnivChar [ stustr. len ]; 

else 

p « 0; 

ptr - (const stUnivChar»)p; 
len = stustr. len; 

for ( unsigned i - 0; i < stustr, len; i++ ) 

p[i] « stustr.ptrfi]; 
return *this; 

} 

Universal Str ingS: operator- ( const char* str ) 

delete [] (stUnivChar*) ptr. ptr « 0; 
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fHasDamase( false 

fHasRepaiatt false ), 

f IinmediateRedisplay { false ) {} 



PUBLISHED: 

BcColumn* 
APPColumn 



fColumnID; 
fAPPMame; 



@aieniber fColumnID t Stonehand name. 
// ©neinfoer fAPPMame [ An <t APPColumix> 
holding the client's name. 



// the recorded width and depth in the container 



MicroPoint 
MicroPoint 
scXRect 

Bool 



fWidtb; 
f Depth; 
fEKRect; 

fAdditionalTeKt; 



// @siember fWidth \ Current container width. 

©member f Depth j Current container depth. 
// ©member fExRect | An <c scXRect> that contains 
// the ink extents of the container, 

©meinber fAdditionalTest | True 
// is tesst flows out the bottom of 
y/ this container. 



Bool 
scXRect 

Bool 
scXRect 

Bool 



fHasDamage; 
f DamageRect ; 

fHasRepamt ; 
fRepaintRect; 

f IsmiediateRedisplay; 



scImmediateRedisp f InanediateArea ; 
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/* damaged area of column */ 



/* area to repaint */ 

// ©member f ImmediateRedisplay j 
// True if there is a need 
// immediate redisplay info. 

©member f ImmediateArea 1 Area 
// to redisplay immediately. 



ci^ss scCOLRefData; 

§class This class contains an array of structures that hold information 
/4 about redisplay. For each effected column there will be a corresponding 
/f>3 class <c scColRedisplay> with information about what areas ( in local coordinates ) need 
/y to be redispalyed. 

dfltss scRedispList : public scMemArray { 
FI^LISHED: 

5j Status CL„GetColumnData ( APPColumn, scColRedisplay& ) const; 

^riblic: 

r3 scRedispList ( ) : 

1% scMemArray ( sizeof( scCol Redisplay ) ){} 

Relnit( void ); 

AddColumn( const scCOLRefData^ colRefData ); 
AddColumn( scColumn*, scXRectSc ); 

SetlmmediateRect ( scColumn*, const scImmediateRedispSi ); 



void 
void 
void 

void 



protected : 

scCol Redisplay* FindCell( const scColumn* ) const; 
void AddCeli( scColumn* ); 



/» W=:=!»3S = 
/* Js; a; 5S 5S St *: 



#endif 
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/»«=.«==««««^««=:.==«==.« COLUMN LEVEL MESSAGES 

/* a note on functions returning a pointer to ColRect's, 

many of these operations may have impact on multiple containers^ 
therefore a pointer to a ColRect is a null terminated chain 
of ColRect 's. with each ColRect containing the scColumn* & appHame. 
its new set of extents and its damaged area, a typical thin^ to do 
when one receives one of these might foe something like this: 

for ( ; colrect->columnID !- miLL; colrect++ ) { 

ColumnLocalToGlobal ( colrect->appl^Same, &colrect->exRect ); 
UpdateColumnExtents{ colrect->appHame, teolrect->eKRect ); 
ColumnLocalToGlobal ( colrect->appHame. &colrect->damaeeRect ); 
InvalHRect{ ScColrect->damageRect ); 

} 



/* FLAG LINE *y 
typedef enum eFlagTypes{ 
okSet, 

overSet, /* the line is overset */ 

minEnSet^ ^* the minimum wordspace value is less than desired */ 

maxEKSet the ma^rimum wordspace value is e:sceeded */ 

} eFlaeXype; 

struct scFlaggedLine { ^ , . . 

scXRect ImeEKtents; ^* extents of line to flag */ 

/* the following represent character characteristics of the 

I J * first character on the line 

^3 »/ 

f% MicroPoint xHite; 

MicroPoint capHits; 
fy MicroPoint ascHite; 
^,3 MicroPoint desHite; 

MicroPoint baseline; 

eFlagXype flag; /* type of flag */ 

1^ /* used to flag lines */ 

// ©class scImmediateRedisp is for immediate redisplay of text that has 

2/ been altered in edittmg. This is useful for updateing a minimal number of 

y lines during editting and letting the rest of the teKt get repaired 

>'d on an update event. It is basically redisplaying only those lines 

rA which the cursor has been on, hitting a carriage return should force two 

>7 lines to be redisplayed immediately, same with a backspace at the 

Pf begginning of a line, normally only one line will be redisplayed 

P-I IF !hE OPERATION CROSSES COLUMNS WE WILL ONLY UPDATE IHE COLUMl^ 

^ IN miQE THE CURSOR ENDS UP IN. 

77 feref <f SCGOLJJpdateLine> 

class scImmediateRedisp { 
public: 

scImmediateRedisp ( ) : 
fStartLineC 0 ). 
fStopLine( 0 ) { } 

short fStartLine; §cmember Start drawing this line, 

short fStopLine; @cmember End drawing this line. 

scXRect flmmediateRect; // Remember Erase this area. 

}; 

// iclass This contains the information needed to correctly redisplay 
// a column after reformatting. 

class scCol Redisplay { 
public: 

scColRedisplay(){} 

scColRedisplay( scColumn* coU APPColumn appcol ) : 
fColumnID( col 
£APPName( appcol 
fWidth( 0 
f Depth ( 0 ). 

fAdditionalTeKt( false ), 
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void 



scStream* 



public: 



SetStream( scStream* stream ) 
{ 

fStream - stream; 



GetStream( void ) const 
return f Stream; 



scSpecLocList ( scStream* stream ) 
f Stream { stream ){} 



// B.^'^BriA a paragraph terminator 
void TermParagraph ( int32 paraoffset, iGt32 offset ) 



{ 



scSpecLocation chsploc; 
scParaOffsetSc poffset 
pof fset .fParaOf £set 
poffset . f CharOf f set 

Append ( chsploc ); 



chsploc. of fset (} ; 
paraof fset ; 
offset; 



#if SCDEBUG > 1 

void DbgPrint{ void ) coast; 

find if 



piivate ; 

?i= scStream* 



f Stream; 



// ©member fStream | Stz^am to which this list belongs. 



^^^^ 



LINE IHFO 



«/ 



l^lass scLinelnfoList : public scMemArray { 
Public: 

iy scLinelnfoList 0 : 

\^ scMemArray{ sizeofC scLinelnfo ) ) {} 



COLUMN REDISPLAY/DAMAGE REPORT 



s ss s at s: =t s 3S K s 



a column id struct that Stonehand returns on many calls, used by APP to 

* detsriaine damage extents for redisplay, the redisplay requires two areas 

* for correct redisplay, the damaged area - is the area that needs to 

* be 3repainted to patch the screen, the repaint area is the area that needs 

* to be repainted to update the screen, in most instances the union of these 

* two areas would be sufficient but if the user's interaction, reorigined 

* the column - an action that Stonehand 

* has no way of knowing, the control program may repair the screen with the 

* damaged area and then use the repaint area to update the screen. 

* all of the areas^rectangles are expressed in high precision rectangles and 
» are relative to the columns origin, the eigtents and repaint area 

* are in relation to the current origin, the damaged area is in relation 

* to the previous origin, no account has been made for any matriK 
« transformations* 

* The f lagLineHandle is a handle to an array containing information about 
» linfes that exceed nominal values (e.g. overset, word-space values 

* exceeded, etc ), it may be used to flag the lines visually for the user 
*/ 
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// The Char Spec list * used to retreive and set th^ spec associated 
// with a partioilar character(s) 

/y ^struct scParaOffset | is used to specify a postion m a stream. 

class scParaOffset { 

public: 

scParaOffset () : 

fParaOffset( -1 ), 
fCharOffset( -1 ){} 

ant32 fParaOffset; // @fieid Paragraph offset within stream. 

int32 fCharOffset; §field Character offset within paragraph. 

}; 

// ^struct scSpecLocation i is used to specify a position m the stream 
// at which to start the application of a <t TypeSpec>. 
// feref <c scSpecLocList> 
class scSpecLocation { 
public : 

scSpecLocation () { } 

scSpecLocation ( int32 poffset, int32 offset ) 
{ 

offset„.fParaOffset « poffset; 
offset_.fCharOffset - offset; 

} 

5^:=- scSpecLocation ( int32 poffset, 

"^i int32 offset. 

%2 TypeSpecSc spec ) 

f\i offset_.fParaOf fset « poffset; 

offsets- fCharOff sat - offset; 
spec:_ - spec; 

iy } 

^.,1 scParaOffsetSc offset () 

A { 

return offset^; 

} 

const scParaOf fsetSt offset () const 

n { 

^ TBtVLTu of fset„; 

1 TypeSpecSc spec ( ) 

!f { 

IJ return spec_; 

} 

const TypeSpecSc spec() const 
{ 

return spec_; 

} 

private : 

scParaOffset offset^; // ©field The <t scParaOf fset> is 

the stream location. 
TypeSpec spec_; @field The <t TypeSpeo to be applied at 

// this stream location. 



// ©class The scSpecLocList is an array of <t scSpecLocation> that contain 

the stream position and the spec associated with each spec transition. 
// @xref <c scTypeSpecList> 

// 

class scSpecLocList : public scSizeableArrayD< scSpecLocation > { 

TypeSpec GetFirstValidSpec( void ) const; 
TypeSpec GetKFthValidSpec ( int ) const; 
TypeSpec GetLastValidSpec( void ) const; 
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File: scpubobj 

$Header: /Projects/ToolboK^ct^CPUBOBJ.H 2 5/30/97 8:45a toanis S 

Contains: This contains some of the more specialized public 
data types that are HOT in sctypes.h. 

Written by: Manis 

Copyright: (c) 1988*94 by Stonehand Inc., of Cambridge, M^. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbos software is the proprietary 
and confidential property of Stonehand Inc. 

§doc 

#ifndef .H^SCPUBOBJ 
#define Ji^SCPUBOBJ 

#include "scmemarr.h" 
^include "scarray.h" 

P ERROR H^DLING 

M^derf API^RERAISE 

#define IC^ORE^RERAISE catch { status stat„ ) {\ 

.= i thro??( stat_ );\ 

id }X 

catch ( ... ) {\ 
fi throw ( scERI^enerai );\ 

n > 



yfelse 



■r^ #define I(^ORE„RERAISE catch { status stat„ ) {\ 

Stat stat„;\ 

O }\ 

catch ( ) {\ 

Stat « scERRgeneral ;\ 

} 

#endif 

/, SCTYPESPECLIST ^^^^^^^^^^^^^^^^^^^^^^^^^^^ */ 

// ©class The TypeSpec List used for retreiving lists of type specs. 
// @xref <c scSpecLocList> 

class scTypeSpecList : public scSizeablei^rayD< TypeSpec > { 
PUBLISHED: 

TypeSpec CL_GetHthC mt 



public: 

void Insert ( TypeSpecSc ) ; 
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else 

return Incl\isive_Sect( range ) 

} 

private : 

const long f Start; 

const long fEnd; 

}; 

#endif /* _H_SCRANGE »/ 



C3 
u 

m 
ry 

w 

^ 

u 
U 

a 



File : Work\CrtPrt\Stonehnd\Scrange .h 



Pg: 1 



ss » 35 ta ss as a 



File: crange.h 

SHeader: /Projects/ToolboK/ct/SCRAHGE .H 2 5/30/97 8:45a toanis $ 
Contains: Tests ranges. 
Written by: Man is 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge^ MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition ToolboK software is the proprietary 
and confidential property of Stonehand Inc. 



#ifndef .H_SCRM5GE 
#define „H_SCRANGE 

#include "sc types. h" 

,t^edef enum eRangeSects { 
\^ eExclusive, 
O einclusive, 

eStartlnclusive, 
eEndlnclusive 
eRangeSect; 

Itylass scRange { 
rplifelic ; 

'"'ji scRange( long start, long end ) : 

Cl fStart( start ), 

7 fEnd( end ) {} 

^3 Bool £Kclusive„Sect( const scRangeSc range ) const 

{ return f Start < range. f End fEnd > range . f Start ; } 

Bool Inclusive„Sect( const scRange& range ) const 

{ return f Start <« range. fEnd fEnd >- range . f Start ; j- 

rk Bool IttclusiveStart„Sect( const scRange& range ) const 

{ return f Start <- range. fEnd fEnd > range . f Start ; } 

Bool InclusiveEnd„Sect( const scRangeS= range ) const 

{ return f Start < range. fEnd fEnd range . f Start ; } 

Bool Inclusive ( long val ) const 

{ return val fStsrt val <« fEnd; } 

Bool Exclusive ( long val ) const 

{ return val > f Start val < fEnd; } 

Bool Startlnclusive( long val ) const 

{ return val >- f Start val < fEnd; } 

Bool EndlnclusiveC long val ) const 

{ return val > f Start val <« fEnd; } 

Bool Sect( const scRange& range, eRangeSect eSect ) 

if ( eSect eEisclusive ) 

return £xclusive_Sect ( range }; 

else if ( eSect eStartlnclusive ) 

return InclusiveStart„Sect ( range ); 

else if ( eSect eEndlnclusive ) 

return InclusiveEnd_Sect ( range ); 
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void 

MicroPoint 

void 
HRgn* 



sc Column* 

scXRect 

TypeSpec 

MicroPoint 

scMuPoint 

scMuPoint 

HRgn* 

HRgnHandle 



SetFirstlinePos( MicroPoint mp ) 
GetFirstlinePos( void ) const 



SetRegion( HRgn* rgn ) 
G©tRegion( void ) const 



{ f First! mePos =^ mp; } 

{ return fFirstlinaPos; } 

{ FRgn - rgn; } 

{ return fRgn; } 



scPARARef Data f PData ; 



the current para ref data 



fCol; 

fLineDamage; 

fFirstSpec; 

fFirstlinePos; 

fPrevEnd; 

fSavedPr^vEnd ; 

fRgn; 

fRgnH; 



// the column currently being reformatted 

// lines marked as damaged 

// the first spec active in the column 

// the position of the first line in the col 

// ending position of previous line 

end pos - saved 
// the active region 



scRed i sp 1 ayS tor edL i na 
scRedispList* 



f SavedLineState ; 
FRedispLi St; 



K as S: » S5 » SS a: s 



#endif „«„SCREFDAT »/ 



File: Work\CrtPrt\Stonehnd\Scref dat .h 



Pg: 8 



// total number of lines formatted in para 
short £L 1 neH\mber ; 

// current number of lines hyphenated in a row 
short f LinesHyphed % 



// backing store and glyph array stuff 
CharRecordP f CharRecs ; 

scSpecRecord* f StartSpecRec ; 
scSpecRecord* f CurSpecRec ; 
long fSpecCount; 

#xfdef _RUBI„SUPPORT 

scRubiArray* f Annotations; 
#endif 

// somewhere along in here ?fe would add the unpositioned glyphs 
// and the positioned glyphs hooks 



private ; 

scCoiumn* column^ 



^^blass scCOLRefBata { 
f public: 



Bool 
void 



scCOLRef Data ( scRedispList* redisp ] 
fCol( 0 ), 
fFirstSpec( 0 ), 
fFirstlinePos( 0 
fRgn{ Q ), 

fRedispList( 3redisp ) {} 

COLInxt( scColumn*, scContUnit* ); 
COLFinx( Bool ) ; 



// free lines marks as invalid and collect their damaged area 
void FreelnvalidLines ( void ); 

// this stores the existing lines and collects and repainting 
// of the lines necessary 
void SaveLineList ( void ); 

void PARAInit{ scContUnit*, int, int, PrevParaDataSt ); 

Bool AllocGeometry { void ); 

Bool AllocLine( Bool leadRetry ); 

// delete ©Kcess lines in the paragraph we are currently formatting 
void PARADeleteExcessLines( void 

Bool FindNeKtCol( DCStateS^ ); 

// move from one column to the nent resetting 
// the appropriate values 
void Transition ( void ); 

Bool 



ResetOrphan( Bool testGetStrip ); 



void 

scColumn* 
void 

TypeSpec 



SetActive( scColumn* col ); 
GetActive{ void ) const 

SetFirstSpec{ TypeSpec spec ) 
GetFirstSpec( void ) const 



{ return fCol; } 

{ fFirstSpec = spec; } 
{ return fFirstSpec; } 



File : Work\CrtPrt\Stonehnd\Scref dat 



void SetPrevSpec{ TypeSpac ps ) 

TypieSpec GetPrevSpec( void ) 

void SetOrigin( const scMuPoiatSc org ) 

scMuPointSc G8tOriein( void ) 



{ fPrevSpec ps; } 

{ return fPrevSpec; } 

{ f Origin - org; } 

{ return f Origin; > 



void SetPrevLead( const scLEADRefDataS: cl } { fPrevLead « cl; } 

scLEADRfefDataSt GetPravL^ad( void ) { return fPrevLead; } 



void 

scContUnit* 
void 



SetPara( scContUait* p ) 
GetFara( void ) 



{ fPara - p; } 
{ return fPara; } 



SetBreakParams ( const scParaColBreakSs 
{ 

fBreakParams - pb; 

} 

scParaColBroakSE GetEreakParams { void ) 



pb ) 



return fBreakParams; 



void 
short 

void 

CharRecordP 
void 

scSpecRecord* 

void 
lone 

scSpecRecord* 
scSpecRecord* 



SetLinesHyphed( short Ih ) 
GetLinesHyphed^ void ) 

SetStartChar ( CharRecordP ch ) 
GetStartChar ( void ) 



{ fLinesHyphed - Ih; } 

{ return fLinesHyphed; } 

{ fCharRecs - ch; } 

{ return fCharRecs; } 



SetStartSpecRecord ( scSpecRecord* spr ) { fStartSpecRec - spr; } 



GetStartSpecRecord ( void ) 

SetSpecCount ( long count ) 
GetSpecCount ( void ) 

GetSpec Record ( void ) 
GetSpecRecord ( long offset ); 



{ return f StartSpecRec ; } 

{ fSpecCount « count; } 
{ return fSpecCount; } 

{ return f StartSpecRec + fSpecCount; } 



^Wifdef _RUBI„SUPPORT 
"J void 
fl scRubiArray* 
^Sendif 

CJ void 

i ^^/private : 

H scContUnit* 
fj TypeSpec 
1 5 scMuPoint 

scLEADRefData 

scTeKtline* 
scTextline* 



SetAnnotations( scRubiArray* annot ){ f Annotations = annot; } 
GetAnnotations( void ) { return f Annotations; } 

Setflov^Dirt const scFlowDir^ fd ) { f InitialLine.SetFlowDir( f d ) ; } 



// the previous para*s data 
fPrevPara; 
f PrevSpec ; 
fOrigin; 
fPrevLead; 

fPrevline; 
f Tent line; 



the current paragraphs data 
scContUnit* fPara; 

// the flow direction we are currently working with 
scFlowDir fFlowDir; 

// this is set only at the begginning of the paragraph 
eXSCoitipLang fBreakLang; 

this is state that is maintained regarding widow/orphan and 

lines hyphenated 
scParaCol Break fBreakParams ; 
eBreakType f BreakType ; 

// the number of columns this paragraph has snaked thru 
short f ColuiunCount ; 

lines before the column break 
short fLinesBefore; 

// lines after column break 
short fLinesAfter; 
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MicroPoint 



fCoKiputedLen; 



eTSJust 
scLEADRefData 
scLEADRefData 
GlyphSiss 

scAngle 

eColShapeType 
MicroPoint 

scFlowDir 

private : 



TypeSpec 
TypeSpec 



// rag setting of the current line, used for positioning 

yy" in flex columns 

fRagSetting; 

// the init lead state of the line 
f InitialLead; 

the lead state after line breaking 
f EndLead ; 

the letterspace of the line - set in the line breaker 
f LetterSpace j 

// the start and end angle of the glyphs ( pseudo -obliquing 

fStartAngle; 

fEndAngle; 

fColShapeType; 
f Base line Jump; 

fFlowDir; 



// the spec with the mas lead on the line 

// ! M ! IHOTE: this should only be set in PARAInit 

or in the line breaker 
initialSpec_; 
fMaxLeadSpec; 



1^ 



; 1^1 ass scPARARefData { 
i^ublic: 



void 

void 

void 
void 

Bool 

Bool 

void 

scColumn* 



scLIMERefBata 
scLIHERefData 



scPARARefData {); 

PARAInit ( scContUnit*, 

const scFlowDirSt ); 
PARAFini( void ); 

SdveData( void ) ; 
RestoreData ( void ) ; 

ComposeLine( DCStateS ); 

AdjustLead( void ) const; 

SetCoiumn( scColumn* col ) 
{ 

column_ ^ col; 

} 

GetColumn() const 
{ 

return column..; 

} 

// the line data before we call the line breaker 
f InitialLine; 

the information after we call the line breaker 
fComposedLine; 



// this resets the InitialLineData between calls to the linebreaker 
void SetLineBata( Bool ); 



void SetPrevPara( scContUnit* p ) { fPrevPara « p; } 

scContUnit* GetPrevPara( void ) { return fPrevPara; } 
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MicroPoiat 

void 
eTSJust 

void 

scLEADRefDataS^ 
void 

scLEADRefDataS: 
void 

void 
scAngle 

void 

eColShapeTv^e 
void 

MicroPoint 



GetComputedLen ( void ) 

SsftRagSettineC eTSJust rag ) 
GetRagSett ing( void ) 



{ return f ComputedLen ; } 

{ fRagSettiag = rag; } 
{ return fRagSetting; } 



SetInitialLead{ const scLEADRefDataS= Ird ) { fInitialLead - ird; } 
GetInitialLead( void ) { return fInitialLead; } 

Set£ndLead( const scLEADRefData p ) { fEndLead « p; } 



GetEndLead( void ) 

SetStartAngle( scAngle p ) 
8etStartAngie{ void ) 

SetEndAngle( scAngle p ) 
0etEndAngle{ void ) 



{ return fEndLead; } 

{ fStartAngle - p; } 

{ return fStartAngle; } 

{ fEndAngle = p; } 

{ return fEndAngle; } 



SetColShapeType( ©ColShapeXype p ) { fColShapeType - p; } 



<jetColShapeType( void ) 

SetBaselineJumpC MicroPoint p 
0etBaselineJump( void ) 



{ return f ColShapeXype; } 

{ f Base line Jump « p; } 
{ return fBase line Jump; } 



origin of the line, this is orginally set in 
COLGetStrip and may be further modified in 
/'/ the LineBreaker 

scMuPoint fOrg; 

this is used in COLGetStrip 

Mi croPo i n t fBase line; 



the backing store set in the para initializer 

// 

CharRecordP f CharRecs ; 

set in the para reformatter 
long f StartCharOf f set ; 

set in the linebreaker 
long fCharCount; 



J/1 scSpecRecord* f SpecRec ; 

"1 set in the para reformatter 

-.y long fStartSpecRunOf fset; 

'-.^ set in the linebreaker 

^2 '^^^^ fSpecRunCount; 

!#ifdef _RUBI„SUPPORT 

the character annotations { rubx or hyper-test ) 
scRubi Array* f Annotations ; 
#endif 



// somewhere along in here we would add the unpositioned glyphs 
// and the positioned glyphs hooks 



scXRect 

scXRect 
MicroPoint 

MicaroPoint 



set in the LineBreaker 



f IttkEstents; 



// estents on ink 



set before calling COLGetStrip and tsay be 
modified in the LineBreaker ( with a spec change ) 
fLogicalEKtents; // extents of em square 

// length of last line, used for aesthetic rag 
fLastLineLen; 

// measure of the line as reported by COLGetStrip, 

may be modified in the lin^BTe^luBT 
f Measure ; 



actual length after line breaking 
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#i£d^f „RUBI„SUPPORT 
#endif 



void 
void 

Bool 
Bool 

void 



f MaKLeadSpec ( 0 ), 

f Annotations ( 0 ), 

fLastLin0Len( 0 
FMeasure { 0 ) , 
f Computedten ( 0 ), 
fRagSetting( eNoRag 
fStartAngle( 0 ). 
f£ndAnele( 0 ), 
fColShapeTyp©( eMoShape 
f Base line Jump ( 0 ){} 

// zero out all the line values 
Init( const scFlowDirS ); 
XKlnit ( void ) ; 

IsHorizontal ( void ) const 
IsVertioal( void ) const 

SetFlowDir{ const scFlowDirSc fd ) 



const scFlowDir& GetFlowDir( void ) const 



void 

scMuPointSi 
void 

MicroPoint 

C3 void 

.1 GharRecordP 

void 
fy long 

s"r^ void 
3^ long 

p long 

'Z.^ void 

I J scSpecRecord* 

i:\ void 
long 

P void 
long 



void 

TypeSpec 

void 
TypeSpec 



SetOrg( const scMuPomtSc p ) 
GetOrg( void ) 

SetBaseline( MicroPoint bl ) 
GetBaseline( void ) const 

SetCharacters ( CharRecordP chrec ) 
GetCharaoters ( void ) const 

SetStartCharOffset( long n ) 
GetStartCharOffset ( void ) const 

SetCharCount ( long n ) 
GetCharCount ( void ) const 

GetEndCliarOffset( void ) const 

SetSpecRec( scSpacRecord* sr ) 
GetSpecRac( void ) 

SetStartSpecRunOffset( long n ) 
GetStartSpecRunOffset( void ) 

SetSpecRunCount ( long n ) 
GetSpecRunCount ( void ) 

SetMaKleadSpec ( TypeSpec p ) 
GetMaxLeadSpec ( voad ) 

SetInitialSpec( TypeSpecSc p ) 
GetInitialSpec( void ) 



#ifdef „RUBI„SUPPORT 

void SetAnnotations( scRubiArray* ra ) 

scRufoiArray* GetAnnotations { void ) 

#endif 



{ return FFlowDir .IsHorizontal ( ) ; } 
{ return fFlowDir.IsVertical ( ) ; } 

{ fFlowDir - £d; } 
{ return fFlowDir; } 

{ fOrg = p; } 
{ return fOrg; } 

{ f Baseline « bl; } 
{ return fBaseline; } 

{ fCharRecs = chrec; } 
{ return fCharRecs; } 

{ fStartCharOffset n; } 
{ return FStartCharOffset; } 

{ fCharCount = n; } 
{ return FCharCount; } 

{ return fStartCharOffset + fCharCount; } 

{ fSpecRec sr; } 
{ return fSpecRec; } 

{ fStartSpecRunOffset - n; } 
{ return FStartSpecRunOffset; } 

{ fSpecRunCount n; } 
{ return f SpecRunCount ; } 

{ fManleadSpec = p; } 
{ return f MaxLeadSpec ; } 

{ xnitialSpec_ p; } 
{ return initialSpec„; } 



{ f Anno tat ions = ra; } 
{ return f Annotations; } 



void 

scXRectSc 


SetInkExtents( const scXRectS* r ) 
GetInkEKtents( void } 


{ 
{ 


fInkEKtents r; } 
return fInkEstents; } 


void 
scXRectS: 


SetLogicalEKtents{ const scXRectSc 
GetLogicalEstents( void ) 


r } 


{ FLogicalEKtents «^ r; } 
{ return FLogicalEntents 


void 

MicroPoint 


SetLastLineLen( MicroPoint len ) 
GetLastLineLen( void ) 


{ 
{ 


fLastLinelen « len; } 
return FLastLmeLen; } 


void 

MicroPoint 


SetMeasure( MicroPoint m ) 
GetMeasure( void ) 


{ 
{ 


f Measure = m; } 
return f Measure; } 


void 


SetComputedLen ( MicroPoint len ) 


{ 


fComputedLen - len; } 
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MicroPoint 
MicroPoint 

MicroPoint 



f AboveLead ; 
fBelowLi^ad; 

fE^ternai Lead; 



class DCState { 
public: 
Bool 

DropCapInfo 

scCoiumn* 

MicroPoint 



fDCSet; 
fDCIafo; 
f Column; 

f DCLastBasel i ; 



DCStateO : 

fDCSet { false ), 
f Column ( 0 )r 
£DCLastBaseline( 0 ){} 

void SetColumn( scColumn *col ) { f Column « col; } 
scColumn* GetColiimn( void ) const { return f Column; } 



6 » s in £S ^ s 



redisplay infonaation 
d^Ass scRedisplayStoredLine { 



scR8displayStoredLine[ int lines ); 
""scRedisplayStoredLin© ( ) ; 

scRedisplayStosredLine ( ) : 
fStoredDataC 0 ), 
fStoredLines( 0 
fUsingStoredData( false }, 
fDatd( 0 ), 
fMuml terns { 0 ){} 



void 
I J void 

void 
void 

private : 

scTextline* 

ushort 

Bool 



scXRect 

scTestline* 

ushort 



LineListlrtit { int lines ^ 200 ); 
LineListFiai ( void ); 

SaveLineList ( scColmnn* ); 
LineListChanges( scCoiumn*, 



const scXRectS:^ scRedispList* ) 



fStoredData; 
fStoredLines; 
fUsingStoredData ; 



f OrgExtents ; 
fData; 
fNumI terns; 



/» the buffer »/ 

/* # of lines the huffer can store */ 
/* are we using the buffer or 
* a larger temp buf 



class scLIKERe fData { 
public : 

scLIHERe£Data() : 
fOrs( 0, 0 ). 
fBaseline( 0 
fCharRecs( 0 ), 
fStartCharOffset( 0 
f CharCount ( 0 ) , 
fSpecRecC 0 ), 
fStartSpecRunOffset( 0 ). 
f SpecRunCount ( 0 ), 
initialSpec„( 0 ), 
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} ; 

Bool 



dcLineOrgChangsC 0 }. 
dcHChange( 0 
dcVMax( 0 ){} 



DCCompiite ( DropCapInf 
TypeSpecS:, 
Ty-peSpec^, 
MicroPDint> 
MicroPomt^ 
UCS2 ); 



// para spec 

// character spec 



a s «s V£ IS s« 



class scLEADRefData { 
public: 



fd ); } 
'^^ void 



scLEADRefBata ( ) : 

fFlow( eRomaaFlow ), 
fAboveLead( 0 
fB0lowLead( 0 
fEKternalLead( 0 ){} 

scLEADRef Bata ( const scLEADR^fDataSc ); 

scLEADRef Data ( const scF2awDir& fd ) 

scLEADRef Data ( MicroPoint lead, const scFlowDirSc fd ) 



{ 2Rit( fd ); } 

{ ComputeAboveBelow( 



void 
^ void 
VI wid 

I5ead ); SetBelowLead ( 
void 

1:5: MicroPoint 
i,^ void 

Si void 

const scFlowDirSc 

MicroPoint 



void 

MicroPoint 
void 

MicroPoint 
void 



Init( const scFlowDirSc fd ) 
{ 

fFlow « fd; 
fAboveLead 0; 
fBelowLead « 0; 
fE;fcternalLead = 0; 

} 

Set( MicroPoint lead ); 

S©t( MicroPoint lead^ const scFlowBir& ); 
Set( MicroPoint aboveLead, MicroPoint belowLead ) 
belowLead ) ; } 

Set( MicroPoint aboveLead, MicroPoint belowLead, const scFlowDirSc ) 



{ Set Above Lead ( abov 



Coinpute( MicroPoint ptsize, MicroPoint lead, eFntBaseline baseline ); 
ComputeAboveBelo^( MicroPoint iead^ const scFlowDirS: ); 

SetFlow( const scFlowDirS: fd ) { fFlow « fd; } 
(jetFlow( void ) const { return fFlow; } 



GetLead( void ) const 
{ 

return fAboveLead + fBelowLead + fEKternalLead; 



MicroPoint 



private: 

scFlowBir 



SetAboveLead ( MicroPoint lead } { fAboveLead ^ lead; } 
GetAbovelead ( void ) const { return fAboveLead; } 

SetBelowLead( MicroPoint lead ) { fBelowLead = lead; } 
GetBelowLead ( void ) const { return fBelowLead; } 

BetEKternalSpace( MicroPoint space ) 
{ 

fEKternalLead « space; 

} 

GetEKterna 1 Space ( ) const 
( 

return fEKternalLead; 

} 

fFlow; 

// the above and below are a function of the 
// ptsize and the baseline and external lead 
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File: screfdat.h 



$Header: /Projects^oolbox/ct/SCREFDAT.H 3 5/30/97 8:45a toanis $ 

Contains; Con tans structs and classes for performing 
reformat trig of test . 

Written by; Manis 

Copyright (c) 1989-1994 Stonehand Inc,^ of Cambridge, MA. 
All rights reservisd. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or ackno5?ledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



*»**»»»««»*****»»»*»*«**»«**»»»»»»*»»»****»*»*»****«*»»*«««*»««««*******^ 



#ifndef _H„SCREFDAT 



#ikclude "sctbobj.h" 
ffbclude "scspcrec.h" 



cEass 
d¥ass 

glass 
liass 
j^lass 



scRubi Array; 

PrevParaData; 

scContUnit; 

scColumn; 

scTeKtline; 

HRgn; 

scRadispList; 



impede f enum eBreakTypes { 
id eVnd&FinedBr&ak « -1, 
is, eNoBreak, 
la^ eEndStreamBreak^ 

jgColumnBreak> 
Cj ©HyphBreak, 

eCharBreak, 

eQuadBreak^ 

eSpaceBreak, 

eHardHyphBreak ^ 

eParaBreak^ 

eSt artCo 1 Break 
} ©BreakType; 



/* start of a paragraph */ 



S 4s 2S s; !S » ss s a 



struct DropCapInfo { 

Deposition deposition; 
MicroPoint dcMinX, 

dcMinY. 

dcMaKX, 

dcMasY, 

dcL i neOrgChange , 
dcHChange , 
dcVMas; 



DropCapInfo () : 
dcMinX( 0 ), 
dcMinY( 0 ), 



// dc positioning info from spec 

// left char extent from the dc origin 

// top char extent from the dc origin 

// right char extent from the dc origin 

// bottom char extent from dc origin 

// the recomputed line origin 

// hors offset from recomputed org in 

// until a baseline exceeds this values 

// readjust the line origins 
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} 



C3 

m 
m 

iy 

H 
u 

a 

w 
u 
a 

13 



File: Work\CrtPrt\Stonehnd\Scr©gion .cpp 



1-*-+; 

if ( Ses[i] >- endSliv ) 
cfoto bad; 

if ( s[il.fSLTop > testY ) { y-level won't work */ 

if ( lead 0 ) 

goto bad; 
topY lead; 

leftX « f>laKBounds.s:l - fOrg.s; 

S++; 

break ; 

if ( s[il.fSL3Ji > leftX ) { 
leftX - s[i] .fSLKl; 
break; 

} 

if ( IRectlaSliverC theRect, S=s[i], leftX ) ) { 
i++; 

while ( fe[il < endSliv s[il.£SLTop <- testY 

ScSc IRectInSliver( theRect, S<s[i3, laftX ) ) 

i+-f; 

if ( Scs[i] >« endSlxv ) 
goto bad; 

if ( s[i],fSLTop > testY ) { /* y-level won^t work */ 
if ( lead 0 ) 

goto bad; 
topY lead; 

leftX - fMaxBounds.xl - fOrg.K; 

s-^+; 

break; 



scAssart( s[i].fSLTop testY &S= 

testY < s[i].fSLTop + vertlut 
RectlnSliverC theRect, &s[il, leftX ) ); 

leftX « s[i].fSLKl; try this at same y-level */ 

break; 

} else { 

if ( s[i]-fSLs:2 < bestX2 ) 

bestX2 « s[i].fSLx2; 
if ( bottomY <- stil.fSLTop + vertint ) 

goto good; 

} 

} /« inner for */ 
} /» the big else of the outer for loop */ 
} /* outer for loop »/ 



good ; 

^ MicroPoint depth « theRect . Depth () ; 
theRect.xl = ieftX + fOrg.x; 
theRect. k2 * bestX2; 



theRect. yl - topY + fOrg.y; 
theRect .y2 - theRect .yl + depth; 

} 

return; 

bad: 

theRect. Kl « theRect.x2 =^ 0; 
theRect *yl « theRect ,y2 « 0; 
return ; 
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leftX — fOrg.x; 

scAutoUnlock hi( f Slivers ); 
s « (Sliver »)*hl; 

endSliv = Ses [fHumS livers } ; 
vertint = fVertlnterval; 

for ( ; s < endSliv; } { 

if ( s->fSLTop + vertint topY ) { 

} 

else if ( s->fSLTop > topY ) { 
if { lead 0 ) 

goto bad; 
topY lead; 

leftX - fMaKBounds.sl - fOrg»%; 

} else if { iRectInSliver( theRect, s, leftX ) ) { 

} else { 

if ( s->fSLxl > leftX ) 
leftX « s->fSLKl; 

foestX2 - s->fSLx2; 

scAssert( s->fSLTop <- topY 

topY < s->fSLTop + vertint S:^ 
s->fSLsl leftX S& 

leftX + theRect .Width () <= s->fSLH2 ); 

/* Start position is reasonable; does it fit? */ 
/* Loop through sliver levels, to make sure */ 
/* the whole rectangle fits. *^ 
/* If we encounter a y-ievel with no fSIivers. */ 

increment sliver pointer past this level 
/» and try again (topY will catch via the main */ 
/* for loop (2nd clause) ) . */ 
/* If we fail at some y-level because of x- */ 
/* coordinates^ look for the next possible *^ 
/* leftX at that sliver level and try that */ 

(keeping the same topY) , 
/* If there is no next possible leftX^ we have »/ 
/* failed at this topY; 

try the next one, BUT don't go too far »/ 
/* ahead, since we may go down and to the left 
/* to find success so just increment topY by 
/* the leading value, 

testY = topY -i- vertint; 

bottomY ' topY + theRect .Depth () ; 

for ( i =» i; ; testY vertint ) { 

if ( Scs[i] >- endSliv ) 
goto bad; 

if ( !SlivLE{ vertint, testY. bottomY ) ) 
goto good; 

while ( £<s[x] < endSliv s[i].fSLXop ^ vertint <« testY ) 
i++; 

if ( £(S[il >- endSiiv ) 
goto bad; 

if ( s[i].fSLTop > testY ) { /» y-level missing */ 

s i; 
break; 

} 

while ( &s[i] < endSliv 

ScSc s{i].fSLTop <- testY 

EcBc sCi].fSLK2 <- leftX ) 
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scAutoUnlock h2( r->fSlivers ); 
SlivOT* s ^ (Sliver*)*h2; 

int i; 

for ( i = 0; i < r->fNuinS livers; i++ ) 

InvertSliver( s[i]^ r->fVertInterval , appdc, drawrect, size, vertflow ). 

} 

#endif 

/* js!Sstas3ssass;s5 = sitS!»=:»:5 = 5=fi!ssass3Ci==:=s = =s«=sassss:cS53Ss:! at 3s as ss at sa as sa a as » =s t£ s: 3t as ss a; ss » =s = s= s= =: =5 s: a = as =a »/ 

/* 1 if width of rectangle fits m sliver starting at maK(s:l,s->Kl) */ 
/* 0 o.w. 

inline Bool RectlnSliver ( const scXRect& theRect^ 

Sliver* 

MicroPoint xl ) 

{ 

if ( s->fSLKl > xl ) 

xl - s->fSLKl; 
return( Kl + theRect .Width {) <^ s~>fSLK2 ); 

} 

/« 1 if sliverY is at the same (or a previous) sliver level as «/ 
/* floatingY; 0 o.w. SliverY is on a sliver boundary. Float ingY */ 
is not. 



Ifnline Bool SlivLE( MicroPoint vertint, 
ill MicroPoint sliverY, 

fy MicroPoint floatingY ) 

r; returnC sliverY floatingY || floatingY <« sliverY + vertint ); 

"7* Given a rectangle (only size is given as input, not location), */ 

V* a region, the top right comer of the last rectangle placed, »/ 

and a leading value, return the rectangle which has been placed »/ 
'--^ in the first available location. Minimise y-position; within any */ 

i?f given y-position, minimise s-position. If current y is */ 

':>^ impossible, increment y by the leading value. If no position is */ 

f/* available, return a rectangle with 0 width and depth. */ 

C3* The rectangle passed as input is altered, and is returned as */ 

fA* output, theRect.w on input specifies minimum width */ 

M» SectRectRgn, upon finding a location, returns the widest */ 
/* rectangle that will fit. 



vo i d HRgn : ; SectRec t ( scXRectSt t heRect , 

MicroPoint topY, 
MicroPoint leftX, 
MicroPoint lead ) 

{ 

Sliver *s; 
Sliver *endSliv; 
MicroPoint testY; 
MicroPoint vertint, 

bottomY, 

bestX2; 

int i ; 

if ( lead 0 ) { 

for ( ; topY < fMaKBounds.yl; topY ABS( lead ) ) 
leftX « fMaKBounds.Kl; 

} 

else 

topY « fMaxBounds.yl; 



topY fOrg-y; 
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scAssert ( (si2e„t) (pfouf-rgnBuf ) sizeof (rgnBuf) ) ; 

byteSize = r->fMaKSlivers » si2:©of( Sliver ); 

r->fSlivers - MEMAlIodind( r->fMaxS livers * sizeof( Sliver ) ); 

scAutoUnlock h2( r->f Slivers ); 
s = (Sliver*)»h2; 

int i; 
int n; 

uchar sliverBuf [SCCB_SLIVER] ; 

n » r->fNutnS livers; 

for ( i - 0; i < n; i++, 3++ ) { 

ReadBytes( sliverBuf, ctxPtr, readFunc, sizeof( sliverBuf ) ); 
pbuf - SliverBuf; 

pfouf » BufGet„long{ pbuf^ val, kIntelOrder ); 
s->fSLsl = val; 

pbuf BufGet„loRg( pbuf, val, kIntelOrder ); 
s->fSLs2 * val; 

pbuf - BufGet„long{ pbuf, val, kIntelOrder ); 
s->fSLTop - val; 

} 

} catch (,,,){ 
if ( rgnH ) { 

0 r - (HRgn*)scMemDeref ( rgnH ); 
MEMFreeHnd( r->f Slivers ); 

I; MEMFreeHKd{ rgiiH ); 

¥.1 } 

tii throw; 
return rgnH; 

■I 

Clif SCDEBUG > 1 

nitatic void InvertSiiver ( const SliverS: sliver, 

MicroPoint i^iter^^'al, 

1 ^ APPDrwCt K appdc , 

I J HiliteFuGcPtr drawrect, 

f^, const scSizeSc size, 

int vert flow ) 

{ 

scXRect rect; 

if ( vert flow ) { 

rect. Set ( size .Width { ) - sliver, fSLTop, 
sliver.fSLsl, 

size .Width {) - sliver. fSLTop + interval, 
sliver. fSLs 2 ); 

> 

else 

rect. Set ( sliver . fSLsl, sliver.fSLTop, sliver . fSLK2, sliver . fSLTop + interval ); 
(»drawrect)( rect, appdc, false ); 

} 

void RGMInvertSlivers( const HRgnHandle r^nH, 

APPDrwCtK appdc. 
Hi 1 i t eFuncPt r drawrect , 
const scSizeSc size, 
int vertflow ) 

{ 

scAutoUnlock h{ rgnH ); 
HRgn* r « (HRgn*)*h; 
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n = (int)r->fNumSlivers; 

for ( i = 0; i < n; sliver++ ) { 

pbuf = sliverBuf; 

pbuf - BufSet_long( pbuf, sliver->fSLHU kIntelOrder ); 
pbuf - BufSet_long{ pbuf, sliver->fSLs:2, kIntelOrder ); 
pbuf = BufSet_long( pbuf, sliver->fSLTop, kIntelOxtier ); 

^ WriteBytes( siiverBuf, ctxPtr, writeFunc, siseofC sliverBuf ) ); 
return true; 



HRgnHandle ROTfromFile( APPGtKPtr cts:Ptr, 

lOFuncPtr readFunc , 

int ) 



{ 



HRguHand 1 e rgnH ; 

HRgn* r * 0; 

Sliver* s = 0; 

si2:e_t byteSiza; 

Bool tf « false; 

byteSise = sizreofC HRgn ); 

try { 

rgiiH « (HRenHandle)M£MAllocHncl( byteSize ); 
scAutoUnlock h( rgnH ); 
r « (HRgn*)«h; 

uchar rgnBuf [SCCB.HRGH] ; 

const uchar* pbuf rgnBuf; 

ReadBytesC rgnBuf, ctxPtr, readFunc, si2eof( rgnBuf ) ); 
ulong val; 

pbuf - BufGet„long( pbuf, val, kIntelOrder ); 
r->fOrigBounds.sl = val; 

pbuf = BufGet„long( pbuf, val, kInteiOrder ); 
r->fOrigBounds.yl * val; 

pbuf - BufGet_long( pbuf, val, kIntelOrder ); 
r->fOrigBounds.K2 = val; 

pbuf * BufGet_long{ pbuf, val, klatelOrder ); 
r->fOrigBounds.y2 val; 

pbuf « BufGet^lonsrC pbuf, val, kIntelOrder ); 
r->fMaKBounds.xl * val; 

pbuf - BufGet„long( pbuf, val, kIntelOrder ); 
r->fMaKBounds,yl « val; 

pbuf « BufGet_long( pbuf, val, kIntelOrder ); 
r->fMaKBounds .k2 = val; 

pbuf « BufGet_lone( pbuf, val, kIntelOrder ); 
r->fMaKBounds.y2 - val; 

pbuf « BufGet„long{ pbuf, val, kIntelOrder ); 
r->fOr3.x val; 

pbuf - BufGet„lon0{ pbuf, val, kIntelOrder ); 
r->fOrg.y = val; 

pbuf = BufGet_long( pbuf, val, kIntelOrder ); 
r->fVertInte3rval « val; 

ushort sval; 

pbuf ^ BufGet_short( pbuf, sval, kIntelOrder ); 
r->fNumS livers = sval; 

pbuf = BufGet_stort( pbuf, sval, kIntelOrder ); 
r->fMaxS livers « sval; 
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return HRgnSize( size ); 

void RGNGetExtents ( const HRgnHandle rgnH, scXRectS: xRect ) 
const HRgn* r = {const HRgn*)scMeinDeref ( rgnH ); 
xRect ^ r->fOrigBounds; 

} 

HicroPoint RGilMaKDepth { const HRgnHandle rgnH ) 

MicroPoint depth « LONG^MIN; 

const HRgn* r - (HRgn*)scMeinDeref ( rgnH ); 

depth - r->fOrigBounds.y2; 

return depth; 



#define SCCB^HRCIIsf 48 
#define SCCB„SLIVER 12 

^ool RGNtoFile( APPCtsPtr ctKPtr, 

f lOFuncPtr writeFunc, 

J HRgnHandle rgnH, 

int size ) 



if 



HRgn* r; 

Bool tf - false; 

scAutoUnlock h( rgnH ); 
r * (HRgn*)»h; 

scAssert( size r->fNuinSiivers ); 

^ichar rgnBuf [SCCB„HR(^] ; 

uchar* pbuf = rgnBuf; 



pbuf - BufSet_long( pbuf, r->fOrigBounds .k1, kIntelOrder ); 

pbuf - BufSat„lone( pb^f. r->fOrigBounds .yl, kIntelOrder ); 

pbuf - BufSet_long( pfouf, r->fOrigeounds .k2, kIntelOrder ); 

pbuf = BufSet_long( pbuf, r->fOrigBounds .y2. kIntelOrder ); 

pbuf - BufSet_long( pbuf, r->fMaKBounds .xl, kIntelOrder ); 

pbuf = BufSet„long( pbuf, r->fMaxBounds .yl, kIntelOrder ); 

pbuf « BufSet„long( pbuf, r->fMaKBounds .x2, kIntelOrder ); 

pbuf « BufSet_long{ pbuf, r->fMa^Bounds .y2, kIntelOarder ); 

pbuf = BufSet_long( pbuf, r~>fOrg,K, kIntelOrder ); 
pbuf - BufSet.long( pbuf, r->fOrg.y, kIntelOrder ); 
pbuf - BufSet_lone( pbuf, r->fVertInterval , kIntelOrder ); 

pbuf « Buf Set„short ( pbuf, (ushort)r->fHumS livers, kIntelOrder )' 
pbu£ - BufSet_short( pbuf, {ushort)r->fMasS livers, kIntelOrder )] 

scAssert ( (size^t) (pbuf -rgnBuf ) sizeof (rgnBuf )) ; 

WriteBytes( rgnBuf, ctJcPtr, writeFunc, sizeof ( rgnBuf ) ); 



scAutoUniock h2( r->fSlxvers ); 
Sliver* sliver - (Sliver*)*h2; 

int i ; 

int n; 

uchar sliverBuf [SCCB^SLIVER] ; 
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scAutoUnlock h3( rgnH ); 
r « (HRgn*)*h3; 

r->fOre,K ^ r->fOrg,y - 0; 

vertint = r->fVertInt$rval; 

nuRiActives « 0; 

numUsed - 0; 

currentY - Massage ( edges->yl , vertint, -1 ); 

for( ; currentY <» maxY; currentY +=s vertint ) { 

nuitiActives » Remlnactive( actives, currentY, numActives ); 
CalcNewX( actives, currentY, numActives ); 
SortActives( actives, numActives ); 

AddActive( edges, actives, currentY, numEdges, toumActives, toumUsed ) 
r->ScanEdges( actives, currentY, numActives ); 

} 

} catch (...){ 

MEMFreeHnd{ edgsH ); 
MEMFreeHnd{ activeH ); 
MEMFreePtr( newVList ); 
throw; 

} 

MEMF3reeHnd( edgeH ); 
M£MFreeHnd( e^ctiveli ); 
MEMFreePtr( newVList ); 

^iHRgnFirstLinePos returns the y position of the first line within 

/fythe region which is an itegral value of leading from f irstLinePos . */ 

rfl==^roPoint HRgn :: First Li nePos( MicroPoint f irstLinePos^ 
|y MicroPomt leading ) 

#|4def FloatRgnFirstLine 
#i4def FloatRgnFirstLine 

s return fMasBounds.yl - fOrg.y + f irstLinePos; 

if ( fMaxBounds.yl - fOrg.y 0 ) 
/"! return f irstLinePos; 

kS: if ( leading i 0 ) { 

PI while { fiarstLinePos > fMaxBounds.yl - fOrg.y ) 
z'i f iirstLinePos ABS( leading ); 

CJ } 
else 

f irstLinePos ^ fMasBounds^yl - fOrg.y; 

return f irstLinePos; 
#endif 
} 

MicroPoint RdJSiiverSize ( const HRgnHandle rgnH ) 

{ 

HRgn* r; 
MicroPoint sliverSize; 

r ^ (HRgn*)scMemDeref ( rgnH ); 

sliverSize ^ r~> f Vert Interna 1 ; 

return sliverSize; 

} 

long RGHEKternalSize( const HRgnHandle, long size ) 
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if ( v->fPointType eStartPomt ) 
polyrect . Invai idate ( ) ; 

polyrect.sl ^ MIH{ v->x^ polyrect.sl ); 
polyrect.yl = MM( v->y^ polyrect.yl ); 
polyrect.K2 « v->k, polyrect.K2 ); 

polyrect.y2 = MAX( v->y, polyrect.yZ ); 

if ( v->fPointType eStopPoint ( ! polyrect .Width ( ) || ipolyrect .Depth () ) ) 
return false; 

} while ( (v++)->fPointType ! eFinalPoint ); 

return ( ! polyrect .Width () |t Ipolyrect .Depth () ); 

} 

/* PolyfiRsn converts a polygon, represented by a list of vertices, */ 
/* into a region, using scan conversion techniques. */ 
/* Destroys the previous structure of the region. */ 

void Pol^^gn( HRgnHandle rguH, 

const scVertes* vList ) 

{ 

const scVerteK* v; 
MicroPoint currentY, 
vertint, 

secondYj 
P int numEdges, 
.^1 nuKiActives, 
IZ nufflUsed; 

FU scVertex* newVList =0; 

i3 HEdgeHandle edgeH = 0; 

volatile HEdgeHandle activeH » 0; 
"""^ HEdge *volatile actives « 0; 

''J HEdge *volatile edges « 0; 

£3 HRgn *volatile r » 0; 

L try { 

U raise.if( rgnH 0, scERRinput ); 
'^j SetEmptyHRgn ( rgnH ); 



raise„if( emptyPoly( vList ), scERRmput ); // test for invalid poly 

// vectorize the beziers 
BEZVectorisePolyt nev^VList, vList )j 
if ( newVList ) 

vList = newVList; 

edgeH =» (HEdgeHandle)MEMAllocHnd( edge_„growSize * sizeof( HEdge ) ); 
numEdges « 0; 

SetPolyBounds( vList, rgnH ); 

for ( jnaxY - LOlsTG^MIN, v - vList; v->fPointType !- eFinalPoint; V4-4- ) 
masY MAX( mas;Y, v->y ); 

for ( ; vList->fPointType !« eFinalPoint; vList++ ) { 
if ( vList*>fPointType \^ eStopFoint ) { 

ConstructEdge ( vList, tedgeH, S^numEdges, ScsecondY ); 

} 

} 

activeH « MEMResizeHnd ( acti^/eH, MEMGetSizeHnd( activeH ) + MEMGetSizeHnd( edgeH) ); 

scAutoUnlock hl( edgeH ); 
edges » (HEdge* )*hl; 

scAutoUnlock h2( activeH ); 
actives « (HEdge* )*h2; 
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(»numUsed)+'i-; 
continue; 

} 

CaiclsIewK( currentY, 1 ); 

for ( i « *nuinActives - 1; i 0 && ei->K < actives [i ] .k: i — ) 

if ( i < *nuinActives ) 

SCmeinmove{ Stactives[i+1] ^ £cactives[x ] , ( *numActives - i ) * si2eof{ HEdge ) )j 

(*numActives ) ++ ; 

actives [i] *e; 



ScanEdges scans the edges at each scan line^ adding f Six vers to */ 
^* the region accordingly. */ 

void HRgn: cScanEdgesC a^ 

MicTOPoint curY, 
int numActivas ) 



{ 

HEdge* end;'. 
'^t MicroPoint prevX, 

O left ~ 0, /* to get compiler to shut up */ 

fn right « 0; to get compiler to shut up */ 

l-r, Bool state, 

readySliver; 

^ „i 

I J readyS liver « false; 
^^1 state « false; 

end « S^a[nufflActives] ; 
for( ; a < end; a++ ) { 

if ( state false ) { 
prevX = a->K; 
""^i state = true; 

iy } 

else { 

state false; 

if ( readySliver right prevX ) 
O right « a->K; 

else { 

if ( readySliver ) 

AddSliver( left, right, curY ); 

else 

readySliver - true; 
left « prevX; 
right a->K; 

} 

} 

} 

if ( readySliver ) 

AddSliver( left, right, curY ); 

raise„if( state, scERRlogical ); 

} 

int emptyPoly( const scVertex* vlist ) 
{ 

scXRect poiyrect; 

const scVerten* v * vlist; 
do { 
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if ( i + 1 < numActives ) 

SCmeBmove( &dctives{i]^ &actives[i+l] , ( numActives - i - 1 ) * sizeof( HEdge ) ); 
nutoActives — ; 

} 

retum numActives; 

} 

/«**»*«»****»*«»**»»«****«*««*»»*»****««««»«*«««»***««»**««*»*»*«*«*««»»«» 

/* CalcNewX, given a current y position and a list of edges, 

/* calculates their new k position, «/ 

static void CalcMewX( HEdge* e» 

Mi croPo i n t y Pos , 
int num ) 



int i ; 
i?EAL t&mp ; 

for ( i num-1; i >« 0; i— } { 

temp * (i?EAL)( yPos - efij.yl }; 
tganp (REAL}( e[i].dx ); 

temp /= (REALH e[i].dy ); 
e[i].K (MicroPoint)temp + etx].xl: 



} 



SortActives sorts the edges in the active list hy their x position */ 
M at the current y-position of the scan line. A bubble sort is used »/ 
.-^^ because the list is almost always in sorted order or is very close. */ 

f|atic void SortActives ( HEdge* e, 

int numActives ) 

H 

int i, 

last; 

^.i Bool badOrder; 
HEdge temp; 

rj badOrder ^ true; 

I J last = numActives - 1; 

for ( ; badOrder true; last — ) { 
iy badOrder ^ false; 

Ll. for ( i « 0; i < last; i++ ) 

if ( e[i].}£ > efi+lj.sc ) { 
j^' badOrder « true; 

I J temp « e[i]; 

e[i] « e[i+l]; 

e[i+l] « temp; 



AddActive, given a n&w scan Una position r adds new active edges */ 
/* to the active edge list. */ 

static void AddActive( HEds^* e^ 

HEdge* actives, 
MicroPoint currentY, 

int numEdges, 

int* numActives, 

int* nuittUsed ) 

{ 

int 2 ; 
HEdge* end; 

end - £ce[numEdges] ; 

for ( e *numUsed; e < end ScSt curirentY e->yi; e-f-+ ) { 
if ( currentY > e->y2 ) { 
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if ( (*nuinEdges+l) * siseof (HEdge) > MEMGetSizeHnd( *edgeHP ) ) 

*edgero * MEMResize^Hnd ( «edeeHP, MEMGetSi2oHnd( *)&d3eHP ) + siz^of ( HEdgs ) * edge_gro^Size 

); 

if ( vList->y < vList[l].y ) { 
yl = vList->y; 
y2 vList [1] .y; 
X « vList">K; 
dK = vList[l].s - vList->K; 
dy - vListflj.y - vList->y; 

} 

else { 

yl » vList [1] .y; 

y2 - vList->y; 

K vLlst [1] .x; 

dx " vLi&t->x - vList[l]*x; 

dy » vList~>y - vList[l].y; 

} 

/* Determine which endpoints, if any, are tricky. 

y* If so, change that endpoint to shorten the 

/* edge by one MicroPoint. */ 

for ( i ^ 1; vList[i] .fPointType N eStopPoint 
vListfi] .fPointType 1« eFinalPoint 
vList[i].y vList [i+l] .y; ) 

i+-f ; 

£l if ( vList [i] -fPointXype eFmalPomt || vList [i] .fPointXype eStopPoint ) 
nextY - *secondY; 

else 

C^^ nextY « vList{i+l] -y; 

if { viist->y < vList[l].y vList[l].y < nestY ) 

m if ( vList->y > vList[l].y ^& vList[l],y > nextY ) 
yi++; 

y* Insert the edge and set the fields. */ 

Cl scAutoUnlock hl( *edgeHP ); 
%j edges « (HEdge *)*hl; 

for ( i * *numEdges - 1; 
U i >- 0 ( yl < edges[i].yl J 1 yl edges[il*yl S^Sc x < edges[i].s ); 

'f^ ) 

l=J i4-+; 

if ( 1 < *nximEdges ) 

SCmemmovet Sedges [i+1] , tedgesfi], ( *numEdges i ) * sizeof ( HEdge ) ); 

edges [i ] .yl = yl; 

edges [i ] ,y2 = y2; 

edges [i] *k1 * 

edges [i] .k « k; 

edges [i ] .dx » dK; 

edgesfi] ,dy = dy; 

(*numEdges)-f4-; 

} 

Remlnactive removes inactive edges from the active edge list */ 

static int Reinlaactive{ HEdge *actives, 

MicroPoint currentY, 
int numActives } 

{ 

int i; 

for ( i » nuniActives ~l;i>«0;x — ) 
if ( actives [i ] .y2 < currentY ) { 
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HRgn* r; 

MicroPoint left ^ LONG^MAXj 
MicroPoint right LOKfG^MIN; 
MicroPoint top = LOHG_MK; 
MicroPoint bottom - LONG_Mra; 

for ( ; vList->fPointType i« eFinalPoint; vList++ ) { 
left ^ MIN( left, viist->s ); 
right « MAX( right, vLast->s ); 
top * MIN( top, vLxst->y ); 
bottom « MAX( bottom, vList~>y ); 

} 

r = (HRgn«)scMemDeref ( rgnH ); 

r->fOrigBounds.Set ( left, top, right, bottom ); 



Construct Edge inserts a new edge from the vertex list into the edge */ 
/* list. The edge list is sorted in increasing order of the lowest */ 
/* y point of the edge. Within equal minimum y values, edges are *y 
/» sorted in increasing k order, using the k value of the vertex */ 
/« with the minimum y value. */ 
/* The edge that is inserted connects the vertices vList[0] *y 
/* and vList[l] . 

It is important to note that the ordering of vList depends on 
/* how we trace the edges, sq vListfO] is encountered before */ 
f*» vList[l]- This is not true, however, of e->fSLTopl and e->fSLTop2, The 

point { e->fSLxl, e->fSLTopl ) is defined as the endpoint with lowest 

y-'vaiue, regardless of whether it was encountered first. 
¥^ "tricky" endpoints are those which will cause problems for the 
pff scanning algorithm if they are included as points along two 

two edges (which they in fact are). "nsKtY" is the y-value 
yf of vList[2], and is used to determine whether vList[l] is a 
i& "tricky" endpoint. We oan't simply use VList [2]" for two 
~/Cf reasons; first, in the case of a horizontal edge that looks 
^ like this: 



*/ 
»/ 



1^ we must skip over one of the points which have equal y-value. 

l^f Second, when vList[l] is a stopPoint, we must use the point 
right after the startPoint as our neKtY. "secondY" is used to 
keep track of this over a series of calls to CanstrnctEdsB() , 
When an endpoint is found to be tricky, it is changed to shorten 

fj>f^ the edge by one MicroPoint. 

I^tatic void ConstructEdge ( const scVerteK* vList, 



«/ 
*/ 

»/ 
*/ 



HEdgeHandle* 
int« 

MicroPoint* 



HEdge* edges ; 

MicroPoint yl, 
K, 

nextY; 
MicroPoint y2. 



int 



dy; 
i; 



edgeHP, 
numEdges , 
secondY ) 



if ( vList->fPointType eStartPoint ) { 

for ( i " 0; vList[i].y vList[i+l].y SS^ 
vList[i+l] .fPointType eStopPoint 
vListfi+i] .fPointType 1= eFinalPoint; 1-^+ ) 

^secondY « vListfi+l] .y; 



if { vList->y vList[l].y ) 
return ; 



if ( *numEdges * sizeof ( HEdge ) MEMGetSizeHnd ( *edgeHP ) ) 
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DisposeHRgn( newRH ); 

} 

/* YShrinkHRgn shrinks the region a distance of dy vertically, */ 
/* dy is positive. 

static void YShrinkHRgnC HRsnHandle rgnH, 

MicroPoint dy ) 

{ 

volatile HRgnHandle rHl; 
volatile HRgnHandle rH2; 
volatile HRgnHandle rH3; 
HRgn* r; 
MicroPoi nt of f set , 

totalOffset; 
Mi croPo i n t si i verSi ze ; 

scAutoUnlock hl( rgnH ); 
r - (HRgn *)*hl; 

try { 

sliverSize * r->£VertInterval ; 
rHl « HewHHgnf sliverSise ); 
rH2 Nev^Rgn( siiverSise ); 
rH3 « HewHRgn( sliverSise ); 

;n for { offset « sliverSise, totalOffset =^ 0; ; ) { 

,^ Co-pyHRs^i rHl, rgnH ); 

y CopyHRgn( rH2, rgnH ); 

'.2 Trans lateHRgn( xHl, OL, offset 

J TranslateHRgn( rH2, OL. - offset ); 

SectHRgn( xHl, rgnH, rH3) ; 
SectHRgnC rH2, rH3. rgnH ); 

ij totalOffset offset; 

I if C totalOffset dy ) 

f break ; 

offset 3 * offset; 
if { totalOffset + offset > dy ) 
offset « dy " totalOffset; 

scAssert( totalOffset + offset <« dy ); 

} 

} 

catch (.,-){ 

DisposeHRgn( rHl ); 
DisposeHRgnC rH2 ); 
DisposeHRgn( rH3 ); 
throw; 

} 

DisposeHRgn( rHl ); 
DisposeHHgn( rH2 ); 
DisposeHRgnC rH3 ); 

} 

/* SetPolyBounds sets the bounding rectangle of the polygon * 

static void SetPolyBounds{ const scVerteK* vList, 

msnHandl0 rgnH ) 

{ 



File : Work\CrtPrt\Stonehnd\Scregion .cpp 



Pg: 22 



"'scAutoUniock2( ) 
{ 

MEMUnlockHndC handle^ ); 

} 

void *operator *() 

{ 

return scMeinDeref( handle^ ); 

} 

private : 

scMemHandleSc handle^; 



static void YGrowHRgn( HRgnHandle rgnH, 

MicroPoint dy ) 

{ 

HRgnHandle newSH; 
HRgn* r; 

Sliver* s; 
Sliver* newS; 
MicroPoint yPos, 

int i; 

try { 

scAutoUnlock hl( rgnH ); 
3 r « (HRgn*)*hl; 

^ newRH HewHRgn( r->fVert Interval ); 

U scAutoUnlock h3( newRH ); 

3 newR « (HRgn*)*ii3; 

^ " { 

4 scAutoUnlock2 li2( r->fSlivers ); 

5 s « (Sliver*)*h2; 

scAntoUniock2 h4( newR->f Slivers ); 
3 news « {Sliver»)»h4; 

.1 newR->fOrg.K r->fOrg.K; 

^ newR-'>£Org.y » r->fOrg.y; 

=^ newR->fVert Interval r->fVertInterval ; 

Z for ( i » 0; i < r->fNumSlivers; i++ ) { 

^ yPos ^ s[i] .fSLTop; 

if ( r->IsBorder( i. -1 ) ) { 

for ( 3 - dy; j < 0; j r->f Vert Interval ) 

newR->CorpSliver( toewS. s[i],fSLKl. s{i].fSLx2, yPos + j ); 

} 

newR->CorpSliver( &newS. s[i].fSLKl. s[i].fSLK2, yPos ); 

if ( r->IsBorder( i, 1 ) ) { 

for ( j - r->fVertInterval; j -dy; j r->fVertIntervaI ) 
newR->CorpSliver( SnewS, s[i3.fSLxl, s[i].fSLK2, yPos + j ); 

} 

} 

newR->SetBounds ( ) ; 

} 

CopyHRgn { rgnH, newRH ) ; 
SCDebugTrace ( 0, "done" ); 

} 

cratch (,.,){ 

DisposeHRgn( newRH ); 
throw; 

} 
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right - s[i],fSLK2; 

i--; 

InsertSliver( left^ right, yFoSr sPP, start, i ); 

} 

/* Like GetBorders, but boolean; returns 1 if GetBorders would return 

/* nonzero value for *num (the number of borders). */ 

Bool HRgn : : IsBorder ( int pos^ 

int tb ) 

{ 

Siiver» s; 
int i ; 

MioroPoint laft^ 

rights 

yPos; 

Bool uncovered; 

scAutoUniock hl( f Slivers ); 
B ^ (Sliver *)»hl; 

i = pos; 

left « s[i].fSLK2; 

right s[i].fSLx2; 

yPos « sfiJ.fSLTop + tb * fVertlnterval ; 

if ( tb "1 ) { 

3 for ( ; 1 >- 0 s[i],fSLTop > yPos; i— ) 

if {'i < 0 II s[i],fSLTop J - yPos ) { 
return true; 

U } 

1 for ( ; i >« 0 Sc& s[il.fSLTop yPos; i~- ) 

^ i++; 

4 } 

3 else { 

for { ; i < fNumSlivers s[i],fSLTop < yPos; i++ ) 

J if ( i == fKumSlivers |i s[i3.fSLTop 1= yPos ) { 

.i return true; 

1 } 

; ^ 

5 uncovered « true; 

^3 for ( ; i < fNuKiSlivers S,£c s[i],fSLTop yPos SiEc s[i].fSLxl right; i++ ) { /* process fSliv 
^'■ers at this yLevel */ 

if C s[i].fSLx2 <- left ) 

continue; 
if ( s[i].fSLKl < right ) 

uncovered « false; 
if ( stij.fSLsl > left M sCi].fSLK2 < right ) { 
return true; 

} 

} 

return uncovered; 

} 

/* YGrowHRgn expands the region a distance of dy vertically. 

/* dy is negative, */ 

class scAutolfnlockZ { 
public; 

scAutoUnlock2( scMeniHandleSt hnd ) : 
handle_( hnd ) 
{ 

MEMLockHnd{ handle. ); 

} 
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/* amid potentially overlapping sliver neighbors, */ 

void HRgn: : Corps liver ( Sliver** sPP, 

MicroPoint left, 
MicroPoint right, 
MicroPoint yPos ) 

{ 

Sliver* s; 
int i ; 
int lo^ 
hi; 

Bool found; 
int start; 

s - »sPP; 

if ( fNumSlivers 0 ) { 

InsertSliver( left, right, yPos, sPP, 0, -1 ); 
return; 

} 

lo « 0; 

hi - f^umSlivers - 1; 

found - false; 

for ( i - (hi+lo)/2; lo <» hi; i « (hi+lo)/2 ) { 
if ( yPos < s[i].fSLTop ) 

hi « i - 1; 
else if ( yPos > s[i].fSLTop ) 
lo - i + 1; 

3 else { 

S found = true; 

f break ; 

^ } 
J } 

Z if ( ! found ) { /* don't remove^ just insert »/ 

^ if ( i < 0 ) 

4 i « 0; 

=1 else if { i < fNumSlivers S^Sc s[i].fSLTop < yPos ) 

i++; 

2 scAssert{ i fNumSlivers || s[i].fSLTop > yPos ); 

1 InsertSliver( left, right, yPos, sPP, i, i-l ); 

^ return ; 

: > 

I scAssert{ i < fHumS livers yPos s[i]*fSLTop ); 

find the right place to start. */ 
i£ ( left s[i].fSLE2 ) { 

for ( ; i >- 0 Sc& s[i],fSLTop yPos left s[i].fSLx2; i— ) 

i++; 
} else { 

for ( ; i < fMumSlivers s[i].fSLTop yPos left > s[i3.fSLx2; i++ ) 

} 

if ( i fHumSlivers || yPos < s[i].fSLTop ) { 

InsertSliver{ left, right, yPos, sPP, i, i-l ); 
return; 

} 

scAssert( i < fNumSlivers yPos «^ s[i].fSLTop ^ left <« s[i].fSL2t2 ); 
start 1 ; 

if ( left > s[i],fSLKl ) 
left - s[i J .fSLxl; 

for ( ; i < fNumSlivers yPos s[i].fSLTop right >^ s[i3.fSLKl; i++ ) 
if ( right < s[i].fSLK2 ) 
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scAutoUnlock hl( rgnH ); 
r (HRen «)«hl; 

newRH ^ NewHRgn( r->f Vert Interval ); 

scAutoUnlock h2( newRH ); 
xiBwR « (HRgn *)»h2; 

{ 

scAutoUnlock h3( r->fSlivers ); // lock for the duration of AddSliver calls 
s = (Sliver *)»h3; 

newR->fOrg.x « r->fOrg,K; 

ne^R->fOrg.y = r->fOrg.y; 

newR->fVertInte2rval = r->fVertInterv^al ; 

end = &s [ r- > f Hums li vers ] ; 
for ( ; s < end; s-s^+ ) { 

if ( s->fSLK2 - s->fSLKl > dK * 2 ) 

newR->AddSliver( s->fSLKl dK + r->fOrg.K, s->fSLx2 - dx + r->fOrg.x. s->fSLTop 

•f r->fOrg.y ); 

} 

} 

CopyHRgn( rgnH^ newRH ); 

} 

catch (*..){ 

DisposeHRgn ( newRH ) ; 
throw; 

} 

1^"^ DisposeHRgn ( newRH ); 

InsertSliver inserts the sliver into the given region at the */ 
'^4^* position "start". The fSlivers in positions "start" to "end" are */ 
1^* removed from the region. If end < start, no fSlivers are removed. »/ 

% , = 

i?4^oid HRgn: :InsertSliverC MicroPoint left, 
'"""^ MicroPoint right, 

^ MicroPoint y, 

□ Sliver** sPP, 

int start, 
/! int end ) 

Sliver* s; 

\i s = »sPP; 

if ( end < start ) { /* don't remove, just insert */ 

if ( f Hums livers «^ fMa,xS livers ) { 
MEMUnlockHnd ( fSlivers ); 

fSlivers ^ MEMResizeHnd ( fSlivers, MEMGetSizeHnd ( fSlivers ) + sliver„growSize * si2eof( 

Sliver ) ) ; 

s *sPP « (Sliver *)MEMLockHnd( fSlivers ); 
fMaxSiivers -f^ sliver^growSize; 

} 

if ( start < f Hums livers ) 

SCmemmove( &s[start+l] , £«s [start], ( fHumSlivers ~ start ) * sizeof ( Sliver ) ); 
fNumSlivers++; 

} 

else if ( start < end ) { remove more than one »/ 

if ( end + 1 < fHumSlivers ) 

SCmemmove( S:S [start+1] , Scs [end+l] , ( fHumSlivers - end - 1 ) * siseof( Sliver ) ); 
fHumSlivers end - start; 

} 

(Scs[start] )-> Sets liver ( left, right, y ); 

} 

/* CorpSliver, unlike its simplistic counterpart "AddSliver", */ 
/• judiciously incorporates the sliver into the given region, */ 
/* displaying consummate tact in smoothly integrating the sliver */ 
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DisposeHRgn( vertRgnH ); 

} 

XGro-f^R^n expands the region a distance of dx horizontally. */ 
/* dx is negative. */ 

static void XGrowHRgn( HRgnHandle rgjiH, 

MicroPoint dx ) 

{ 



volatile HRgnHandie 


! newRH; 


HRgn* 


r; 


HRgn* 


newR; 


Sliver* 


s; 


Sliver* 


end; 


MicroPoifit 


left. 




right. 




yPos; 



try { 

scAutoUnlock hl( rgnH ); 
r ^ (HRgn«)*hl; 

newRH = HewHRgn( r->f Vert Interval ); 

scAutoUnlock h2( newRH ); 
ne?fR - (HRgn*)*h2; 

1 { 

scAutoUnlock h3( r->£Sllvers ); 
I s = (Sliver*)*h3; 

J newR->fOrg.K « r->fOrg.K; 

I KewR->fOrg.y « r->fOrg.y; 

newR->f Vert Interval « r->fVertIntervai ; 

J end « S:S[r->fNumSlivers] ; 

i for ( ; s < end; ) { 

" yPos = s->fSLTop; 

left « s->fSLKl 4- dK; 
i right = s->fSLK2 - dx; 

: for ( 3-*-+; s < end s->fSLTop yPos StSs right s->fSLsl + dx; s++ ) 

=^ right » s->fSLK2 - dx; 

^ newR->AddSliver( left + r->fOrg,K, right + r->fOrg.Kx yPos + r->fOrg.y ); 

I } 
^ } 

CopyHRgn( rgnH, newRH ); 

} 

catch (...){ 

DisposeHRgn( newRH ); 
throw; 

} 

DisposeHR3n( newRH ); 

} 

XShrinkHHgn shrinks the region a distance of dK horizontally, 
/* dx is positive, */ 

static void XShrinkHRgn( HRgnHandle rgnH, 

MicroPoint dK ) 

{ 

volatile HRgnHandle newRH; 
HRgn* r; 
HRsn* newR; 
Sliver* s; 
Sliver* end; 

try { 
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vertlnt 2 * r-> f Vert Interval ; 

} 

we should test the validity of the inset region, if it has no size or negative 
// size we should raise an exception 

if ( ( dx < 0 dy > 0 ) | | ( dx > 0 dy < 0 ) ) { 
01dInsetHRgn( rgnH, dx, dy ); 

} 

else if { dK I- dy 11 bestOption 0 ) { 
PlainInsetHRgn( rgnH, ds, dy ); 

} 

else { 

if C dH > 0 ) { 

for ( distance - vertint; distance dx; distance += vertint ) { 
PlainInsetH%n( rgnH, vertint, vertint ); 

} 

distance vertint; 

PlainInsetHRgn( rgnH, dK - distance, dK - distance ); 

} 

else if ( dK < 0 ) { 

for ( distance - vertint; distance >== ds; distance vertint ) { 
PlainInsetHRgn( rgnH, - vertint, - vertint ); 

} 

distance +» vertint; 

PlainInsetHRgn( rgnH, dx - distance, dx - distance }; 

} 

} 

} 

Z/* IMPOmNT MOTE: This works only when sign( dK ) - sign( dy ) */ 

ilstatic void PlainInsetHRgn( HRgnHandle rgnH, 
ij MicroPoint dx, 

5 MicroPoint dy ) 

y volatile HRgnHandle vertRgnH; 

J HRgn* r; 

Z_ MicroPoint vertint; 

if ( dx — 0 S:Sc dy 0 ) 
1 return; 

i try { 

y r (HRgn*)scMemDeref ( rgnH ); 

vertint = r-> f Vert Interval ; 

vertRgnH - NewHRgnC vertint ); 

CopyHRgn( vertRgnH, rgnH ); 

if ( dx < 0 ) 

XGrov^Rgn( rgnH, dx ); 
else if ( dx > 0 ) 

XShrinkHRgn( rgnH, dx ); 

r (HRgn*)scMemDeref ( vertRgnH ); 

dy « PointMassage{ dy, r->f Vert Interval ); 

if { dy < 0) 

YGrowHRgn( vertRgnH, dy ); 
else if { dy > 0 ) 

YShrinkHRgn( vertRgnH, dy ); 

if ( dx > 0 I 1 dy > 0 ) 

SectHRgn( rgnH, vertRgnH, rgnH ); 

else 

UnionHRgn( rgnH, vertRgnH, rgnH ); 

} 

catch {...){ 

DisposeHRgn{ vertRgnH ); 
throw; 
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if ( a->fSLKl + aX !- b->fSLKl + bX (| 
a->fSLs2 + aX 1= b->fSLK2 + bX |! 
a->fSLTop + aY i= b~>fSLTop + bY 

{ 

same = false; 

} 



return same; 

} 



/* EffiptyHRgn returns non-zero if the region contains at least «/ 
one sliver, 0 o.w. */ 

Bool EmptyHRgn{ HRgnHandle rgnH ) 
{ 

HRgn* r; 
int ttum; 

r ^ (HRgn *)sc:MemDeref ( rgnH ); 
num = r->fKuinSllvers; 

return num 0; 

} 



py"* InsetHRgn shrinks or eKpd.nds the region. All points on the region 

boundary are moved inwards a distance of dy vertically and dx */ 
horizontally; if dK or dy is negative, the points are moved outwards */ 

^ijstatic void OldlnsetHRgn ( HRgnHandle rgnH, 

MicroPoint dx, 
'-•^ MicroPoint dy ) 



m 



HRgn «r; 



if ( dx < 0 ) 

XGrowHRgn( rgnH, dx ); 
else if { ds: > 0 ) 

XShrinkHRgnC rgnH, dx ); 

r {HRgn*)scMemDeref ( rgnH ); 

dy ^ PointMassage( dy, r->f Vert Interval )j 

if ( dy < 0) 

YGrowHRgn ( rgnH, dy ) ; 
else if ( dy > 0 ) 

YShrinkHRgn( rgnH, dy ); 



void InsetHRgn{ HRgnHandle rgnH, 

MicroPoint dx, 

MicroPoint dy, 

Bool bestOption ) 



MicroPoint 



HRgn* 



vert Int, 

distance; 

r; 



scAutoUnlock hl( rgnH ); 
r = (HRgn *)*hl; 



r-> f OrigBounds . k 1 
r~> f Ori gBounds . y 1 
r-> f OrigBounds . s2 
r-> f OrigBounds .y2 



^ r- >f Ori gBounds. k1 + dx; 
» r->f Ori gBounds. yl + dy; 

r->f OrigBounds. k2 dx; 
- r->f OrigBounds -y2 - dy; 
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} 



y* I^ectlnHR^n returns 1 if the rectangle intersects the region, 0 o.w* */ 

/* Note: RectlnHR^n will sometimes return 1 when the rectangle merely */ 

/* intersects the region's enclosing rectangle. If you need to know */ 

/* whether a rectangle intersects the actual region, use RectHRgn to »/ 

set the rectangle to a region, and call SectHRgn to see whether «/ 

/* they intersect. If the result of SectHRgn is an empty region, »/ 

/» they don't intersect. */ 

Bool RectInHRgn( const HRgnHandle rgnH, 
const scXRectSc rec ) 

{ 

HRgn* r; 
Bool val; 

scAutoUnlock hl( i^nH ); 
r = (HRgn*)»hl; 

val = r->fMaxBounds. Intersect { rec ); 
return val; 

} 



/* EqualHRgn returns 1 if the regions have identical fSlivers, 0 o.w. 

5Boo1 EqualHRgn( const HRgnHandle rgnA, 
'•^ const HRgnHandle z^nB ) 





const HRgn* 


rA; 




const HRgn* 


rB; 




const Sliver* 


a; 




const Sliver* 


b; 




const Sliver* 


endA; 




MicroPoint 


aX, 






aY, 






bX, 






bY; 




Bool 


same ; 




scAutoUnlock 


hl( rgnA 



rA = (const HRgn«)»hl; 

scAutoUnlock h2( rgnB 
rB = (const HRgn*)*h2; 

if { rA-'>fMumS livers + rB->fHumSlivers === 0 ) 
return true; 

if ( rA->f Hums livers t« rB->fHumSlivers |t 

rA->fVertInterval !- rB->f Vert Interval jj 
rA->fMaKBounds ! - rB->fHaxBounds ) { 

return false; 

} 

aX « rA->fOrg.x; 

aY « rA->fOrg.y; 

bX - rB->fOrg.K; 

bY « rB->fOrg.y; 

scAutoUnlock h3( rA*>fSlivers ); 
a - (const Sliver«)«h3; 

scAutoUnlock h4( rB-'>fSlivers ); 
b = (const Sliver*)*h4; 

endA - Sea [rA-> fHumSl ivers ] ; 

for ( same = true; same true S^S: a < endA; a++, b4-+ ) { 
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throw; 

} 

DisposeHRgn{ tempDstKRgn ); 

> 



/* PtInHRgn returas 1 if the point is in the region, 0 o.w, «/ 

Bool PtIaHRgn{ const HRgnHandla rgtiH, 
const scMuPointS: mPt ) 



H'R^n*' r; 
Sliver* s; 
MxcroPoint mz, 
my; 

int i; 
int hi, 
low; 

MicroPoint yPos ; 

scAutoUnlock hl( rgnH ); 
r = (HRsB*)*hl; 

mx « mPt . X ; 
my mPt.y; 

if ( lr->fMaxBounds.PinRect( mPt ) ) 
return false; 

scAutoUnlock h2( r">fSlivers ); 
s = (Sliver *)«h2; 

mK r->fOrg.K; /* cancel out effect of offsets «/ 

my — r~>fOrg,y; 

low =0; 

hi * r->fNuffiSlivers ~ 1; 

for ( i « (hi+low) / 2; low hi; i « (hi+low) / 2 ) { 
if ( my < s[i].fSLTop) 
hi - i - 1; 

else if ( my >= s[i],fSLTop + r->f Vert Interval ) 
low = i -H 1; 

else 

break; 

} 

if ( low > hi ) /» didn't find any sliver with good y-value 

return false; 

yPos s[i] .fSLTop; 

if ( s[i] .fSLxl ) { 

for ( ;; i++ ) { 

if ( i >^ r->f Hums livers \\ s[x].fSLTop l« yPos M mx < s[i].fSLsl 

return false; 
else If ( mK < s[i].fSLK2 ) 

break; success */ 

else 

} 

} 

else { 

for C ;; i— ) { 

if ( i < 0 1) s[i].fSLTop !« yPos M s[i].fSLH2 <- mx ) 

return false; 
else if { s[i].fSLs:l <« mz ) 
break; success 

} 

} 



return true; 
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// doing anything . 
// 

newA « newB =0; 
for ( ;; ) { 

if ( newA ) { 

if ( sA >« endA H sA->fSLTop + a->fOrg,y > yPos |i sA->fSLs:l + a->fOrg, 

s: > sB->FSLk2 -f b->fOrg.K) { 

dst->AddSliver( left, sB->fSLx2 + b->fOrg.K. yPos ); 
break ; 

} 

else { 

right = sA->fSLKl + a'->fOrg.K; 

} 

} 

if ( newB ) { 

if ( sB >= endB |t sB->fSLTop + b->fOrg,y > yPos || sB->fSLxi + b->fOrg, 

K > sA->fSLx2 ^ a->fOrg.K) { 

dst->AddSiiver( left, sA->fSLK2 a->fOrg.K, yPos }; 

sA++; 

break; 

} 

else { 

right « sB">fSLKl + b->fOrg.2s; 

} 

} 

dst->AddSliver( left, right, yPos ); 
12 if ( sA->fSLK2 + a->fOrg.K sB->fSLK2 -f b->fOrg.x ) { 

is sB++; 
I ^ ^ break ; 

ru } 

;^ if { sA->fSLx2 + a->fOrg.K < sB->fSLK2 + b->fOrg.K ) { 

l^y newA = 1; 

newB « 0; 

left - sA->fSL3j2 + a->fOrg.s:; 
SA4'4-; 

} 

Cj else { /* sB->fSLs2 + b->fOrg.jt < sA->fSLK2 + a">fOrg.s */ 

^.j newB « 1; 

, 1 newA = 0 ; 

left « sB->fSLx2 + b~>fOrg.x; 

} inner for */ 

} /* big else «/ 

} while */ 

for ( ; sA < endA; sA-f+ ) { sB endB */ 

dst->AddSliver( sA->fSLKl + a->fOrg.K. sA->fSLx2 + a->fDrg.:^, sA->fSLTop + a->fOrg.y 

} 

for ( ; sB < endB; sB++ ) { sA >^ endA */ 

dst->AddSliver( bB->£SLx1 + b->fOrg.K, sB->fSLK2 + b">fOrg.x^ sB->fSLTop + b->fOrg.y 

} 

scXRect arect( a->fOrigBounds ); 
scXI^ect brect{ a->fOrigBounds ); 
arect .Union ( brect ); 

dst->fOrigBounds = arect; 

dst->UpdateRealBounds ( ) ; 

} 

CopyHRgn ( dstHRgn , tempDstHRgn ) ; 

} 

catch (,.,){ 

DisposeHRgn( tempDstHRgn ); 
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HRgn* 




dst; 


const 


Sliver* 


sh; 


const 


Sliver* 


sB; 


const 


Sliver* 


endA; 


const 


Sliver* 


andB; 


MicroPoint 


left. 






right. 






yPos; 


Bool 




newAr 
newBi 



raise_if { srcHRgnA 0 | | sroHRgnB 0 | | dstHRgn 0^ scERRinput ); 
try { 

scAutoUnlock hl{ srcHRgnA ); 
a « (const HRgn»)*hl; 

scAutoUnlock h2( srcHRgnB ); 
b « (const KRgn«)*l!i2; 

raxse_if ( a- >£Vert Interval I- b- >f Vert Interval , scERRinput ); 

tempD&tHRgn = HewHRgn( b->f Vert Interval ); 

scAutoUnlock h3( tempDstHRgn ); 
dst = (HRgn*)*h3i 

dst- >f Vert Interval - a->£VertInterval ; 
{ 

scAutoUnlock h4{ a->fSlivers ); 
sA « (Sliver *)*h4; 

scAutoUnlock h5( fo->fSlivers ); 
sB « (Sliver *)*h5; 

endA « &sA[a->fNuraSlivers] ; 
endB * S(sBCb->fNumSlivers] ; 

while ( sA < endA S^S: sB < endB ) { 

if ( sA''>fSLTop + a->fOrg.y < sB->fSLTop + b->fOrg.y ) { 

dst->AddSliver( sA->fSLKl + a->fOrg.K, sA->fSLx2 + a->fOre,K, sA->fSLTop + a->fO 

sA++; 

} 

else if ( se->fSLTop + b->fOrg.y < sA->fSLTop -f a->fOrg.y ) { 

dst->AddSliver( sB->fSLKl + b->fOrg,K, sB->fSLK2 + b->fOre,x^ sB->fSLTop + b->fO 

} /* we know y positions are equal */ 

else if ( sA->fSLx2 + a->fOrg.K <« sB->fSLKl + b->fOrg.K ) { 

dst->AddSliver( sA->fSLKl + a">fOrg.K, sA->fSLx2 + a->fOrg,K, sA->fSLTop + a-'>fO 

sA++; 

} 

else if ( sB-'>fSLs2 + fa->fOrg.K <« sA->fSLKl + a->fOrg.K ) { 

dst->AddSliver( sB->fSLsl + b->fOrH.K, sB->fSLK2 + b->fOrH-3r. sB->fSLTop + b->fO 

sB-t-+; 

} 

else { /« f Slivers intersect */ 

yPos * sA->fSLTop + a->fOrg,y; 

if { sA">fSLKl + a->fOrg.K < sB->fSL2sl + b->fOrg.s ) { 
left = sA->fSLxl + a->fOrg,s; 
right * sfi->fSLKl + b->fOrg.x; 

} 

else { 

left « sB->fSLKl + b->fOrg.x; 
riglJt sA->fSLKl + a->fOrg.K; 

} 

// the third case — where the left edges are equal 
/X IS handled implicitly. If AddSiiver() sees xl 
// and k2 which are equal, it will return without 



rg.y ): 
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scAutoUnlock h3( t^RipDstHHgn ); 
dst - (HRen *)*h3; 

dst->f Vert Interval a->fVertInteival ; 
{ 

scAutoUniock h4( a->fSliver© ); 
sh ^ (Sliver *)*h4; 

scAutoUnlock h5( b->f Silvers ); 
sB ^ (Sliver *)*h5; 

endA ^ StsA [ a - > f NumS 1 i vers ] ; 
endB « SsB[b->fHumSlivers] ; 

for ( ; sA < endA; sA+4- ) { 

yPos ^ sA->fSLTop + a">fOrg-y; 

left « sA->fSLKl + a->fOrg.5s; 

ri^ht - sA->fSLs:2 + a-'>fOr0,K; 

for [ i sB < eixdB sE->fSLTop + b->fOrg.y < yPos; sB++ ) 

for ( ; sB < endB &Sc sB->fSLTop + b-'>fOrg.y — yPos £cS< sB->fSLK2 + b->fOre,x <- left 

; sB++ ) 



/» process this sA sliver */ 
for ( flag - 1; flag; ) { we may have to go through 

/* several sB fSlivers. */ 
C3 if ( sB endB 1[ sB->fSLTop b->fOr0.y > yPos || sB->fSLxl + b->fOrg.z >- rig 

m ) { 

tn flaig 0; 

dst->AddSliver( left, right, yPos ); 

> 

else "{ 

if ( sB->fSLxl + b->fOr0*s: > left ) { 

dst->AddSliver( left, sB->fSLsl + b->fOrg-x, yPos ); 

} 

p if ( sB~>fSLs2 + b->farg,x right ) 

„ flag - 0; 

else 

left « sB++->fSLK2 + b->fOrg.s; 

H } 

Id } 

13 dst->fOrigBounds « a->fOrigBounds; 

dst ->UpdateReai Bounds ( ); 

} 

CopyHRgn( dstHRgn, tempDstHRgn ); 

} 

catch (...){ 

DisposeHRgn( tempDstHRgn ); 
throw; 



Di3poseHRgn( tempDstHRgn ); 

} 



/*«***»*»««»«*»«**«*»»***«*««»**»***«*«**»»«««***»«»***»***»«*«*«»«»*******«*/ 

Xor srcHRgnB and srcHRgnA and place result in third region. 
/* If the regions are equal, the destination is set to the empty region. */ 
/* The destination region may be one of the source regions. *y 

void XorHRgn( const HRgnHandle srcHRgnA, 
const HRgnHandle srcHRgnB, 
HRgnHandle dstHRgn ) 

{ 

volatile HRgnHandle tempDstHRgn; 
const HRgn* a; 
const HRgn* b; 
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right = sB->fSLx2 + fa->fOrg.x; 
sB++; 

} 

else 

break; 

} 

dst->MdSliv©r( left, right, yPos ); 

} 

} 



'""^ LtSdds!ive^(^K->kLl . a!>lorg:K!lI-:k.2 . a->fOrg.., sA->fSLTop . a->fOrH.y 
ist>LdsS^i(1r->kLl . b->Srg:K!M-:^SLK2 . h->fOrg.., sB->fSLTop . b->fOrg.y 



} 

scXRect arect( a->fOrigBounds ); 
scXRect brect( b->fOrigBounds ); 
arect .Union ( brect ); 

dst->fOrigBounds - arect; 

dst->UpdateRealBounds( ); 

CopyHRgn( dstHRgn, tempDstHRgn ); 



} 



> 

DisposeHRgn( tempDstHRgn ) 
t]l throw; 



DisposeHRgn( tempDstHRan ); 



^rsubtracrsrcra^ from srcHRgnA and place result f f^^^! A ^^.^^ 

'y4 If the first reeion is empty, the destination is set to the empty region. / 
The destination region may be one of the source regions. 

^id DiffHRgn( const HRgnHemdle srcHRgnA, 
const HRgnHandie srcHRgnB, 
C3 HRgnHandle dstHRgn ) 

m 

volatile HRgnHandle tempDstHRgn; 
const HRgn* a; 
const HRgn* b; 
HRgn* "^st ; 

const Sliver* sA; 
const Sliver* sB; 
const Sliver* endA; 
const Sliver* endB; 
MicroPoint left^ 

right, 

yPos; 

int fl^gi 

raise„if ( srcHRgnA -ON srcHRgnB - Oil dstHRgn - 0, scERRinput ); 
try { 

scAutoUnlock hl( srcHRgnA ); 
a - (HRgn *)»hl; 

scAutoUnlock h2( srcHRgnB ); 
b - (HRgn *)»h2; 

raise„if ( a->fVertInterval 1- b->f Vert Interval, scERRinput ); 
tempDstHRgn - HewHRgn( b->f Vert Interval ); 
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^#g.y J; 



const Sliver* endB; 
MicroPoint left^ 

rights 

yPos: 

raise^if ( srcHRgnA === 0 | j srcHRgnB 0 H dstHRgn 0, scERRinput ); 
try { 

scAutoUnlock hl( srcHRgnA ); 
a « (const HRgn*)*hl; 

scAutoUnlock h2( srcHRgnB ); 
b (coast HRgn »)»h2; 

raise_if ( a- >f Vert Interval !^ fo">f Vert Interval, scERRinput ); 

tempDstHRgn - HewHRgn( b->fVert Interval ); 

scAutoUnlock h3( tempDstHRgn ); 
dst - {HRgn*)»h3; 

dst->f Vert Interval « a ->f Vert Interval; 
{ 

scAutoUnlock h4( a">fSlivers ); 
sA = (const Sliver *)*h4; 

scAutoUnlock h5( b->fSlivers ); 
sB = (const Sliver*)»h5; 

endA ^ ScsA[a->fKumSlivers] ; 
endB - ScsB[b->fNumSlivers] ; 

while ( sA < endA sfi < endB ) { 

if ( sA->fSLTop + a->fOrg.y < sB->fSLTop + b->fOrg.y ) { 

dst->AddSIiver( sA->fSLKi + a->fOrg,x, sA->fSLx2 + d->fOrg.K, sA->fSLTop + 8->f0 

sA++; 

} 

else if ( sB->fSLTop + b->fOrH.y < sA->fSLTop + a->fOrg.y ) { 

dst->AddSliver{ sB~>fSLxl + b->fOrg.K, sB->fSLx2 + b->fOrg.K, sB->fSLTop + b->fO 

sB++; 

} z'* we know y positions are equal «/ 

else if ( sA->fSLK2 + a->fOrg,s < sB->fSLsl + b->fOr0.K ) { 

dst->AddSliver( sA->fSLxl + a->fOrg.K, sA->fSLK2 + a'->fOrg.s. sA->fSLTop + a->fO 

sA++; 

} 

else if ( sB->fSLs2 + b->fOre.K < sA->fSLsl + a->fOrg.K ) { 

dst->AddSliver( sB->fSL23:l + b->fOrg.x, sB->fSLx2 + b->fOrg.K, sB->fSLTop + b->fO 

sB++; 

} 

else { build a sliver until change y-coord */ 

/» or find disjoint sliver 
/» or A's or B's fSlivers end 
yPos » sA->fSLTop + a->fOrg,y; 

left ^ Umi sA">fSLsl + a->£Org,s, sB->£SLxl + b->fOrg.x ); 
right « MAX( sA->fSLK2 + a->fOrg-K, sB->fSLK2 b->fOrg.x ); 
sA++; 
sB+4-; 

for ( ) { 

if ( sA < endA && sA->fSLTop -f- a->fOrg.y ^« yPos && sA->fSLxl + a->fOrg.x <« 

if ( sA->fSLK2 -f a->fOrg.x > right ) 

right - sA->fSLx2 + a">fOrg.s; 
sA++; 

} 

else if ( sB < endB sB->fSLTop + b->fOr^,y yPos sB->fSLKl + b-'>fOrg 



right ) { 



.X right ) { 



if ( sB->£SLs:2 + b->fOrg.s > right ) 
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b->fHuffiSlivers 0 t I 

a->fMaxBounds.Ki >- b->fMaxBoiinds.K2 \\ 
b->fMaKBounds.xl >- a->£MaKBounds j| 
a">fMasBounds.yl >- fo->fMaxBounds,y2 it 
b->fMaxBounds.yl a->fMa2£Bounds.y2 ) { 

} 

©Is© ^ 

scAutoUnlock h4{ a->fSlivers ); 
sA = (const Sliver*)*h4; 

scAutoUniock h5( b->fSlivers ); 
sB ^ (const Sliver»)*h5; 

endA « ScsA[a->fHumSlivers] ; 
endB - &sBtb->fHumSlivers3 ; 

while ( sA < endA S=£c sB < endB ) { 

if ( sA->fSLTop + a->£0r3.y < sB->fSLTop ^ b->fOrg.y ) 
sA++; 

else if ( sB->fSLTop + b->fOrg.y < sA->£SLTop + a->fOre,y ) 
sB++; 

else if ( sA->fSLK2 + a->fOrg.x <- sB->fSLKl + b">fOrg.K ) 

else if ( sB->fSLK2 + b->fOrg.x <« sA->fSLHl + a->fOrg.x ) 
sB++; 

el^e { /* f Slivers intersect */ 

dst->AddSliver( MAX( sA->fSLKl + a->fOrg.x, sB->fSLKl + ^->^9^0-^ - ^ ^^^^^ 

Um{ sA->fSLx2 + a">fOrg.K, sB->fSLK2 + b->fOrg.x ), sA->fSLTcip 



id a->fOrg.y ): 



if { sA->fSLK2 + a->fOrg.x < sB->fSLK2 + b->fOrg.s: ) 
SA+-I-; 

else 

sB++; 



} 



} 



scXRect arect{ a->fOrieBounds ); 
scXRect brect( b->fOrigBounds ); 
arect. Intersect ( brect ); 

dst->fOrigBounds ^ arect; 

dst->UpdateRealBounds ( ) ; 

CopyHRgn( dstHRgn, tempDstHRgn ); 



catch (,..){ 

DisposeHRen( tempDstHRgn ); 
throw; 

} 

DisposeHRgn( tempDstHRgn ); 



/********«******«»«*»»**«»•**«*******«******»**•************ 

/» Calculate the union of the two regions and place result in third region */ 
/» If both regions aire empty, the destination is set to the empty region. */ 
The destination region may be one of the source regions. 

void UnionHRgn( const HRgnHandle srcHRgnA, 
const HRgnHandle srcHRgnB, 
HRgnHandle dstHRgn ) 

^ volatile HRgnHandle tempDstHRgn; 



const HRgn* a; 

const HRgn* b; 

HRgn* dst; 

const Sliver* sA; 

const Sliver* sB; 

const Sliver* endA; 
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Sliver* s; 
int i ; 

if( x2 <- si ) 
return; 



fSlivers - MEMResi2aHnd( fSlivers, MEMGetSiseHnd ( fSlivers ) + sliver^growSize » siseof{ SI 

iver ) 3 ; 

fMaxSlivers sliver_growSi2e; 

} 

UpdateBounds ( k1, y ); 

5sl -« £Org.x; 
^2 fOrg.yi 
y fOrg.y; 

scAutoUnlock hl( fSlivers ); 
s (Sliver *)*hl; 

i « f IsIumSl ivers - 1; ^ - . 

for { ; 0 <« i &£c ( sIi].fSLTop > y |i s[i].fSLTap - y s[i].fSLKl > k1 ); ) 

i++; 

if ( i < fHumSlivers ) . . . ^r.-. • ^ x 

SCjaeinmove( te[i+l], &s[i], (long)( fNumSIivers - i ) * sizeof{ Sliver ) ); 

.,3 (£ts[i])-'>SetSliver( k1, k2, y ); 
fNumSlivers+-*-; 



''"/»**«**«»********»*«***»*»***»*»*****»»**»*** 

Calculate the intersection of the two regions eLiid ]^lac& result *^ 
^4^* in third region. If the regions have no intersection^ or one 
fT* of the regions is empty, the destination is set to the empty region. 

The destination region may foe one of the source regions. 

i%oid SectHRgn( const HRgnHandle srcHRgnA, 
const HRgnHandle srcHRgnB, 
HRgnHandle dstHRgn ) 



*/ 



1? 



volatile HRgnHandle tempDstHRgn; 
const HRgn* a; 
const HRgn* b; 
HRgn* dst; 
const Sliver* sA; 
const Sliver* sB; 
const Sliver* endA; 
const Sliver* endB; 

raise„if ( srcHRgnA 0 | | srcHRgnB 0 M dstHRgn 0. scERRinput ); 
try { 

scAutoUnlock hl( srcHRgnA ); 
a « (const HRen*)*hl; 

scAutoUnlock h2(srcHRgnB ); 
b - (const HRgn*)*h2; 

raise^if ( a->fVert Interval 1= b->fVertInterval . scERRinput ); 

tempDstHRgn * NewHRgn( b->f Vert Interval ); 

scAutoUnlock h3( tempDstHRgn ); 
dst - (HRgn *)*h3i 

dst->fVertInterval * a->fVertInterval ; 

if ( a-> fHumSlivers 0 II 
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void HR^n; :UpdateBounds( MicroPoint xl, 

MicroPoiat 
MicroPoint y ) 

{ 

if ( fMumSlivers === 0 ) 

fMaKBounds.Set( si, y, y + fVertlnterval ); 
else { 
#i£ 1 

scXRect urec:t( xl, y, x2, y + fVertlntervai ); 
fMaxBounds, Union { urect ); 



#else 



MicroPoint diff - x2 - r->fMaKBounds .xl - r->fMaxBounds .Width ( ) 
if { 01 < diff ) 

r->fMaxBounds.K2 diff; 



diff = r->fMaKBounds,Kl - xl; 
if ( OL < diff ) { 

r->fMaxBounds,Kl diff; 

r->fMaxBounds.x2 diff; 

} 



diff = y + r->fVertInteival - r->fMaxBounds .yl - r->fMaxBounds .Depth () 
if ( OL < diff ) 

r->fMaKBounds.y2 diff; 

diff r->fMaxBounds.yl - y; 
if ( OL < diff ) { 

r->fMaxBounds.yl diff; 
r->fMaxBounds.y2 diff; 

} 

:#eiidif 

y } 

y* Make sure the original bounds have not gotten out of sync with the */ 
"/* current shape of the region. 

=^id HRgn: :UpdateRealBounds( ) 

^ MicroPoint left » f OrigBounds.xl; 

MicroPoint top ^ fOrigBounds .yl; 

MicroPoint right « fOrigBounds .x2; 

MicroPoint bottom ^ fOrigBounds, y2; 

MicroPoint slvSize - fVertlnterval ; 

if ( left !« fMaxBounds.xl } 
left « fMaxBounds.xi; 

if ( top < fMaxBounds.yl \\ top + slvSize > fMaxBounds .yl ) 
top * fMaKBousds.yl; 

if ( right fMaxBounds .x2 ) 
right * fMaxBounds .k2; 

if ( bottom > fMaxBounds .y2 |1 bottom + slvSize < fMaxBounds .y2 ) 
bottom = fMaxBounds. y2; 

fOrigBounds,Set( left, top, right, bottom ); 

} 



/» Update the region by adding the given sliver. 
/* If horizontal coordinates are not possible, AddSliver */ 
takes no action, and returns scSuccess. */ 

void HRgn: : AddSliver ( MicroPoint xl, 

MicroPoint x2, 
MicroPoint y ) 
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newMaK = r->fMumS livers + sliver^growSize - ( r->fHumS livers X siiver„growSize )\ 

r->fSlivsrs - MEMResiz©Hnd( r->fSlivers, Be^wMaK * si2eo£( Sliver ) ); 
r->fMasSlivers « newMax; 

} 

scAutoUnlock h2( r->fSlivers ); 
sliverPtr « (Sliver»)*h2; 

endSliver ^ £tsliverPtr[r->£HutRSlivers3 ; 

for ( ; SliverPtr < endSliver; top r->fVertIntervai . sliverPtr++ ) 
sliverPtr->SetSXiver( left, right, top ); 



/» Move the region, unchanged, a ^iBt&.nc^ of dx horizontally and */ 
/* dy vertically on the coordinate plane. *^ 

void TranslateHRgn( HRgnHandle rgnH, 
MicroPoint dK, 
MicroPoint dy ) 



{ 



scMtoUnlock hl( rgnH ); 
HRgn* r - (HRgn*)»hl; 

dy - PointMassage( dy, r->f Vert Interval ); 

r-> f Org .Translate ( dx, dy ); 
r->fMaxBounds -Translate ( dx, dy ); 
r">fOrigBounds .Translate { dx, dy ); 



ly* fedo the bounds of the region by rnnnins through the fSlivers. »/ 
''4/oid HRgn: :SetBounds( } 

Sliver* s; 

l^. Sliver* end; 

MicroPoint left, 

'■J right, 

\A top, 

Y'^ bottom; 

Ca if ( fNumSlivers 0 ) { 

fMaxBounds.Set( 0, 0, 0, 0 ); 
'^'^ return; 
} 

scAutoUnlock hl( fSlivers ); 
s ^ (Sliver»)*hl; 
end = ScS [ f NumS livers 3 > 

left - s->fSLxl; 
right - s->fSLx2; 
top ^ bottom ^ s->fSLTop; 

for ( S++; s < end; s+4- ) { 

left - MINC s->£SLxl, left ); 
right ^ MAX( s->fSLx2, right ); 
bottom « MftX( S'->fSLTop, bottom ); 

} 

fMaxBounds.Set( left, top, right, bottom + fVertlnterval ); 
iEl^xBounds. Translate ( fOrg ); 



/*»»«,«»»«»*»«»*»««*****»««*»««»»»*««*«»»««»«»*«***»»»^**»********^ 

/* Update the bounds of the region with the new sliver coordinates. */ 
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dst-> fMaiKBounds 
dst->fOrg 

ds t - > f Vert I n t erva 1 
ds t - > f HumS 1 i v^rs 



= src -> f Ma K Bounds; 

» src->fOrg; 

^ src->fVertInterval; 
^ src->f^umS livers; 



scAutoUnlock h3( dst->fSiivers ); 
to « (Sliver*)*h3; 

scAutoUnlock h4( src*>fSlivers }; 
from = (Sliver*)*h4; 

SCmeiamove( to, from, src->fMumSlivers * sizeofC Sliver ) ); 



/* Destroy previous structure of region and set it to the rectangle */ 
/* defined by (0,0) (0.0). */ 

void SetEmptyHRgn ( HR^nHandle rgnH ) 
{ 

HRgn* r; 

scAutoUnlock h( rgnH ); 
r ^ (HRgn*)»h; 

f3 r->fSlivers MEMResizeHnd( r">fSlivers, sliver^growSize * si2eof( Sliver ) )j 

U r->£OrigBounds.Set( 0, 0. 0, 0 ); 
tn r->£MdKBounds.Set( 0, 0, 0. 0 ); 

r->fOrg,Set( 0, 0 ); 

|;J r->f Hums livers - 0; 

^4 r->fMaKSlivers » sliver_growSize; 

A 

r7f D&stroy previous structure of region and set it to the rectangle */ 
defined by rec. */ 

Moid RectHRgn( HRgnHandle rgnH, 
const scXRectSs rec ) 



HRgn* r; 

SI iver* si i verPtr ; 

Sliver* endSliver; 

MicroPoint left; 

MicroPoint right; 

MicroPoint top; 

int newMas; 

scAutoUnlock hl{ rgnH ); 
r - (HRgn«)*hl; 

r->fOrigBounds = rec; 

r->fMaKBounds.Kl = left = recKl; 

r->fMa2tBounds.yl « top « Massage( rec. yl, r-> f Vert Int eiva 1 , -1 ); 

r->fMaxBounds.K2 « right « rec.x2; 

r->fMaxBounds.y2 « Massage( rec.y2, r->fVertIntervai , 1 ); 

r->fOrg.x - 0; 

r->fOrg.y = 0; 

/* guaranteed no remainder 
r->fNumSlivers ^ {int)( r->fMaKBounds.Depth() / r->fVert Interval ); 



if ( r->fMa^Slivers < r->fNumS livers ) { 
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{ 

#endif 

HRgnHandie rgnH; 
HRgn* r; 

#if defined { MEMJEBUG ) 

rgziH - (HRgiiHand2^)MEM^lIocHndDebu0{ si2eof( HRgn ), fa. line ); 
#else 

rgnH « (HRgnHandl©)MEMAllocHnd ( si2eof( HRgn ) ); 
#endif 

scAutoUnlock h( rgnH ); 

r->fOrigBounds.Set( 0, 0, 0^ 0 ); 
r->fMaKBounds.Set( 0, 0, 0, 0 ); 

r->fOrg,Set( 0, 0 ); 

r->fVertInteryal - theSliverSise; 

r-->fN\imS livers - 0; 

r->fMaKS livers = sliver_growSize; 

#if defined ( MEM„DEBUG ) 

r->fSlivers MEMlIocHndDebug( sliver^growSize * si2eof( Sliver ), fn, line ); 
#else 

r->fSlivers « MEMAllocHnd( sliver_growSise * sizeof( Sliver ) ); 
#end if 

return rgnH; 

In 

dispose of a region */ 
^id DisposeHRgn( HRgnHandie rgnH ) 

HI 

HRgn* r « (HRgn*)scMemDeref ( rgnH ); 
M£MFreeHnd( r->f Slivers ); 
;i MEMFreeHnd( rgnH ); 

i 

copy source region to destination region. Space must already be */ 
%^ allocated for destination region. */ 

void CopyHRgn( HRgnHandie dstRgn, 
canst HRgnHandie srcRgn ) 



{ 



HRgn* dst; 
Sliver* to; 
const HRgn* src; 
const Sliver* from; 
int diff; 

raise^if ( ( dstRgn 0 ) [| ( srcRgn 0 ), scERRinput ); 

scAutoUnlock hl( srcRgn ); 
src ^ (HRgn*)*hi; 

scAutoUnlock h2( dstRgn ); 
dst « (HRgn*)*h2; 

diff ^ src->fMaxSlivers - dst-- >fMasS livers; 

dst '->f Slivers ^ MEMResizeHnd( dst*>f Slivers, (u 1 ong ) src- >fMdsS livers * sizeof (Sliver) ); 
dst- >fMaKSli vers diff; 
dst->fOrigBounds src->fOrigBounds; 
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/* dealing with th^ top edge; if it is 1, the bottom edge. */ 
/* Err on the side of making region larger. */ 

typedef enum eEdgeModes { 

eXopEdge 

eEottoiuEdge 
} eEdgeMode; 

static MicroPoint Massage ( MicroPoint pos, 

MicroPoint size^ 
int mode ) 



{ 



MicroPoint rem; 

if ( ( rem « ABS( pos % sise ) ) 0 ) { 

/* take abs hBC^use sign of result of X is machine dependent. »/ 
if ( pos < 0 ) { /« negative y-coordinate »/ 

if ( mode < 0 ) top edge »/ 

return { pos - ( size - rem ) ); 
else /* bottom edge */ 

return ( pos + rem ) ; 

} 

else { /« positive y-coordinate */ 

if ( mode < 0 ) top edge */ 

return ( pos - rem ) ; 
else bottom edge */ 

return ( pos -f- size rem ); 

} 

} 

else /* no remainder */ 

return pos; 



Like Massage, but simpler, since it is used for offset points, */ 
yf^ and we don't have to worry about which edge we are looking at. »/ 

^atic MicroPoint PointMassage ( MicroPoint ypt, 
i-- MicroPoint size ) 

¥ 

MicroPoint rem; 

\A /» take abs because sign of result of % is machine dependent, »/ 

.1 if ( ypt ) { 

3^ rem - ABS( ypt % size ); 

if ( rem <= ( size/2 ) ) { 
% if C ypt < 0 ) 

'-^ ypt +- rem; 

else 

ypt rem; 

} 

else { 

if ( ypt < 0) 

ypt size - rem; 
else 

ypt size - rem; 

} 

} 

return ypt; 



/* Allocate space for a region and initialize everything to zero. */ 
#if SCDEBUG > 1 

UR^xiHo-ndlB NewHRgnDebug ( MicroPoint theSliverSize, 

const char* fn, 
int line ) 

{ 

#else 

HRgnHandle NewHRgn( MicroPoint theSliverSize ) 
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File: SCREGIOH.C 



SHaader: /Projects/Toolbox/ct/SCREGION.CPP 3 5/30/97 8:45a Wmanis $ 
Contains: HiRes region implementation. 
Written by: Lucas 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, M, 
All rights reser^/ed. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



#include "scbezier.h" 
#include "scmem.h" 
#include "scfileio.h" 
#include *'scregion.h" 
^include <limits.h> 

|§iefine edge_growSize 64 

V'lt*********************************************************************** 
f^«««««»«««#«««««««««««« REGION »««**«««*«««««»««««««*«**««««**»»«*«««*«*«*/ 



^'b|:ruct HEdge { 




/* 


used in 


scan line conversion 


*/ 


f2 MicroPoint 


yu 


/* 


y-coord 


of first vertex 


*/ 


MicroPoint 


y2; 


/» 


y-coord 


of second vertex 


»/ 


f_ MicroPoint 


Kl; 


/* 


x-coord 


of first vertex 


*/ 


C3 MicroPoint 




/* 


current 


K-coord (moving along edge) 


*/ 


MicroPoint 


dx; 










, .1 MicroPoint 


dy; 











l^pedef scMemHandle HEdgeHandle; 



/* LOCAL PROTOTYPES */ 

static MicroPoint Massage ( MicroPoint, MicroPoint, int ); 



static void 
static void 
static void 
static void 
static void 

static void 



PlainInsetHRgn( HRgnHandle, MicroPoint, MicroPoint ); 
XGrowHRgn{ HRgnHandle, MicroPoint ); 
XShrinkHRgn( HRgnHandle, MicroPoint ); 
YGrowHRgn( HRgnHandle, MicroPoint ); 
VShrinkHRgn( HRgnHandle, MicroPoint ); 

ConstructEdge ( const scVertex*, 
HEdgeHandle*, 
int*, 

MicroPoint* ) ; 



static int 



Remlnactive( HEdge*, MicroPoint, int ); 



/» Relocate top or bottom edge of an enclosing rectangle so that its */ 
/* y-position is evenly divisible by siiver„si2e. If mode is -1, we are */ 
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int fMaKS livers; // space exists for this many slivers 

scMeitiHandle f Slivers; 

}; 

/* PROTOTYPES *y 

#if SCDEBUG > 1 

HRgnHandle NewHRgnDebug ( MicroPoint, const char*, int j; 

#define NewHRsn( mp ) NewHRgnDebug ( (mp), ^FILE ^ LIlsTE ) 

#else 

HRgnHandle HewHRgnC MicroPoint ); 
#endif 



void DisposeHRgn( HRgnHandle ); 

Bool EuiptyHRgn( BRsnH^ndle ); 

Bool EqualHRgn( const HRgnHandle* const HRgnHandle ); 

Bool PtInHRgn{ const HRgnHandle, const scMuPointSc ); 

void RectHRgn( HRgnHandle, const scXRect£< ); 

void PolyHRgn( HRgnHandle* const scVerte:^* ); 

void CopyHRgn( HRgnHandle, const HRgnHandle ); 

void SectHRgn( const HRgnHandle, const HRgnHandle, HRgnHandle ); 

void UnionHRgn( const HRgnHandle, const HRgnHandle, HRgnHandle ); 

void DiffHRgn( const HJ^nHandle, const HRgnHandle, HRgnHandle ); 

void XorHRgn( const HRgnHandle, const HRgnHandle, HRgnHandle ); 

void Trans lateHRgn( HRgnHandle, MicroPoint, MicroPoint ); 

void InsetHRgn( HRgnHandle, MicroPoint, MicroPoint, Bool ); 

l&iid SetEmptyHRgn ( HRgnHandle ); 

jfecroPoint RGNSliverSise{ const HRgnHandle ); 

^ol RectlnHRgn ( const HRgnHandle, const scXRectSc ); 

'rz '■ • 
r : z 

Sv^B RGKIEKternalSize( const HRgnHandle, long ); 

Mfid RGMGetExtents ( const HRgnHandle, scXRectSe ); 

li.croPoint RG^MaxDepth( const HRgnHandle ); 

Blsol R(IWtoFile{ APPCtsPtr, lOFuncPtr, HRgnHandle, mt ); 

fSgnHandle RGHFromFileC APPCtsPtr, lOFuncPtr, int ); 

eftf SCDEBUG > 0 

^hid RGNZ n verts li vers ( const HRgnHandle, 

H APPDrwCtx, 

p HiliteFuncPtr, 

const scSiseSi, 

int vertf low ) ; 

#endif 



#endif 
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File; SCREGIOH.H 



SHeader: >^roj©cts/roolbox/ct/SCREGION.H 3 5/30/97 8:45a Wmanis $ 
Contains: HiRes region definition. 
Written by: Manis 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

#ifndef _H„SCREGIOKf 
#defzne _H_SCREGION 

#include "sctypes.h" 



■l^efine sliver^growSise 

Mefine HRgnSi2e( n ) 

iy:ruct Sliver { 

MicroPoint fSLxl, 
fSLK2; 

•-^ MicroPoint fSLTop; 



64 



( (long) (si2eof(HRgn)+C (n)*si2eof (Sliver) ) ) ) 



// horizontal extants of sliver 
// top of sliver 



void 

c& 

.;isiruct HEdge; 

Idlass HRgn { 
.^blic: 
^5 void 

void 

void 

void 

Bool 

void 
void 



SetSliver( MicroPoint a^ MicroPoint b, MicroPoint c ) 
{ fSLKi - a, fSLK2 = b, fSLTop - c; } 



SetBounds ( void ) ; 

UpdateBounds ( MicroPoint^ MicroPoint, MicroPoint ); 
UpdateRea 1 Bounds ( void ); 

AddSlxver( MicroPoint, MicroPoint, MicroPoint ); 
IsBorder( int, int ); 

CorpSliver( Sliver**, MicroPoint, MicroPoint, MicroPoint ); 

InsertSliver( MicroPoint, MicroPoint, MicroPoint, 
Sliver**, int, int ); 



void 



ScanEdges( HEdge*, long, int ); 



MicroPoint FirstLinePos ( MicroPoint 

MicroPoint 



f irstLinePos, 
leading ); 



void 

long 
scXRect 
scXRect 
scMuPoint 

MicroPoint 
int 



SectRect( scXRect&, MicroPoint, MicroPoint, MicroPoint); 



fVersion; 
f OrigBounds ; 
fMaxBounds ; 
fOrg; 

fVertlnterval; 
fNumSlivers; 



// the original bounds of the region 

// mas: bounds of region 

// locations of slivers are with 

// respect to this point 

// vertical size of slivers 
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void scRubxData: :TransOf fsets( long offset ) 
{ 

fStartOffset offset; 
fEndOffset offset; 

} 
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scRubiData; :scRubiData( const UCS2 *ch^ long start, long end, TypeSpec ts ) 
{ 

int len - MIM( CharacterBufLen ( ch 16 ); 

memcfpy( fCh, ch, len * sizeofC UCS2 ) ); 
EChlUn] = 0; 

fStartOFfset start; 
fEndOffset = end; 

FRubiSpec ^ ts; 

£Org.Set( 0. 0 ); 
fEKtents.Set( 0, 0, 0, 0 ); 

} 

void scRubiData: :Read( APPCtsPtr ctxPtr, 

lOFuncPtr readFunc ) 

{ 

char buf [kRubiDataSxzeZ]; 

int readin = (*readFunc)( ctstPtr, buf* 4 ); 

// this nonsense is to fis a bug int the original i/o and to 
// try and maintain fill cosipatabiixty 
if ( *{long«)buf kRubiMagic ) { 

int readin - (*readFuao)( ctxPtr, buf + 4, sizeofC buf ) - 4 ); 

::ineincpy( fCh, buf + 4, 16 » sizeof{ UCS2 ) ); 
11 fCh[16] - 0; 

fStartOffset « *(long *)( buf 36 ) ; 
IZ fEndOffset « *(long *) ( buf + 40 ); 

W fRubiSpec « {TypeSpec)*(long ») ( buf + 44 ); 

& long diskid * APPPointerToDiskID( ctsPtr, 

•/Y (*this) [i] .spec() .ptr() , 

"^/z diskidTypespec ); 

} 

f"i else { 

''"^ int readm « (»readFunc) ( ctKPtr, buf + 4, kRubiDataSize - 4 ); 

C3 ::m©mcpy( fCh, buf, 8 * sizeof( UCS2 ) ); 

fCht8] - 0; 

. 1 fStartOffset = *(long *)( buf + 16 ); 

fEndOffset « *{long «)( buf + 20 ) ; 

W fRubiSpec « (TypeSpec)* (long *) ( buf + 24 ) ; 

S ^ 

void scRubiData: :PtrRestore( void ) 
{ 

fRubiSpec « (TypeSpec )APPDiskIDToPointer( (ulong) fRubiSpec ); 

} 

void scRubiData: :Write( APPCtKPtr ctKPtr, 

lOFuncPtr writeFunc ) 

{ 

char buf [kRubiDataSize2] ; 

*(long *}buf ^ kRubiMagic; 

memcpy( buf + 4, fCh, 16 * sizeof( UCS2 ) j; 

*(long *)( buf + 36 ) - fStartOffset; 
»(iong »)( buf + 40 ) ^ fEndOffset; 
// *(long *)( buf + 44 ) - (ulong )APPPointerToDisk ID { fRubiSpec ); 

int written * (*writeFunc) ( ctxPtr, buf, sizeof( buf ) ); 

} 
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void scRubiArray; :DeieteRubiData( long offset ) 
{ 

int indaK; 
scRubiData rd; 

index = FirstSuccess ( is_rubi_at^ offset, offset ); 

if ( index >« 0 ) 

RemoveDataAt ( index ); 

} 

// delete rubi data between the indicated offsets 

void scRub 1 Array :: Dele teRubi Data ( long start, long end ) 
{ 

int index; 

while ( ( index = FirstSuccess ( is„rubi_at, start , end ) ) G ) { 
RemoveDataAt ( index ); 

} 

Bu2npRubiData( end, start ^ end ); 

} 

Static void readrubidata ( ElementPtr ptr, long ctxPtr, long readFunc ) 
^ ({scRubiData *)ptr) ->Read ( (APPCtxPtr)ctxPtr, (lOFuncPtr) readFunc ); 

f#sid scRub i Array :; Read ( APPCtxPtr ctxPtr, 

,1 lOFuncPtr readFunc, 

mt numToRead ) 

"■'4 GrowSiots( numXotead ); 
rl fHviml terns = numXoRead; 

Z.^^ DoForEach( readrubidata, (long)ctxPtr, (long) readFunc ); 

1"*^ static void writerubidata( ElementPtr ptr, long ctxPtr, long writeFunc ) 

IX ^ {(scRubiData «)ptr) ->Write ( (APPCtxPtr )ctxPtr, (lOFuncPtr)writeFunc ) 

U } 

void scRubiArray: : Write ( APPCtxPtr ctxPtr, 

lOFuncPtr writeFunc ) 

{ 

DoForEach( writerubidata, (long)ctKPtr, (long)writeFunc ); 

} 

Static void ptrrestorerubidata ( ElesaientPtr ptr ) 
{ 

( (scRubiData «)ptr)->PtrRestore () ; 

} 



void scRubiArray: :PtrRestore( ) 
{ 

DoForEach ( ptrrestorerubidata ] ; 

} 
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extern "C" { 

static int scCDecl rubi„sort( const void const void *p2 ) 

{ 

scRufoiDataSc rdl « *(scRubiData *)pX; 
scRubiDataS: rd2 ^ *(scRubiData *)p2; 

retuam (int) (rdl .fStartOf fset - rd2 . fStartOf fset) ; 

} 

} 

// add rubi data and sort the data 

Bool scRubiArray: :AddRubiData( scRubiDataS rd ) 
{ 

if ( IsRubiData( rd . fStartOf fset> rd . fEndOf fset ) ) 
return false; 

AppendData( (ElementPtr)&rd ); 
Quicksort ( rubi„sort ); 
return true; 

} 

Bool ScRubiArray: :GetRubiAt( scRubiDataS* rd, long offset ) 
{ 

long index; 
int nth; 

for ( nth - 1; ( index - HthSuccess( is„rubi„at, nth, offset, offset ) ) >« 0; ntlx++ ) { 
li GetDataAt( {int)inde:^, (EleffientPtr)Sird ); 

^} if ( offset > rd-fStartOffset offset < rd . fEndOf fset ) 

fy return true; 

return false; 

Spol scRubiArray: :GetNthRubi ( intSt inden, scRubiDataSc rubiData, int nth* long start, long end ) 

^•J index « (int)NthSuc:cess ( is_rubi„at^ nth, start, end ); 

Y'f' if ( index < 0 ) 
return false; 

GetDataAt( index, (El ementPtr) Scrub i Data ); 

return true; 

} 

yy place the rubi array into the existing rubi array at the 
// indicated offset with it covering the number of chars 
// indicated 

void scRubiArray: : Paste ( const scRubiArraySc ra, long offset, int size ) 
{ 

scRutaiData rd; 
int i; 

BumpRubiData{ offset, size ); 

for ( i * 0; i < ra .GetKumltemsO ; i++ ) { 
ra.GetDataAt( i, CElementPtr)£crd ); 
rd,TransOffsets{ offset ); 
AddRubiData( rd ); 

} 

} 

delete rubi data at the offset 
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return kRubiDataSx2e2 * GetHumltemsO ; 

} 

// is there an annotation at this location 

static Bool is„rubi_atC const ElementPtr ptr, long start, long end ) 
{ 

scRubiDataSt rd (scRubiDataSc)»ptr; 

scRange rl( rd. fStartOf fset , rd - f EndOf f set ); 

scRange r2( start, end ); 

return rl .EKclusive^Sect ( r2 ); 

} 

Bool scRubiArray ; :IsRubiData( long start, long end ) 
{ 

return FirstSuccess ( is_rubi„at, start, end ) >« 0; 

} 

// i£ the offset is at a border we will not return true 

Bool scRubiArray ; :IsRubiData( long offset ) 
{ 

long index; 
int nth; 
scRubiData rd; 

[3 for ( nth « 1; ( index «= NthSuccess{ is„rubi_at, nth, offset, offset ) ) 0; nth++ ) { 

GetDataAt( {int)indes, (ElementPtr) &rd ); 
Vz if { offset > rd . f StartOf f set offset < rd ,fEndOf fset ) 

^•^ return true; 

ru } 

il return false; 

i 

}^ as we edit tent change the annotations 

s 

C3 static void buinp„rubi_dataC ElementPtr ptr, long start, long amount ) 
i 

I A scRubiDataSc rd * (scRubiDataSc)*ptr; 

1=^ if ( start <- rd.fStartOffset ) 

fj rd .TransO££sets( amount ); 

C3 ^ 

void scRubiArray: :BumpRubi Data { long start, long amount ) 
{ 

DoForEach( bump„rubi_data, (long) start, amount ); 

} 

// apply the style to the rubidata found within the bounds 

void scRubiArray; :ApplyStyle( long start, long end, TypeSpec ts ) 
{ 

scRubiData rd; 
long index; 
int nth; 

for ( nth - 1; ( index = NthSuccess( is_rubi_at, nth, start, end ) ) >- 0; nth++ ) { 
GetDataAt{ (int)indeK, (EleznentPtr)£*rd ); 
if ( rd.fStartOffset >^ start rd.fStartOffset < end ) { 
rd.fRubiSpec « ts; 

AlterDataAt( (int)indeK, (£leiaentPtr)S!rd ); 

} 

} 

} 
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File: crubi.c 

$Header: /Proj ects/Too Ibos/ct /scrub i .cpp 2 5/30/97 8; 45a Wmanis 5 
Contains: Impelmentation of rubi storarge. 
Written by: Man is 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition ToolboK software is the proprietary 
and confidential property of Stonehand Inc. 

#include "scrange.h" 
^include '*sccallbk .h" 
#include "scrubi.h" 
#include "scannota . h " 
4^includ^ "sctbobj.h" 

#define kRubiMagic Oslalalala 

.1 // for writing out rubi data - str + start + end + spec 
d^efine kRubiDataSize ( 16 + 4 + 4 + 4 ) 

fU // for writing out rubi data - magic -f str + start + end + spec 
ypefine kRubiDataSize 2 (4 + 32+4+4 + 4) 

m>id scAnnotation: :Set( UCS2 *ch, int paraoffset, int start, int end ) 

J 

memcpy( fCharStr, ch, 34 ); 
P fAnnotate ^ fCharStr[0] 0; 

"J fParaOffset - paraoffset; 
I J fStartOffset = start; 

fEndOffset = end; 



scRubiArray: :scRubiArray( ) 

: scMemArray( sizeof( scRubiData ) ) 

{ 
} 

scRubiArray: : "scRubiArray {) 

{ 

} 

scRubiArrayS: scRubiArray operator^ ( const scRubiArray& ra ) 
{ 

scMemArray :; opera tor = ( ra ); 
return »this; 

} 

long scRubiArray External Size ( void ) 

{ 
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void ApplyStyle( long start, long end, TypeSpec ts ); 

// add rubi dsita 
Bool AddRubiData( scRubiDataSi ); 

// delete rubi data 
void DeieteRufoiData( long ); 

// delete rubi data between the indicated offsets 
void DeleteRubiDataC long, long ); 

scRubiArraySs operator* ( const scRubiArraySi ) ; 

long EstemalSi2e( void ); 

void Read( APPCtxPtr, lOFuncPtr, int nmnread ); 

void PtrRestore( void ); 

void Write { APPCtxPtr, lOFuncPtr ); 



#endif 
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File: crubi .h 



SHeader: /Projects/Toolbox/ct/scrubi .h 2 5/30/97 8; 45a toanis $ 
Contains: rubi data 
Written by: Manis 

Copyright (c) 1989-34 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition ToolboK software is the proprietary 
and confidential property of Stonehand Inc. 

#ifndef ^H^CHUBI 
#define Ji^OWBl 

#xnclude "scKiemarr.h" 



struct scRubiData { 



UCS2 
long 
long 

scMuPoint 
MicroPoint 
scXRect 
TypeSpec 



fCh[18]; 
fStartOffset; 
fEndOffset; 
fOrg; 

f LetterSpace 
f Extents; 
fRubiSpec; 



// the rubi characters, NULL terminated 

start offset in stream 
// end offset in stream 
// drawing origin 

letterspace for justification 

eKtents of chars 
// spec of rubi 



scRubiData(){} 

scRithiD^ta.( const UCS2 *, long, long, TypeSpec ); 
void TransOffsets( long ); 



void 
"4 void 
void 



J] 



Read( APPCtxPtr, lOFuncPtr ); 

PtrRestore( void ) ; 

Write ( APPCtxPtr, lOFuncPtr )j 



class scRubiArray : public scMemArray { 
public; 

scRubiArray ( ); 
■^scRubiArrayC); 



Bool 
Bool 



Bool 
Bool 



void 



void 



yy is there an annotation at this location 
IsRubiData( long ); 
IsRubiData( long, long ); 

/'/^ get the nth rubi data that occur between the 

// specified offset setting its position and the rubidata 

GetRubiAt{ scRubxData&, long ); 

GetHthRubi ( int&, scRubiDataSc, int, long, long ); 

as we edit text change the annotations 
BumpRubiDataf long, long ); 

place the rubiarray into the existing rubi array at the 
indica,t0d offset with it covering the number of chars 
// indicated 

Paste ( const scRubi Arrays., long offset, int size ); 

// apply the style to the rubidata found within the bounds 
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setmax ==0; 
break ; 

case eNextLme: 

setmaK « 0; 
break; 

case eStartLine; 
StartLineO ; 
break ; 

case eEndLine: 
EndLlneO ; 
break ; 

case ePrevPara: 
case eMextPara: 
case eFirstPara: 
case eLastPara: 

Para{ moveSelect ); 

break; 

case eBeginPara; 

BeginParaO ; 

break ; 
case eEndPara: 

EndPara ( ) ; 

break; 

case ePrevEntireColumn: 

PrevCol umn{) ; 

break; 
case eNeKtEntireColuHfin: 

NeKtColuiim( ) ; 

break; 

case eBeginColumn: 

StartColumn( ); 

break; 
case eEndColumn; 

EndColumnO; 

break; 

case eStartStream: 

fMark -SelectStartStream ( ) ; 
fPoint .SelectStartStream() ; 
break ; 

case eEndStream: 

fMark .SalectEndStreamO ; 
fPoint .SelectEndStreeja() ; 
break; 

default: 

SCDebugBreak ( ) ; 
break; 

} 

fMark.UpdateInfci( setmaK ); 
fPoint .UpdateInfo( setmax ); 



void scSelectiou: :HthPara( scStream* stream, 
^ ione ntbPara ) 

scContUait* p * stream- >NthPara ( nthPara ); 

if { p ) 

SetParaSelection( p. 0, p*>GetContentSi2e{) }; 
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case eFirstPara: 

f Point .SelectStartStreamO ^ 
break ; 

case eLastPara: 

fPoint .SelectEndStream{ ) ; 
break; 

case eStartStream: 

fPoint.SelectStartStreamO ; 
break; 

case eEndStream: 

fPoint .SelectEiidStream{ ) ; 
break; 

case ePrevEntireColumn: 
case ©HeKtEntireColuffln: 

default: 

SCDebugBreakO ; 
break ; 

} 

fMark.UpdateInfo( setmax ); 
fPoint .UpdatelBfo{ setmax ); 



y^id scSelection: :MoveSelect( eSelectMove moveSelect ) 

tj 

%J int setmaK - 1; 

ifl 

fil switch ( laoveSelect ) { 

cTctse ePrevChar: 
%J case eNestChar: 

Ly case ePrevCharlnPara; 

ij case eNestCharlnPara : 

SLCCharactexMove ( *this. moveSelect ); 

break; 

f=i case ePrevWord: 

J'i PrevWord( ); 

■ break ; 

IJ case eNextWord: 

Nes:tWord( ); 

break; 

il case ePrevSpellWord: 

PrevSpelIWord( ); 
break ; 
case eKextSpeliWord; 
NeKtSpellWord{ ); 
break; 

case eStartWord: 
StartWord( ); 
break; 

case eEndWord; 
EndWord( ); 
break ; 

case ePrevEntireLine; 
PrevEntireLine ( ) ; 
break ; 

case eMextEntireLine: 
HejttEntireLiixeO ; 
break; 

case ePrevLine: 
PrevLineO ; 
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case eilsI©Kt Spell Word: 

fPoint.SelectNestSpellWord( ); 
break; 

case eStartWord: 

f Point .SelectStartWord ( ) ; 
break; 

case eEndWord: 

f Point .SelectEndWord ( ) ; 
break ; 

case ©PrevEntireLine: 

fPoiKt.SeIectPrevLine{} ; 
f Point ,SelectStartLine ( ) ; 
break ; 

case eHeKtEntireLme; 

fPoint .SelectHeKtLineO ; 
fPoint,SelectEndLine{) ; 
break ; 

case ePrevLine; 

f Point , SelectPrevLine ( ) ; 
setmax * 0; 
break ; 

case eNextLine: 

f Point -SelectHextLine ( ) ; 

setmaK * 0; 

break; 

case eSt art Line: 

f Point . SelectStartLine ( ) ; 
break; 

case eEndLine: 

f Point . SelectEndLine ( ) ; 
break ; 

case eBeginPara: 

fPoint.SelectStartParaO; 
break; 

case eEndPara: 

fPoint .SelectEndParaO ; 
break ; 

case eBegmColumn: 

f Point . SelectStartCol umn ( } ; 
break ; 

case eEndColumn: 

fPoint .SelectEndColumn ( ) ; 
break ; 

case ePrevCharlnPara: 

fPoxnt.SelectPre^harlnParaO ; 
break ; 

case eNeKtCharlnPara: 

fPoint .SelectHestCharlnParaO ^ 
break; 

case ePrevPara: 

fPoint .SelectPrevPara { ) ; 
break; 

case eNeKtPara: 

fPoint .SelectHextParaO ; 
break; 
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sortedSelect . Sort ( ) ; 

TestMarker& mark ^ sorte^dBelect .fMark; 
TeKtMarkerSc point » sortedSelect.f Point: 

switch ( moveSelect ) { 
erase ePrevChar: 

if ( !mark,fOff8«t && mark . fPara-> Get Pre v() ) { 

scContUnit* para ^ sortedSelect .fMdrk.fPara->aetPrev() ; 

select. SetParaSelect ion ( para, PARAChSize( para ), PARAChSize( para ) ); 

break; 

} 

case ePrevCharlnPara: 

point. f Off set « MAX( 0, point . f Of f set - 1 ); 
mark * point; 

moved = sorted Se 1 ect . f Mark i« mark; 
select. SetMarkC Kiark ); 
select. SetPoint( point ): 
break; 

case eMeKtChar: 

if ( point, f Off set PARAChSi2:e( point. fPara ) point . f Para ->GetNe3Ct() ) { 
scContUnit* para - sortedSe 1 ect . f Mark. f Para- >GetMext() ; 
select .SetParaSelect ion ( para, 0, 0 ); 
break; 

} 

case eKTsKtCharlnPara: 

point. f Off set « MIN( point , f Of f set + 1, PARAChSize( point. f Para ) }; 
...^ mark - point; ^ 

moved sortedSelect . f Point l« point; 
%J select .SatMark( mark ); 

m select ,SetPoint( point ); 

T:l break; 

default: 
%1 break; 

y > 

""^ return moved; 

13 

^did scSelection: : Extend ( eSelectMove moveSelect ) 

Cd 

H^ ._ int setmaK « 1; 

13 switch ( moveSelect ) { 
12 case ePrevChar: 

fPoint .SelectPrevChar ( ) ; 

break ; 
case eNextChar: 

f Point .SelectHeKtChar ( ) ; 

break ; 

case ePrevWord: 
{ 

TeKtMarker mark fMark; 
PrevWord ( ) ; 
fMark ^ mark; 
break; 

} 

case eMextWord: 
{ 

TeKtMarker mark ^ fMark; 
NeKtWord( ); 
fMark * mark; 
break; 

} 

case ePrevSpellWord: 

f Point. SeZectPrevSpel Word ( ); 
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scSeiection sortedSelect ( *this ); 
sortedSeiect . Sort ( ) ; 

T^KtMarkerS, mark « sort edSeiect,f Mark; 
TesitMarkerSt point sortedSelect.f Point; 

mark. f Off set - 0; 
point - mark; 

SetMark( mark ); 
SetPoint( point ); 

return mark. f Para 0; 

} 

int scSelection: :EndPara( ) 

scSelection sortedSelSiCt ( *this ); 
sortedSeiect .Sort () ; 

TextMarkerSt mark * sortedSe 1 act .f Mark; 
Te2rtMarker& point ^ sortedSelect .f Point ; 

point. f Off set « PARAChSize( point. f Para ); 
mark - point; 

SetMark( mark ) ; 
S6tPoint( point ); 

fn return mark. f Para 1= 0; 

Pli 

scSelection: :Para( eSelectMbve moveSelect ) 

13 scSelection sortedSelection{ *this ); 
s scContUnit* para; 

sortedSelection.Sort( ); 

I J switch ( moveSelect ) { 
1^ case ePrevPara; 

;J P^3ra - sortedSelection.fMark.fPara->GetPrev() ; 

break; 
13 case eHeKtPara: 

para - sortedSelection . f Mark. f Para- >GetNeKt{) ; 
break ; 
case eFirstPara; 

para = ( scContUnit*)sortedSelecti on . f Mark . f Para- > First InCha in ( 
break; ^ 

case eLastPara: 

para - (scContUnit*)sortedSelection.fMark.fPara->LastInChainf ) 
break ; ^ ^ 



} 



if ( para ) 

SetParaSelection( para, 0, PARAChSi2e( para ) ); 
return para ! « 0 ; 

} 

returns true if selection moved 

static int SLCCharacterMove ( scSelectionS select, 

^ eSeiectMove moveSelect ) 

int moved - 0; 

scSelection sortedSelect ( select ); 
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return mark. f Col !- 0; 

} 

y' * M K a =1 ss = ft « rs = « = as a K s! K =s « « K = ss e « w a K « at « K « w » » =s K M » « =! « S2 » as ffl « = sr EC » M s 

int scSelection: :EiidColumn( ) 
{ 

scSelection sortedSelect ( *this ); 
sortedSelect . Sort ( ) ; 

TertMarkarSi mark « sortedSal set .f Mark; 
TextMarkerSt point ^ sortedSelect.f Point; 

if ( (point.fCol ) { 

scContUnit* lastPara = point .fPara->GetPrevVisiblePdra() ; 
scTeHtline* lastTxl » 0; 

if ( lastPara ) 

lastTxl * iastPara~>fetLastVisibleLine{) ; 

if { lastPara lastTnl ) { 

point. fCol « IastTKl-'>aetCol«inn(); 
point. f Para = lastPara; 
point. FTkI ^ lastTsl; 

} 

return Q; 

} 

point. SelectEndColuinn{ ); 
I J mark « point; 

f n SetMark ( mark ) ; 
SetPoint( point ); 

1 3 return mark. f Col I- 0; 

i 

int scSelection : :StartColuffln ( ) 

scSelection sortadSelect ( *this ); 
I : I sortedSelect . Sox^t ( ) ; 

I'l TeKtUar'kBr& mark « sort edSelect.f Mark; 
TeKtMarker^ point « sortedSalect , f Point; 

□ if ( lmark,fCol ) { 

scContUnit* lastPara « mark .fPara->Ge tPrevVi sib iePara( ) ; 
scTeKtline* txl = lastPara->GetFirstline{) ; 

if ( lastPara tKl ) { 

mark. f Col = tKl->0etColumn () ; 

mark. f Para - lastPara; 

mark.fXKl « tKl; 

} 

else 

return 0; 

} 

mark . SelectStartColumn ( ) ; 

point mark; 

SetMark ( mark ) ; 
SetPoint( point ); 

return mark, f Col 0; 

} 

int scSelection : :BeginPara ( ) 
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if ( lastPara lastTxl ) 

prevCol « iastTKl*->G©tColumn() ; 

else 

return 0; 

} 

else 

prevCol = mark, f Col -'>GetPrev(); 

check to see if we have a next column */ 
i£ ( IprevCol ) 
return 0; 

if ( lprevCol->GetFirstiine() ) 
return 0; 

mark. f Col ^ prevCol; 

mark.fTxI - prevCol "'>GetFirst 1 ine() ; 

mark. f Para « mark . fTsl- >Get Para () ; 

point ~ mark; 

mark .Select St art Column ( ) ; 

point .SelectEndCoiumnO ; 

SetMark ( mark ) ; 
SetPointi point ); 

return mark. f Col i« 0; 

} 

soSelection: :NeKtColumn() 

;i 

scSelection sortedSelect { »this ); 
i 3 sortedSe 1 ect . Sort ( ) ; 

.'j TextMarker^ mark ^ sortedSelect . f Mark; 
'---^^ TeKtMarker^ point « sortedSelect .f Point; 
"""-J scColumn* nextCol; 

if ( ! point. f Col ) { 

scContUnit* lastPara point . f Par a->GetPrevVls iblePara () ; 

[3 scToKtline* lastTxl « lastPara->0etLastVisibleLine() ; 

if ( lastPara lastTxl ) { 

point. f Col « lastTKl->GetColumnC) ; 
point. f Para ^ lastPara; 
1^ point »fTxl ^ lastTsl; 

£3 } 

i^. else 
"""^ return 0; 

} 

neKtCol - point .fCol->Geti3eKt() ; 

/» check to see if we have a nest column «/ 
if ( tnestCol ) 
return 0; 

if ( !nextCol->GetFirstline() ) 
return 0; 

point. f Col = neKtCol; 

point. fix! « neKtCol->GetFirstline(); 

point. f Para ^ point .fTHl->OetPara() ; 

mark = point; 

mark .SelectStartColumn ( } ; 

point.SelectEndColumnO ; 



SetMark ( mark ) ; 
SetPoint( point ); 
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mark.fTxl « neKtXKl; 

point « mark; 
metrk.SelectStartLineO ; 
point . SalectEndLine ( ) ; 

} 

SetMark ( mark ) ; 
SetPoint( point )j 

return mark.fTxi 1*0; 

} 

int scSelection ; :StartLine{ ) 

{ 

scSelection sortedSelect ( «this ); 
sortedSelect .Sort ( ) ; 

TeKtMark^rSt mark - sortedSelect . fMark; 
TeittMarkerS: point « sortedSelect . f Point; 

if ( mark.fTxl ) { 

mark ,SelectStartLine( ) ; 
point » mark; 
SetMark ( mark ) ; 
SetPoint( point ); 

} 

"Z return mark.fTKi 1* 0; 

ji 

^^Hat scSelection: :EndLin0( ) 

scSelection sortedSelect ( *this ); 

sortedSelect ,Sort( ) ; 
s TeKtMdrker£t mark « sortedSelect. f Mark; 
fi TextMarkerSt point * sortedSelect . f Point; 

if ( point. fTKl ) { 
l;J point ,SelectEndLine( ); 

la^ mark ^ point; 

h } 

else if ( mark^fTxl ) { 
O mark .SelectEndLine{) ; 

point « mark; 

} 

SetMark( mark ); 
SetPoint( point ); 

return mark.fXsl I* 0; 

} 

/* « »fe s? ffl s; w s; » w ss * SB « » w s M w » » s » K a as a M =; » =s » w ^ ss ss; « a: as « « w » « » M 

int scSelection : :PrevColumn(} 
{ 

scSelection sortedSelect ( «this ); 
sortedSelect. Sort () ; 

TextMarker6c mark « sortedSelect . f Mark; 
TextMarkerSs point « sortedSelect . f Point; 
scColumn* prevCol; 

if ( imark.fCol ) { 

scContUnit* lastPara « mark .£Para->GetPrevVisiblePara() ; 
scTextline* lastTxl ^ lastPara->GetLastVisibleLine ( ) ; 
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neKtXxl SedrchRight( nestTnl. mark.fSelMaKX ); 

if C IneKtTxl ) 
return Oi 

point. fTsl = nextTxl; 

SelectLocateOnLineC &mark, ©CursForward ); 
point - mark; 

} 

SetMark ( mark ) ; 
SetPoint( point ); 
return mark.fTxl \~ 0; 

} 

int scSelection : ;PrevEntireLine( ) 
{ 

scSelection sortedSelect ( *this ); 
sortedSelect . Sort ( ) ; 

TestMarkerS: mark « sort$dS©l^ct .fMark; 
TeKtMarkerSi point * sartedSi^lect .f Point; 

scTsKtline* prevTxl; 

if ( mark.fXsl ) { 
ri prevlKl ^ mark .fTsl->t^tPrevLoeical ( ) ; 

if { iprevTKl ) 
' return 0; 

fy mark.fXHl « prevTxl; 

j"^^ point mark; 

i J mark .SelectStartLine { ) ; 

%J point .Selec:tEndLina( ); 

Q ^ 

« SetMark ( mark ) ; 
13 SetPoint( point ); 

return mark.flKl 1=0; 

w » w =f » = » » = =s = « » za « » s= rt s= =5 s; a » « « w ^ « K 

'%%t scSelection: :NeKt£ntireLine( ) 

scSelection sortedSelect ( «this |; 
sortedSelect - Sort ( ) ; 

TestMarkerSt mark « sortedSelect . fMark ; 
TeKtMarker& point « sortedSelect .f Point; 

scTextline* nextTs:!; 

if ( point -ftKl 3 { 

neKtlKl ^ point.£Ts:l->GetHes;tLoeic:al(); 
if ( ineKtlKl ) 
return 0; 

point. flKl = neKtTKl; 

mark point; 

mark . SelectStartLine ( ) ; 

point .SelectEndLineO ; 

} 

else if ( mark.fT^l ) { 

neKtlKl « mark.fTKl~>QetNeKtLogical(J; 
if ( inestTxl ) 
return 0; 
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if { IprevTxl ) 
return 0; 

mark.fTxl prevTxl; 

SelectLocateOnLine ( Sdtiark, eCursBackward ); 
point « liiark; 

} 

else if ( point. fT^l ) { 
pr0vTKl ^ point. fTKl; 
do { 

prevTsl prevTxl~>GetPrevLo^ical ( ) ; 
} while ( prevTsl &St SamaBaseline ( point. flKl, prevTsi ) ); 



if ( IprevTKl ) 
return 0; 

prevTKl ^ SearchLeft{ prevTKl, point .fSelMaxX ); 

if ( IprevTKl ) 

return 0; 
point. flKi « prevlKl; 

SelectLocateOnLine ( ^point, eCursBackward ); 
mark = point; 

} 

SetMark ( mark ) ; 
SetPoixit( point ); 
""Z. return mark, fix 1 l« 0; 

"^At scSelection; :fextLine( ) 

'•vj scSalection sortedSelect ( *this ); 

'-^ sortedSelect .Sort() i 

TestMarker^ mark - sortadS^lect . fMark; 
[3 TeKtMarker£( point « sortedSelect.f Point; 

scTeKtline* nastTs:!; 

if ( point. fX^l ) { 

K$KtTKl *= point. fT^l; 

:S ^» { 

U nesctTxl « neKtTxl->0etHextLogical {) ; 

} whila ( nastTxl &St SameBaseline ( point, flKl, nesstTKl ) ); 

if ( InextTKl ) 
return 0; 

neKtXKl « SearchRigbt( nextXxi, point .fSelMaxX ); 

if ( IneKtlKl ) 
return 0; 

point. fXxl nestXxl; 

SelectLocdteOnLine( Stpoint^ eCursForward ); 
Jtiark ^ point; 

} 

else if ( mark.fXsl ) { 
nsKtXKl « mark.fXsl; 
do { 

nextXxl = nestXxl->GetNeKtLo0ical {) ; 
} while ( aextXssl SeSt SajneBasel ine( mark.fXKU nestXxl ) ); 

if ( inestXxl ) 
return 0; 
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static int SameBaseline ( const scToxtlxne* tl, const scTeKtline* t2 ) 

{ 

return tl->GetBase!llne() t2->GetBaseline () ; 

} 

x/#d©fin0 SaiaeBdserlineC tU t2 ) (tl)->GetOrigin() .y ==== (t2)->Get0rigin () .y 

stetic scTextline* SearchLeft( scTeKtlme* rightLineSegment, 

MicroPoint selmax ) 

{ 

scFlowDir fd = rightLineSegKient->GetFlowdir() ; 

scMuPoint mPt; 

if ( fd.IsHorizontal () ) 

inPt.Sat( selmas, rightLineSegment->GetOrigin () .y ); 
else 

raPt»Set( rightLineSegiaent~>GetOrigin ( ) .x, selmas ); 

scTextlme* prevTKl = 0; 
BcXRect xrect; 

MicroPoint inflation - 0; 

for( int i Q; i < 20; i++ ) { 

for( prevTKl - rightLineSaigiftent ; 

prevTxi SeS: Sam0Baseline( pravTsl* rightLineSegment ); 
prevTsl - prevTxl->GetPrevC ) ) { 

prevTKl - >QueryEx tents ( srect, 0 ): 
Krect. Inset ( inflation^ 0 ); 
if ( Kract.PinRect( mPt ) ) 
return prevTxl; 

C3 } 

k inflation -= scPOIOTSC 4 ); 

li ) 

return rightLinaSegment; 

m 

'^-:^^atic scTeKtline* SearchEight( scTextline* leftLxneSegitient, 

MicroPoint selmaK ) 

^ scTestline* nextTxi « 0; 
13 scTextline* rightLineSegm^nt ==0; 

for( neKtXsl « lef tLineSegment ; 
V"i neKtXKl SameBaseline( nestXxl, iBftLineSegment ); 

^ neKtlKl « nestTKl->GetHe55:t() ) { 

rightLineSegment - nextTxl; 

} 

return SearchLeftC rightLineSegmsfnt, seimas ); 

} 

int scSelection; :PrevLine( ) 
{ 

scSelection sortedSelect ( *this ); 
sortedSelect .Sort ( j ; 

TestMarker^c mark ^ sortedSelect , fMark; 
TextMarkarSt point « sortedSelect . f Point ; 
scTextline* prevTxl; 

if ( mark.fTKl ) { 

pr$vTsl * mark.FTKl; 
do { 

prevTjjl « prBvTKl">GetPrevLogical () ; 
} while { prevTsl SeSc SaiueBaseline ( mark.fXxl, prevTKl ) ); 

if ( tprevTsrl ) 
return 0;; 

prevTni = SearchLeft( prevTsl^ mark . fSelMaKX ); 



File : Wcirk\CrtPrt\Stcinehnd\Scselec2 .cpp 



T^xtMarkerSc mark » sortedSelect . fMark; 
TetKtMarkerSc point « sortedSelect . f Point ; 

UCS2 ch « PARAChdrAtOffset( point. fPara, poi»t . fOffs^t ); 
if ( iCTIsSpace( ch ) ) 

point .SelectEndSpellWord( ) ; 

if ( I IsSiiverCursorO ) { 

while ( f point. SelectNeKtSpeZlWord{ ) ) { 
if ( scope inContUnit ) 
return 0; 

point. f Para = point ,f Para ->GetHeKt() ; 
if ( i point. f Para ) 

return 0; 
point. fOffset - 0; 

} 

mark ^ point; 

if ( !mark,Ss!lectStartSpellWord( ) || Ipoint .SelectEndSpeilWord( ) ) 
return 0; 

} 

SetMark ( mark ) ; 
SetPoint ( point ) ; 

return mark, f Para ! « 0 StSe ! IsSliverCursorf ) i 

} 

"^Int scSelection: ;StartWord( ) 

li 

soSelection sortedSelect ( *this ); 

' sortedSelect . Sort ( ) ; 

TextMarkerSi mark * sortedSeiect . FMark; 
iU TextMarkerSt point « sortedS^tlect . f Point; 

..Z i£ i I mark. Selects tartWord{ ) ) 

return 0; 
s point = mark; 

SetMark( mark ); 
/"! SetPoint{ point ); 
ly return mark. f Para f» 0; 

int scSelection; i£ndWord( ) 
{ 

scSslection sortadSeleot ( *this ); 
sortedSelect .Sort ( ) ; 

TextMarkerSe mark « sort ^dSei set . f Mark; 
TextHarkerS point - so rtedSelect . f Point; 

if ( i point. Sel©ctEndWord( ) ) 

return 0; 
mark = point; 

SetMark( mark ); 
SetPoint( point ]; 

return mark. f Para \^ 0; 

} 

sa » » = =s <« » s= :e s» = s= a=-ss itt as « » =: = s; » w *s as ss w :s ss iM =S » s; K » ss « w « a= IP K » 

/« LAYOUT BASED SELECTIONS - these need error oheckina 
* to see if layout exists 
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point .SelectStartWord ( ) ; 

SetMark( point ); 
S6rtPoiiit( point ); 

return point. f Para 1« 0; 



K as s£ B! at s as as es a * 35 w » St % & S3 S5 sr « * / 



int scSelaction: ;N^xtWord( Scope scope ) 
{ 

T^KtMarker point « f Point; 

if ( CTIsSelectabl©( PARACharAtOffset ( point. f Para, point . f Of f set ) ) ) 
point - SelectEndWord ( ) ; 

whila C [point .SelectHextWord{ ) ) { 
if ( scope inContUnit ) 
return 0; 

point. f Para = point. f Para->GetNeKt () ; 
if { i point. f Para ) 

return 0; 
point .f Off set « G; 

} 

point .SelectStartWordO ; 

SetMark( point ); 
SetPoint( point ); 



return point. f Para 0; 



^4nt scSelection: -.FrevSpellWord ( Scope scope ) 



scSelection sortedSelect ( *this ); 
sortedSelect .Sort ( ) ; 

TeKtMarkerS: mark sortedSelect , f Mark; 

TextMarkerSt point » sortedSelect .f Point; 

if ( CTIsAlphat FMACharAtOf fset { mark, f Para, mark, f Off set ) ) ) 
mark .SelectStartSpel Itord ( ) ; 

while { imark.SelectPrevSpeilWord( ) ) { 
if ( scope inContUnit ) 

return 0; 
mark . f Para =» Hiark . f Para- > Get Prev ( ) ; 
if ( Imark.fPara ) 

return 0; 

mark, f Off set PARAGhSi2:e( isark.fPara ); 

} 

point « mark; 

mark .SelectStartSpel IWord ( ) ; 
point. SelactEndSpellWord( ) ; 

SetMark ( mark ) ; 
SetPoint( point ); 

return mark. f Para !- 0; 



Ksaata«ws:as35;ssssss3Sstsa»ac5ta;ajsa;ssae«as3iassa3S»«ssasSBSEJSaK3S3;*/' 



int scSelection: : Hex tSpe 11 Word ( Scope scope ) 
scSelection sortedSelect ( *this ); 
sortedSelect , Sort ( ) ; 
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int TextMarker: ;Selec tStart Column ( ) 
{ 

sclent line* tKl; 

scAssert( fCol I- 0 ); 

tzl - fCol->GetFirstline(); 

flKl ^ tKl; 

fPara « txl->GetPd.ra(} ; 

fParaCount - fPara->fetCouiit () ; 
return SelactStartLine ( ) ; 

} 

int TeKtMarker: : Select EiidColumn( ) 
{ 

scTeEtline* t^l; 

scAssert ( f Col 1=0); 

tsi - fCol->GetLastline( ); 

/* tm->fCol should be correct */ 
fPara ^ txl*>GetPara { ) ; 

flKl « txl; 

/* tm->colCount should be correct »/ 
fParaCount « fPara->GetCount () ; 
fLineCount « tsl->GetLiiiecouyit () ; 

'I return SelectEndLine ( ); 

f \ ^ ss ss ss X :s ss 'OS 3A Si'St -Si ^ ::t.'fs. ss Tb :stiSiSSTsissssssts IK sssx:s St IS mtzss = 

"""^nt TeKtMarker: ;SelectStartStreaiti( ) 

m 

'^J scStream* stream - fPara->GetStream() ; 

fPara « stream->First ( ) ; 
s f Off set = 0; 
retiirn 1; 

'^mt TextMarker : : SelectEndStream ( ) 

scStream* stream « fPara~>GetStream() ; 

f Para stream->Last ( ) ; 

fOffset =^ fPara->GetContentSi2e() ; 

return 1; 

} 



» « a i= » as ss « ts » =5 5B s ss M » 3t sa « M s: M as ss a a » a = w « « w B » ss » » w « » « e » as w 

/» camm based selections */ 

int scSelection: -.PrevWord ( Scope scope ) 
{ 

Te3ctMarkerS= point « f Point; 

while ( ipoint.SelectPrevWordO ) { 
if [ scope inContUait ) 
return 0; 

point. f Para * point .f Para ->GetPrev() ; 
if ( ! point. f Para ) 
return 0; 

point, f Off set ^ PARAChSi2e( point. f Para 

} 
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startChRec « (CliarRecctrdP) f Pard->GetCharArray ( ) Xock ( ) ; 

fOffset « IXrStartWord ( startChRec, fOffset, eleminateLeadingSpaces ); 

f Para->Ge!tCharArray 0 .Urxlock ( ) ^ 

return fpara !« 0; 

} 

irxt TeKtMarker: :SelectEndSpellV^ord( ) 
{ 

CharRecordP startChRec; 

startChRec - (CharRecordP) fPara ~> Get CharArray() .Lock () ; 
f Off set TXT£adWord( startChRac. f Off set ); 
fPara->G^tCharArray ( ) .Unlock ( ) ; 
return f Para ! « 0 ; 

} 

int TextMarker: :SalectStartPara() 

{ 

if { f Off set 0 ) 
return 0; 

fOffset 0; 
tz return 1; 

til 

iWt TeKtMarker: :S©lectEndPara{) 

H 

Ij if ( f Offset PARAChSi2e( fPara ) ) 
return 0; 

O f Off set « PARAChSize( fPara ); 
%.j return 1; 

S5 3 rs » w as » » = SB = s a = » * ra ts K ss e «; » K » « » ss K w tt 2s Si 3j « « » St Ts =s » » K as = 

TestMark^r : : Select PrevPara ( ) 

if ( lfPara->GetPrev() ) 
return 0; 

fpara * fPara->aetPrev( } ; 
Select StartPara ( ) ; 
return 1; 

} 

int Te^tMarker: ;SelectHextPara ( ) 

{ 

if ( ! fPara'->GetHeKt () ) 
return 0; 

fPara « fPara-X^tNeKt ( ) ; 
S^lectEndParaO ; 
return 1; 

} 
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} while ( CTIsSpaceC ch ) &^ endOffset > 0 ); 
f Off set - ©ndOffset; 
rPdrd->GetCharArray() .Unlock () ; 
return !CTIsSpace( ch ); 

} 

int TestMarker: :SelectNeKtSpellWord( ) 
{ 

CharRecordP startChRec; 

UCS2 ch; 

long endOffset^ 

limtOffset; 

limitOffset = PARAChSizeC fpara ); 

if ( f Offset >^ limitOffset ) 
return 0; 

startChfec - (CharRecordP ) f Para- > Get Char Array ( ) . Lock ( ) ; 
endOffset « fOffset; 
do { 

ch « startOhRec[endOffset++] .character ; 
} while ( CTIsSpace( ch ) endOffset limitOffset ); 

J^g fOffset « endOffset; 

^ ; f Para- > Get CharArray ( ) .Unlock ( ) ; 

f y 

.=1 return !CTIsSpace( ch ) ch scEndStream; 

B 

ISt TextMarker: :SelectStartWord( ) 
CharRecordP startChRec; 

StartChRec ^ (CharRecordP) fPara->GetCharArray{) ,Lock () ; 
fOffset - TKXStartSelectableWordf startChRec. f Off set ); 
f% f Para -> Get CharArrayO .Unlock (); 
return fPara 1^ 0; 

} 

int TextMarker: :SelectEndWord( ) 
{ 

scAssert( fOffset <« fPara->GetContentSise () ); 

scHandleArrayLock h( fPara~>GetCharArray ( ) ); 
CharRecordP chRec * (CharRecordP )»h; 

fOffset « DCTEndSelectableWordC chRec, fOffset ); 

return fPara 0; 

} 

/ * K = a a :i = s M « ft c = w » a 5S a 5S e tt s= = e as IS e » ffl M = 3 » « s a sa a ffl ae s s ?s w£ ss = 

int TeKtMarker: :SelectStartSpeliWord( int elemiaateLeadingSpaces ) 
CharRecordP startChRec; 
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return fPara ! = 0 && fTxl != 0; 

} 

/■« IS W as SS » « » S » W » = 3S K a S W SS a « = K a 3S a S a K » » = SS » S! » a S K « = 55 W SS = S! a » M S£ a S= 5^ 

Bool TextMarker: :SelectPrevWord{ ) 
{ 

CharRecordP startChRec; 

UCS2 ch; 

long endOffset; 

if ( ifOffset ) 
return false; 

startChRec = (CharRecordP) f Pdra->GetCharArray ( ) .Lock ( ) ; 
endOffset fOffset; 
do { 

ch « StartChRec [ — endOff set] .character ; 
} while ( fCTIsSelectable( ch ) &S< endOffset > 0 ); 

f Off set ^ endOffset; 

f Para->GetCharArray ( ) .Unlock ( ) ; 
return CTIsSelectable ( ch ); 

} 

SSsol TextMarker: :SelectNeKtWord( ) 

:^ CharRecordP startChRec; 

UCS2 ch; 
flj long endOffset, 
.3 limitOffset; 

limitOffset - PARAChSi2e( fPara ); 

f3 if ( f Off set >« limitOffset ) 
return false; 

13 StartChRec ^ (CharRecordP )f Para - >GetCharArray () ,Lock() ; 

j1 endOffset f Off set; 

H do { 

fi ch = startChRec[endOffset++] -character ; 

1% } while { !CTIsSelectable( ch ) S£c endOffset <- limitOffset ); 

f Off set « endOffset; 

f Para->GetCharArray { ) .Unlock ( ) ; 
return CTIsSelectable( ch ); 

} 

Bool TeKtMarker; :SelectPrevSpeliWord( void ) 

{ 

CharRecordP startChRec ; 

UCS2 ch; 

long endOffset; 

if ( !f Off set ) 
return false; 

StartChRec « ( CharRecordP )f Para ->GetCharArray() .Lock () ; 
endOffset « fOffset; 
do { 

ch = startChRec[-'-endOffset3 .character ; 
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} 

int TeKtMarker: :SelectPrevLine( ) 

{ 

if { IfTKl ) 
return 0; 

if ( fTjtl-'>G0tPre!vLo9ical() ) 

fXxl = fTxl">fetPrevLogical{); 

else 

return 0; 

SelectLocateOnLine( this^ eCursBackward ); 
return 1; 

} 

int T^KtMarker: tSelectlsfextLin^O 
{ 

if ( IfTxl ) 
return 0; 

if C fTsl->G0tNeKtLogical 0 ) 

FTkI « fTKl->GetNestLc(gicel(); 

else 

return 0; 

p SelectLocateOnLine( this, eCursForward ); 
T-i return 1; 

Silt TeKtMarker: :SelectStartLine( ) 

^« 

--i scDebugAssert ( fT^l 0 ); 
fi if ( flKl ) { 

fCol « fTEl->GetColuian(); 

fPara = fTsi->GetPara() ; 

^.J fOffset « fT2cl->GetStartOffset ( ); 

.1 FEndOFLine * false; 

n > 

§f Bis 

f1 return fPara != 0 && fTxl i= 0; 

int Tex tMarker; ; Select End Line ( ) 
{ 

scDebugAssert ( fTxl 1=0); 
if { FTkI ) { 

fCol - fTxl->GetColumn(); 

FPara » fTKl->GetPara {) ; 

#if 1 

if ( CTIsSpace( fTKl->CharAtEnd( ) ) ) { 

f Off set « fTxl->GetEndOffset( ) - 1; 
FEndOFLine ^ false; 

} 

else { 

fOffset « fTxl->GetEndOffset( ); 
FEndOfLine - true; 

} 

#else 

FOffset = fTKl->GetEndOfFset( ); 
FEndOFLine - true; 

#endif 
} 
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K » s IS w 2S w » ss « s :s s K ss K w = a SI a « SE « as ss sa ts « =s = St « S! =t sa « a 35 

void scSalection; :SetParaSelaction ( scContUnit* p, 

long starts 
long end ) 

{ 

scS t reamLocat i on mark ; 
scStreaiaLocation point; 
scSt3ream« stream; 

stream ^ p->GetStream( ) ; 

mark . f ParaNum - p->GetCount () ; 

Assort I nRang6f{ start, 0, p->G^tContentS2ze() ); 

mark. fParaOff set = start; 

point ^ mark; 

Assert I nRangeC end^ starts p->GetContentSize() ); 
point .fParaOff set « end; 

Restore ( Stmark, Stpoint, stream^ true j; 

} 

= » » ss SI ss = :c » ss Js K » « w a » » :b IK 35 a » s » K » e a » M s S5 at K = « « « « s » as (S a « a s! sa » * » 

int TextMarker: :SelectPrevC!]iarInPara () 
( 

if ( If Off set ) 

return 0; 
f Off set --^ 1; 

retux^n 1; 

fit TestMarker; iSelectNextCharlnPara () 

■'=4 if { f Off set fPara->GetContentSi2eC) ) 
fi return 0; 

fOffset MINC fPara->OetContentSize() , fOffset + 1 ); 
-U return 1; 

u 

fSt TeKtMarker: ;SeiectPrevChar() 

if { iSelectPrevCfaarInPara{) ) { 
if { fPara->GetPrev() ) { 

fPara ^ fPara->GetPrevC) ; 

fOffset fPara->aetContentSi2e(); 

} 

else 

return 0; 

> 

return 1; 

} 

int Te2JtMarker; :SelectNextChar() 
{ 

if ( (SelectNestCharlnParaC) ) { 
If ( fPara->GetNest() ) { 
fOffset = 0; 

fPara ^ fPara">GetMext () ; 

} 

else 

return 0; 

} 

return 1; 
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/ » = 35 a 3 « s= e a M K K ffl =s » s s¥ SI ^ SI £= ts r; ss is » = « K s: =£ M = a » S as » « e ffl K » a » K! » 

File; ©cselec2.c 

^Header; /Projects/rooltoK/ct/ScsslecZ .cpp 4 6/18/97 10 :20a Wmanis $ 
Contains: selection code 
Written by: Manis 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, HA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an adiiission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

#inciude "scselect.h" 
#1 nclude "scgl ohda . h " 
#include "scparagr.h" 
#include "scstream.h" 
#include "scteKtli.h" 
#include "scctype.h" 
#include "sccolumn.h" 
fS-nclude "scmem.h" 

Wclefine AssertlnRange ( val, low^ high ) scAssert( val >« low &£c val <« high ). 

static void SelectLocateOnLine( TextMarker »tm, eContentMovement movement ) 

'^■'•^^^ scMuPoint mPt; 

"4 Bool vert = false; 

12 scFlowDir flowDir; 

tm->fPdra ^ tm->fTKi->GetPara() ; 

flowDir - tm->fTKl->GetFlowdir( ); 
s^l- vert « flowDir. IsVertical {) ; 

1=^ if ( vert ) { 

f1 mPt.x « tM->fTKl->GetOrigin{) .k; 
I'i. vxPt.y « tm->fSelMaxX; 

- } 

else { 

mPt.s - tm->fSelMaxX; 

mPt.y « tm->fTKl->GetOri0in() -y; 

} 

if ( vert ) 

mPt.K tni->fTsl">aetVJOffset(); 

else 

mPt.y 4-= tm->fTKl'->GetVJOffset(); 
scXRect srect; 

tm->fTsl->QueryEKtents( srect, 1 ); 
xrect.ClampC mPt ); 
scMuPo i nt charOrg ; 

tm->fTxl->Select( charOi^, tm->fOffset, mPt, movement, tm-->fEndOfLine ); 
if ( vert ) 

tm">fHLoc « charOrg*y; 

else 

tm->fHLoc « charOrg.K; 
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else { 

endLocation - PARAChSis^C startParaH ): 

start ParaH-> Iter ( func, startLocation, endLocation ); 

for ( para ^ startParsH->GetHeKt { ) ; para J« andParaH; para - para->G0tNext () ) { 
endLocation = PARAChSi2e( para ); 
para->Iter( funo, 0^ endLocation 

} 

endLocation « fPoint .fOf fset ; 
endParaH->Iter( fuuc* 0, endLocation ); 
f Point . f Of f set - endLocation; 

} 

STRRefoxtnat { i^ULL, startParaH, scReformatTimeSlice, redispList ); 

ValidateSelection( validatedSeiection ); 
UpdateSeIection( ); 

> 

int32 scSelection; :CcntentSise() const 
{ 

if ( fMark.fPara f Point. f Para ) 

return ABSC ftork.fOf fset - fPoint .fOf fset ); 
else { 

not implemented 
return LONG^MAX; 

> 

CM 

V^fid scSelection: iCopyAPPTest ( stTextlmportExportSc apptest ) 

a 

I.-. scScrapPtr scrap; 

CopyText( scrap ); 
13 if { scrap ) { 

((scStream*) scrap )->CopyAPPText( apptext }; 

'^^^ long foytesFreed; 

'HJ ( (scContUnit«)scrap)->FreeScrap( bytesFreed ); 

li] } 
II 

Wid scSelection: :PasteAPPText ( stTest Import Export Se apptext, 

scRedispList* redisplist ) 

{ 

TypeSpec ts; 

scStream* scrap =» scStream: :ReadAPPXext ( apptext ); 
if ( scrap ) { 

PasteTeKt( scrap, ts, redisplist ); 

long bytesFreed; 

{ (scContUni t* ) scrap ) -'>FreeScrap ( bytesFreed ) ; 

} 

} 
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mark = aRng . f Mark , fPsra ; 

point = aRng.f Point, f Para; 

> 

/* create a selection point out of two ParaLocations */ 

void scSelection : :Restor©( const scStreaitiLocation* mark, 

const scStreamLocation* point, 
const scStream* stream, 
Bool geoChasge ) 

{ 

if ( mark ) { 

scStreamLocation tffiark( *mark ); 

SetLocationlnfoC fMark, Sttmark^ (scStream*) stream* geoChange ); 

} 

slse 

fMark.Zero( theMARK. false ); 

if ( point ) { 

scStreamLocation tpoint{ *poist ); 

SetLocationlnfoC fPoint, ^tpoint, (scStaream*) stream geoChan^e ); 

} 

else 

f Point .Zero ( thePOIl^^ false ); 

} 

// rett^rn stream associate with selection 
,-^|:Stream* scSelection ; :GetStream( ) const 
return fMark.fPara->GetStream() ; 

lypeSpec scSelection: :GetSpecAtStart ( void ) const 

C3 

scContUnit* f irstContUnit; 

13 firstContUnit « fMark . £Para~>Earlier( f Point. fPara ); 

^■J if ( firstContUnit «^ fMark.fPara ) 

i\ return fMark . £Para->SpecAtOf f set ( fMark, fOf fset ); 

H return f Point. fPara->SpecAtOf fset ( fPoint .fOf fset ); 

void scSelection : :Iter( SubstituteFunc func, 

scRedispList* redispList ) 

{ 

scSelection validatedSelection; 
scContUnit *para, 

»startParaH, 

»endParaH; 
long startLocation, 

endLocation; 

raise_if( ! ValidateSelection ( validatedSelection ), scERRlogical ); 
Sort( ); 

startParaH ^ fMark.fPara; 

endParaH « f Point .f Para; 

startLocation - f Mark. f OF fset; 

if ( StartParaH endParaH ) { 

endLocation « fPoint . fOffset; 

startParaH->Iter( func, startLocation, endLocation ); 
fPoint .fOffaet = endLocation; 

} 
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pl.fParaOffset * tm.fOffset; 
pl.fEndOfLina « tm.fEndOfLine; 

pl.fParaSpec = tm.fPara->GetDefauitSpec:( ) ; 
tm,fPara->ChInfo( tm.f Offset, pl.fTbeCh, pi. f Flags, 

pi . fTheChWidth , pi , f WordBpac© , 

pi.fChSpec. pl.fUnitXyps ); 

i£ { tm.fPara->FindLocation( tm.fOffset. tm. fEndOfLine, tKl, fHLoc, eCursNoMovement ) ) 

pl.fAPPColimm - ts:l->G©tColumn{)-'>GetAPPHame( ); 
else { 

if ( pl.fStream->FindColumn( col ) ) 

pl.fAPPColumn ^ ( {scColuittn*)col->LastInChain{) )->aetAPPMame() ; 

else 

pi .fAPPColumn « 0; 

} 

pl.fPosOnLine! ^ ( tzl tzn.fHLocr : LOm Jim )i 

pl.fSelMaKX - { txl ? tm-fSelManX ; LOmjdm j; 

if C pl.fChSpec.ptrO ) { 

pl.fFont « BcCach0dStyl&::G0tCa^ch0dStyl&( pi. fChSpec }.GetFont(); 

pi .fPointSize « scCachedStyle: :Gs!tCachedStyl$( pl.fChSpec j .GetPtSize(] ; 

} 

&lse { 

SCmemset( Scpl.fFont, 0, si2eof( APPFont } ); 
pl .fPointSise = 0; 

} 

if ( tKl 0 ) { 

pl.fBaseline * LOHa.Mm; 

} 

else { 

pl.fBassline ts:l ->G0tBasel ine() ; 

pi. f Basel ina txl->GetVJOf fset {) ; 

} 

pl.fHeasur^ « ( tsl ? tKl->GetLength{) : L0NG_M1N ); 
pl.fLetterSpace - ( txl ? tzl->QetlSP () : LOmjim ); 



t* decompose the selection into two seperate structures that 
M contain information about the selection 

-^Sid scSelection: :Becoiapose( scStreamLocationS! mark, 
P scStrearaLocationS: point ) 

C3 

f^, scSelection aRng( *this ); 

aHng.Sort{ ); sort the selection */ 

GetLocationInfo( aRns.fMark, mark ); 
GetLocatxonInfo( aRng.f Point, point ); 

} 

void scSe lecti on :: Decompose 2 ( scStreamLocationS mark, 

scStreamLocationS: point ) 

{ 

scSelection aRng( *this ); 

GetLocationlRfo( aRng.fMark, mark ); 
GatLooationInfo( aRng.f Point, point ); 

} 

void scSelection: :GetCantUnits( scContUnit*£< mark^ 

scContUnit*6( point ) const 

{ 

scSelection aRng( *this ); 

aRng.Sort( ); /» sort the selection */ 
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} 



f Point. f Para - f Point . fPara->PasteParas ( scrapCopy^ f Point . f Off set ); 

else 

FMark. f Para -> Pas teTeKt( scrapCopy, f Point . fOff set ); 
( {scStream»)scrapCopy) ->STRFree ( ) ; 

SLCRecomposeLo^ical ( firstCol, fMark,fPara, redisplist, this, tsnae ); 
Changes© iecfti on ( SLC^LOCATE, false ); 



/* create part of a selection by using the information £rom a paralocation 
* probably being called from SLCRecompose 
*/ 

static void SetLocationlnfo ( TeKtMarkerS: tm, 

scStreamLocation* pi , 
scStream* stream, 
Bool geoChange ) 

{ 

scTeKtline* tKl; 
MicroPoint fHLoc; 

if ( stream ) 

pi ->f Stream = stream; 

tm.fPara pX'->f Stream- >KthPara( pl->fParal^Ium ); 
if ( tm.fPara ) { 

tm . f ParaCount » pl->fParaNnm; 

tm.fOffset « pl->£ParaOffset; 

P tm.fEndOfLine « pl->fEndOfLine;. 
O } 

{ 

tm.fPara = pl->fStream->Last ( ); 

tm.fParaCount - tm.fPara-XJetCount {) ; 

tm.fOffset « 0; 

tm.fEndOfLine ^ false; 



I' if ( tm.fPara->FindLocation( tm.fOffset, tm. fEndOfLine, tsl, fHLoc, eCursHoMovement ) ) { 

"L: tm.fCol « tKl->GetColumn(); 

M tm.fTKl « tKl; 

^-J tm.fColCount « tm. f Col -> Get Count ( ); 

1:1 tm.fLineCount ^ tKl->GetLinecount () ; 

tm. fHLoc = fHLoc; 

^™ if ( geoChange ) 
Q tm.fSelMaxX « tm. fHLoc; 

^ else 

tm.fSelMaxX * pl->fSeIMaKX; 

} 

else { 

tm.fCol « 0; 

tm.fTsl ^ 0; 

tm.fColCotint -1; 
tm.fLineCount --1; 
tm. fHLoc - LOHG„MIN; 

tm.fSelMaxX - LOMG„MIH; 
tm.fFlowDir.InvalidateO ; 

} 

} 

get information about this location within the test 

static void GetLocationInfo{ TextMarkerSt tm, scStreamLocation& pi ) 
{ 

scTextline* tKl; 
MicroPoint fHLoc; 
scColumn* col; 

pi , f Stream ^ tm. f Para- >GetStr earn ( ) ; 

pl.fParaNum * tm. fPara->aetCount ( ) ; 
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*lastPara; 
long offset!, 
offset2; 

try { 

scSeiectiott aRng( *this ); 
aRne.SortC ); 

if { aRng . fHark . f Para &St aRng.fPoint .fPara ) { 
if C aRng.fMark.fPara aR!£i^,£Point.fPara ) 

scrap ^ aRnH.fMark.fPara->CopyT0Kt( aRng.fMark,£Offset^ aRng .f Point . f Of f set ); 
else { 

paral - aRng.f Mark. f Para; 
offset 1 « aRng. f Mark, f Off set; 
para2 « aRng .f Point . f Para; 
offset 2 « aRng. f Point. f Off set; 

lastPara « para2->GetHeKt ( ); 

for ( para = paral; para &S para i= lastPara; para ^ para->GetHest() ) { 
if { para paral ) 

scrap ^ para->CopyTe2t ( offsetl, LOHG„Mffi ); 
else if { para para 2 ) 

({scCoatUnit*)scrap)->Append{ para->CopyText ( Lonojim, offset2 ) ); 

else 

{(scContUnit*)scrap)->Append( para->CopyTeKt ( LOHG^MIN. Lomjmi ) ); 

} 

} 

} 

.-^ } 

i:^ catch ( , . . ) { 

( (scStream*) scrap )- >STRF ree [) X scrap - 0; 
ffz throw; 



paste text into the selection applying the indicated style »/ 

fSid scSelection; :PasteTeKt ( const scStream* scrap, 
^ TypeSpec style, 

I^, scRedispList* red isp list ) 

H 

'-4 scColumn* firstCol « fMark.fCol; 
I J scContUnit* para; 

scStream* scrapCopy; 

13 if ( fMark.fPara->aetFirstline() ) 
[3 firstCoi « fMark.fPara->GetF2rstCol(); 

else 

firstCoi * fMark.fCol; 

if { fMark \^ f Point ) 

ClearTeKt( redisplist^ falsi^ ); 
scAssert( fMark f Point ); 

the pasted text may have no spec associated with it, we need to 
* associate a spec with it and to retabiuate if necessary 
*/ 

scrap ->STRCopy( scrapCopy ); 

if ( style. ptr() ) { 

for ( para ^ scrapCopy; para; para = para->GetNeKt( ) } 
para->S©tStyle( 0> LObJG^MAX, style, true, false ); 

} 

TypeSpec nullSpec; 

for ( para » scrapCopy; para; para * para->GetHeKt ( ) ) 
para->Retabulate( nullSpec ); 

if ( scrapCopy->GettJest 0 ) 
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aRng.Sort( ); 

if ( aRng.f Mark. f Para ->fetFirstlxn0{) ) 

firstCol = aRncf.fMark.fPfira->GetFirstCol(); 

else 

firstCol = aRng. f Mark. f Col; 

if ( aRng . f Mark . f Para aRng .fPoint .fPara ) { 
firstPara ^ aRn^ .f Mark. f Para; 
aRn0,fMark.fPara->CiearText( aRng. fMark . fOf fset, aRng . f Point . f Of f set ) 

} 

else { 

paral aRng.fMark-fPara; 
offset 1 » aRng.fMark.fOffset; 
para2 aRng. f Point .f Para; 
of£set2 * aRng. fPoint.f Off set; 

if there will be test left over, then we will 
» merge the paragraphs 
*/ 

merge « { offsetl offset2 < PARAChSize( para2 ) ); 
lastPara ^ para2->GetHe2:t ( ); 

for ( para « parai; para S^Sc para \^ lastPara; para « neKtPara ) { 
nextPara para->GetNext ( ); 
if ( para paral ) { 

if ( offsetl 0 ) { 

aRng,CorrectSelection{ paral, offsetl, para2r offset2 ); 
merge « true; 

} 

para->ClearTeKt( offsetl, LOMG^MAX ); 

} 

else if ( para para2 ) { 

if ( para->ClearTest( LONG^MIN, offset2 ) ) { 
petra->Unlink( ); 
pard->Free( ); 
merge - false; 

} 



} 



para->ClearTeKt( LOHG^MIK, LOm^MAX ); 
para->tJnlink( ); 
para -> Free ( ); 



} 



} 



firstPara = paral; 
paral->Renuiaber() ; 

/* after this the paragraphs in the selection may foe invalid */ 

if ( merge ) { 
offsetl - 0; 

para2 = para2->Merge( offsetl ); 

} 



aRng. f Point » aRng. f Mark; 
*this = aRng; 

if ( repair ) { 

SLCRecomposeLogical ( firstCol, firstPara, redispList, SraRng, true )j 
ChangeSelection( SLC_LOCAT£, false ); 

} 

} 

/* copy the text contained with the selection »/ 

void scSelection: :CopyText( scScrapPtrSf scrap ) 
{ 

scContUnit *para, 
*paral. 
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scContUnit* paralH; 
scContUnit* para2H; 

aRng.Sort( ); 

collH « aRns.fMark.fCol; 

paralH « aRng . f Mark . f Para ; 

offsetl « aHjag.fMark.fOffset; 

para2H « aRng.fPoint .fPara; 

offsetZ « aRng.fPoint .f Off set; 

scAssert( paralH para2H ); 

para lH->ApplvAnnotat ion ( offsetl^ offset2, annotation ); 

STRReformat( collU, paralHi- scRi&formatTimeSlice* redispList ); 
ChangeSe lecti on ( SLC„LOCATE, false ); 

} 

#endif 

/* correct the selection, something prohahly has changed and we need to 
* correct the state contained in the selection 
*/ 

void scSelection: :CorrectSelection( scContUnit* paral^ 

long 

scContUnit* para2, 
long offset2 ) 



/* TO will end up blasting this paragraph so lets take 
* care of the selection range 
*/ 

if ( offset2 < PARAChSizeC para2 ) ) { 
fMark.fPara = paral; 

f Mark. f Off set « 0; 

fMark.£EndO£Line » false; 

} 

fPoint « fMark; 



4M cut the test contained within the selection */ 

/» cut the test contained within the selection */ 

\£igLd scSelection: rCutXext ( scScrapPtrSc scrap, 

scRedispList* redispList ) 

{ 

CopyXeKt ( scrap ) ; 

ClearTeKt( redispList, true ); 

} 

/* cli&ar any text contained mthin the selection */ 

void scSelection; ;ClearTe2Jt ( scRedispList* redispList, 

Bool repair ) 



{ 



scColumn* firstCol; 
scContUnit* firstPara; 
scContUnit* para; 
scContUnit* paral; 
scContUnit* para 2; 
scContUnit* next Para; 
scContUnit* lastPara; 
long offsetl, 
offset2; 
Bool merge; 

scSelection aRngC *this ); 
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paralH « aRng.FMark.fPara; 

offsetl « aRng. f Mark. f Off set; 

para2H = aRng. f Point .f Para; 

offset2 * aRng.f Point. f Offset; 

walk thru thes paras transforming them */ 
if ( paralH ScSc paraffl ) { 
if ( paralH para2H ) 

para lH->TeKtTrans ( offs^tl^ offset2, trans, numChars ); 
else { 

lastPara - para2H->GetKeKt ( ); 

for ( para paralH; 

para para 1* lastPara; 
para » para->GetHeKt () ) { 

if ( para paralH ) 

para->TeKtTrans( offsetl, LON(j__MAX, trans^ nuitiChars ); 
else if ( para para2H ) 

para'->T©stTrans( LOHG_MIN, offset2,. trans^ aumChars ); 

else 

para->TeKtTrans( LOHG_MIH, LOmjdAX, trans, numChars ) 

} 

} 

} 

/* £oTce repaint of range */ 
aRngr.MarkValidatedSelection( scREPMKT ); 

CJ /* reformat 
y if ( paralH ) 

frs STRRefonGat( collH, paralH, scReformatTimeSlice, redispList ); 

^y /» correct selection «/ 

•^,3 ChangeSelection( SLC„LOCATE, false ); 

Id 

lifdaf ^RUBI^SUPPORT 

laol scSelection : :GetAnnotation{ int nth, 

'-^ scAnnotationSc annotation ) 

H 

|;| scSelection aRng( *this ); 

scColumn »collH; 
^JZ l*5ng offsetl, 
C3 offset2; 
f=i scContUnit *pl, 
*p2; 

aRng.Sort( ); 



collH - aRng.f Mark. f Col; 

pi « aRng , f Mark , f Para ; 

offsetl ^ aRng. f Mark. f Off set; 
p2 aRng.fPoint .fPara; 

offset 2 ^ aRng. f Point. f Off set; 



scAssert( pi p2 ); 

return pl->GetAnnotation ( nth, offaetl, offset2, annotation ); 



void scSelection: :ApplyAnnotation{ const scAnnotation& annotation, 

scRedispList* r^dispList ) 

scSelection aRng( *this ); 
scCo 1 umn* co 1 IH ; 
long offsetl, 
offset 2; 
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{ 

scColumn* coll; 
long offset 1, 

offset2; 
scContUnit* para; 
scContVnit* paral; 
scContUnit* para 2; 
scContUnit* lastPara; 

scSelection aRng( *this ); 
aRng.Sort( ); 

if ( aRng-fMark.fPara->GetFirstline() ) 

coll = aRnH.fMark.fPara->GetFirstCol(); 

else 

coll = aRng, f Mark. f Col; 

paral = aRng. fMai^k.f Para; 
offset 1 = aRng, fMark.f Off set; 
para2 - aRng . f Point . f Para; 
offset2 = aRng. f Point. f Off set; 

force repaint of range 
aRng . MarkValidatedSelssct ion ( scREPMHt ); 

if ( paral para2 ) { 
if ( paral para2 ) 

paral->SetStyle( offset!, offset2. style, true, false ); 
else { 

5^:^ lastPara « para2->GetNext ( ); 

(P«^^ " paral; para ScS^ para lastPara; para - para->GetlNFeKt ( ) 
W if (para paral ) 

ifl para->SetStyle( offsetU LOHG.MAX, style, true, false ); 

fii ^Ise if ( para para2 ) 

'5 para->SetStyle( 0* off8et2. style, true, false ); 

%^ else 

iy para->SetStyle( 0, LONGUHAX, style, true, false ); 

!2 } 
u } 



if ( paral ) 

STRReformat( call, paral, scReformatTimeSlice, redispList ); 
il ChangeSelectionC SLC_LOCAT£, false ); 

/* apply the character transformation to the selection and return the 
* damage 
»/ 

void scSelection: :Te^tTrans( eChXranXype trans, 

int nuHiChars, 
^ scRedispList* redispList } 

scSeiection aRng( »this ); 
scColumn *collH; 
long offsetl, 
offset2; 
scCon tUn i t *para , 

*para2H, 
* lastPara; 

// set my world up 
aRng. Sort C ); 

if ( aRng,fMark.fPara->GetFirstline() ) 

col IH aRng . fMark . f Para->GetFirstCol ( ) ; 

else 

collH « aRng, f Mark. f Col; 
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// SLCCiisng^Selection will reset fEndOfLine to false when it calls 
SLCSetTesctMarker, which calls ParaFindLacation , 

// 

aRng.fMark.fEndOfLme - aRng.FPoint. fEndOfLine - savedEndOfLine; 
^ aRng.ChangeSeiection( SLC^LOCATE, false ); 

// set up data for immediate redisplay 
zmmediateRedisp.fStopLine - COLLineNum( &atog ); 
if ( firstColCursor !- aRng . f Mark . f Col ) 

imediateRedisp.fStartLine immediateRedisp.fStopLine; 

if ( iinmediateRedisp.fStopLine < imediateRedisp.fStartLiae ) { 
short tmp = iKtmediateRedisp.fStartLine j 

iiGKiediateRedisp . fStartLine « imiBediateRedisp . fStopLine; 
ijnmediateRedisp.fStopline - tmp; 

if ( aRng. f Mark. f Col rebreak ) { 

aRng. fMark.f Col ->LineEstents( immediateRedisp }; 
if ( redispList ) 

^ redispList->SetIiKmadiateRect( aRng . £Mark . f Col . iinmediateRedisp ); 

if ( firstColCursor f irstCoICursor->MoreText ( } ) { 

// this is to insure that if the addition of a character 
// overflowed the boK, but caused no damage we would 
// report back that 
// there was more te^t in the column 

// 

^ //Stat - COLColRectAdd( FirstColCursor, "SLCKeyArray2*' ); 

else if { I firstColCursor Sc& aRng, f Mark, f Col ) { 

H "t^x^ insures that if we transition from being in no 

|y container to being in a container and there is no 

S-\ damage we will report accurately more teKt 

Jl // 

^ //Stat = COLColRectAdd( aRng . f Mark . f Co U *'SLCKeyArray2" ); 

gStreamChangeInfo.Set( 0, 0. 0, 0 ); 
*this - aRng; 

u 



vja.d scSelection: :InsertField( const clFieldSc field, 

TypeSpecS, spec, 
,^ scRedispList* redisp ) 

CharRecord ch; 

ch. character =^ scField; 

ch.flags.SetFieidC field. id() ); 

scContUnit* para - fMark.fPara; 
para->Insert( ch, spec, fHark.fOffset ); 

scColumn* col; 
if ( para->GetFirstiine() ) 
col « para->GetFirstCol (); 

else 

col « fMark.fCol; 

STRReformatC c:ol, para, scReformatTimeSlice, redisp ); 
MoveSelect( eHextChar ); 

} 

void scSelection: :SetStyle{ TypeSpec style, 

ScRedispList* redxspList ) 
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if { rebreak ) { 

// Restore end of lina setting after adding 

characters in case we are still at the end 
// of a hyphenated line. If we aaren't, 
// SLCChangeSe lection will reset fEndOfLine to false 

when it calls SLCSetXeKtMarker^r which calls 

ParaFindLocation . 

// 

aRng.f Mark. fEndOfLine ^ aRng,f Point. fEndOfLine « savedEndOfLine; 
aRns.ChangeSelection( SLC_LOCATE, false ); 
savedEndOfLine ^ aRng . f Mark .fEndOfLine; 

} 

aRng , Decompose ( key Records [count ] .mark ( ) , dummyPoint ) ; 
keyRecords [co^nt ] . restoreselect ( ) - true ; 

} 

rebreak « false; 
} /» at end of hyphenated line 

if ( para firstPara SeSc aRng .fMark . fOf fset 0 £:Sc keyRecords [count ]. keycode ( ) === scBackSp 

ace ) { 

// we are going to merge with previous para 
firstParat « 0; 

} 

//if key xs backspace at start of stream, this will 
// set noOp field of key record 

// 

TeKtMarker savedPosition « aRng.fMark; 

para * aRng . f Mark . f Para ; 

13 Bool iMRemoved - false; 

it aRng . f Mark . f Para « para->KeyInsert ( aRng .fMark.fOf fset, 
% ^ keyRecords [count ] , 

f y tmMove, 
\ ^ rebreak , 

^'"j teKtCl eared, 

^'4 clearedSpec, 
'"^rJ iMRemoved ); 

fi if ( iAmRemoved ) 
para « 0; 

C3 firstPara - aRng . f Mark . fPara-> Earlier ( firstPara ? firstPara : para ); 

^.J aRng.fPoint ^ aRng.fMark; 



1^ if ( ! keyRecords [count] .restoreselect 0 ) { 

O if ( CMcontent{ keyRecords [count ], keycode {) ) ) { 

'VZ. select ionMoved « aRng.ChangeSeiection( tmMove, false ); 

else { 

select ionMoved = aRng .ChangeSe lection ( tmMove, true ); 
if ( IselectionMoved ) 

keyRecords [count ] .noopO ^ true; 

} 

} 

else { 

aRng.fPoint « aRng.fMark = savedPosition; 

} 

} 

aRng.fPoint ^ aRng.fMark; 

eRefEvent refevent = SLCRecomposeLogical ( f irstColPara^ firstPara, redispList, &aRng, rebreak }; 
// if { refevent eHoReformat ) 
// throw( scNoReformat ); 

// if ( rebreak firstPara ) 

// f irstPara->scAssertValid ( ) ; 

if { rebreak ) { 
// 

// Restore end of line setting after adding characters in case 
// we are still at the end of a hyphenated line. If we aren't. 
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gStreamCheingeInfo.Set( 0^ 0, 0, 0 ); 

} 

// 

// if the selection is multiple chars clear it, it will be the 
// app's responsibility to clear this ahead of time for undoing 

// 

if ( aFbg - fMark . f Para i= aRng , f Point . f Para || aRng . fMark . fOf fset i aRng . f Point . f Of fset ) { 
if ( CMGonteat( keyRecords[03 .keycode() ) ) { 

#if SCDEBUG > 1 
{ 

static int doit ^ 0; 
if ( doit ) { 

aRng . fMark , f Para->GetSpecRun { ) . PrintRun ( "scSelection : : ReyArray " ) ; 
SQ.l}BhM%i:T^.o^^{ 0, "offsets %d 

aRng. fMark, f Of fset, aRng. f Point. f Of fset ); 

} 

} 

#andif 

clearedSpec - aRng . fMark . f Para- >SpecAtOf fset ( aRng . fMark. f Of fset + 1 ); 
aRng.ClearText( redispList, true ); 
teKtCleared « true; 

#if SCDEBUG > 1 
{ 

static int doit; 
if ( doit ) 

aRng. fMark. fPara->GetSpecRun() .PrintRun ( "scSelection : :KeyArray 2" ); 

} 

#endif 

} 

else { 

switch { keyRecords[0] -keycode () ) { 
case scLeftArrow: 
case scUpArrow: 

break; 
case scRightArrow: 
case scDownArrow: 

aRng. fMark = aRng. f Point; 

break ; 

} 

} 

} 

firstPara ^ 0; 

// Remember this in case we add characters 
// right at the hyphen point. 
savedEndOf Line « aRng . fMark . f EndOf Line ; 

// walk down the array clearing text 
for ( count - 0; keyCount — ; count ++ ) { 

if ( keyRecords [count ] .noopO ) 
continue; 

if { I CMcontent( keyRecords [count] .keycode() ) ) { 
if (rebreak ) { 

SLCRecomposeLogical( f irstColPara, firstPara, redispList, SeaRng, rebreak ); 
firstPara - 0; 

} 

if { keyRecords [count ] .restoreselectO ) { 

Restore { ^keyRecords [count] .mark () , &keyRecords [count] .mark( ) , 0, false ); 
aRng ^ *this; 
aRng. Sort ( ); 
continue; 

} 

else { 
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} 



if ( aR!iH-> f Point. f Para ) { 

tKl « QRng->fPoint .fPara->GetFirstlinen ; 
if ( tKl 0 ) { 

if ( ( prevPara = aRng->fPoint , fPara->GetP3rev( ) ) i« 0) 

tKl ^ prevPara->GetFirstiine(); 
if ( Itxl ) 

return eHoReformat; 

} 

firetCol - txi->GetColumn(); 



} 

else 



return eHoReformat; /* \\ */ 



} 



if { rebreak firstPara ) 

return STRRefonnatC fiarstCol. firstPara. scInteractiveTiraeSlice, redispList )\ 
return eMoReformat; 



static int GetOf fsetChange ( short keyCount. 

scKeyRecord* keyRecords ) 

int offset - 0; 



for ( ; keyCount — ; ) 

offset +^ CMcontent( keyRecords [keyCount ] .keycode{) ); 
return offset; 



sarsss s fit 



N^id scSelection: :KeyArray( short 
' scKeyRecord* 



scSelection 

scCoIumn* 

scColumn* 

scContUnit* 

scContUnit* 

scBtreamLocation 

long 

register 

short 

Bool 

Bool 

Bool 

sclmmed i a t eRed i sp 
TypeSpec 



scRedispList* 

aRng( *this ) ; 
f xrstColPara; 
f i rstCo 1 Cursor ; 
para « 0; 

first Para; 
dumyPoint ; 
tKiMove; 
count; 

rebreak « false; 

teKtCleared * false; 
select ionMoved; 
savedEndOfLme; 
i jnmed i at eRed i sp ; 
ciearedSpec; 



keyCount^ 
keyRecords , 
redispList ) 



/* para to start re formating at */ 



aRng . Sort ( ) ; 



if ( aRng.fMark.fPara->GetFirstline( ) ) 

firstColPara - aRng . fMark. f Para- >GetFirst Col () ; 

else 

firstColPara = aRng , f Mark . f Co 1 ; 
firstColCursor - aRng . f Mark. f Col; 



// store what line we started on 
if ( firstColCursor ) { 

immediateRedisp.fStartLine « COLLineNum( &aRng ); 
immediateRedisp . f StopLine = intmediateRedisp . f StartLine ; 
immediateRedisp.fl3muediateRect.Set( 0, 0^ 0, 0 ); 
firstColCursor->LineEstents( immediateRedisp ); 

gStreaitiChangeInfo,Set( firstColCursor. aRng. f Ma rk.f Para. aRng.fPoint .fOf fset, GetOf fsetChang 
e( keyCount, keyRecords ) ); 
} 

else { 

immediateRedisp.fStartLine -1; 
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switch ( cSrtHng.RangeMovement ( ) ) { 
case eBeforeSelect : 

/* Extending line{s) from beginning of selection »/ 
case eEqualSelect : 

neither adding nor subtracting lines, */ 
cSrtRng,LineHilite( fuse ); 
break; 
case eAfterSelect : 

/* Subtracting line(3) from beginning of selection */ 
cSrtHng.fPoint.fHLoc - LONG_MAX; 
cSrtRng.LineHiiite( func ); 

APPDrawContext { fPoint .fCol->GetAPPMame( f Point. f Col, drawCtx ); 
f Point. fTKl->Hilite( NULL. LONG^MAX, 

Scf Point, fPoint .fHLoc, 

drawCtx , 

func, cSrtRng ); 

break; 

} 

} 

} 

/* Determine how this interactive selection is moving. *X 
/* This is only called by SLCInteractiveHiiite. «/ 
/* THIS ASSUMES MARK AND POIOT ARE OH DIFFEREOT LINES. */ 

eSelectMovement scSelection : :RangeMovement ( ) const 
{ 

f=l if ( fMark . f ParaCount > fPoint . fParaCount ) 
''Z return eBeforeSelect; 

else if ( fMark , f ParaCount fPoint . fParaCount ) { 
Cn if ( fMark.fOffset > f Point . f Of f set ) 

fll return eBeforeSelect ; 

1% else if ( fMark.fOffset fPoint .fOf fset ) 

return eEqual Select; 

.,^1 return eAfterSelect; 

y 

s'^atic eRef Event SLCRecomposeLogical ( scColumn* firstCol, 
l.y scContUnit* f irstPara , 

scRedispList* redispList, 
f^. scSelection* aRng, 

Zi short rebreak ) 

|J 

scTeKtline* txl; 
scContUnit* prevPara; 

/» the first column may be NULL if the selection were outside the 

* visible world, the SLCChangeSelection should may have put us back into 

* the visible world so let's check* otherwise no reformatting will 

* take place, there may be conditions in this type of situtation 
» that may create anomalies, I don't know what they are as of yet 
«/ 



if ( firstCol 0 ) { 

/* there is a llkelyhood here that we will 

* have to do nothing, since we may be out 

* of visible range, but then again this may 

* be forcing us back in so this may be tricky 

* if the current paragraph doesn't have a line 

* lets check the previous paragraph to see if it 

* has a line - if it does we can start with that 

* column 



firstCol * aRng-> f Point. f Col; 
if ( firstCol 0 ) { 
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// turn off old hiliting 
APPDrawContext( pSrtRng .f Point .£Col->GetAPPNam6() , pSrtRng . f Point . f Col . drawCtx ); 
pSrtRng , f Point . fTKl->Hi lite ( SpSrtRng . f Point . pSrtRng . f Point . fHLoc, 

ScpSrtRng . f Mark , pSrtRng . f Mark . f HLoc , 

drawCts^ func, pSrtRng ); 

/» turn on new hi li ting */ 
LineHilite( func ); 

} 

else if ( pSrtRng.fMark.flKl^-cSrtRng.f Point. fXxl 

II pSrtRng.f Point. fT2l=-cSrtRng.fMark.fTsl ) { 
/* prev selection was behind mark and new selection is past mark 

/* turn off old hiliting 
prevRange.LineHilite( func ); 

turn on new hiliting 
LineHilite( func ); 

} 

else if ( prevRange.fPoint.fTxl -^-^ pSrtRng . f Point , flKl ) { 

Prev selection more than one line, and we haven't flipped it. 

* Thus, the point succeeds the mark in both the previous and 

* current selections. 
«/ 

/* dehilite the line we were on 
APPDrawConteKt( pSrtRng. f Point .f Col ->GetAPPName() , pSrtRng. f Point. f Col, drawCtx ); 
pSrtRng.f Point. fT3sl->Hilite( HULL. LOlsTG^MIN, &pSrtRng .f Point, pSrtRng . f Point . f HLoc, drawCts, 
func, pSrtRng ); 

5 we want to hilite from the old point to the new point, 

■■'^ * including the line containing the old point 

;n */ 

1 1 cSrtRng.fMark - prevRange .f Point; 

; cSrtRng . fMark . f m,oc = LOMG^MIH; 

cSrtRng.fPoint = f Point; 

:j switch ( cSrtRng . RangeMovement ( ) ) { 

=^ case eBeforeSelect: /* Backing up, dehiiiting bottom line{s) »/ 

cSrtRng.f Point. fHLoc - LOHGJyfXN; 
cSrtRng.LineHilite( func ); 

;1 APPDrawContest ( fPoint.fCol->GetAPPName( ), f Point. f Col, drawCtx ); 

"1 f Point. fTKl->Hilite( mJLL. LOMG^MIH, 

:y Ssf Point, f Point. fHLoc, 

drawCtK, func, cSrtRng ); 

'.^i break; 

:f" case eEquaiSelect : /* Neither adding nor subtracting lines. */ 

case eAfterSelect ; /» Adding line(s) to bottom of selection 
cSrtRng.LineHilite{ func ); 
break ; 

} 

} 

else if ( prevRange. fPoint.fXxl pSrtRng .fMark. fXxl ) { 

/» Previous selection more than one line, and we haven't 
» flipped it. But point precedes the mark in both the 

* previous and current selections. 
»/ 

/* dehilite the line we were on */ 
APPDrawConteKt ( pSrtRng, fMark.fCol->GetAPPName( ), pSrtRng. f Mark . f Col , drawCts ); 
pSrtRng.fMark.fTxl->Hilite( ScpSrtRng . f Mark , pSrtRng , f Mark . fHLoc , 

MULL, LOmjm, 

drawCtx, func, pSrtRng ); 

/* Start where old range left off, */ 
CSrtRng.fMark - prevRange. f Point; 

Extend to end of this first line.*/ 
cSrtRng . f Mark . fHLoc « LONG„MAX; 

/* Point is unchanged. »/ 
CSrtRng.fPoint - f Point; 
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txi->Hiiite( MILL, LONG^MIN, MULL. LOMG„MAX, drawCtx, func, cSrtRng ). 



} 

mark all the lines of a selection range with the passed in bit */ 
void scSelection; :MarkLayautBits{ const scLayBits& mark ) 

scColum* cl; 

scColumn* c2; 

scColumn* c; 

scTeKtline* tl; 

scTestline* t2; 

scTestline* t; 

scSelection cSrtRn0( *this ); current sorted ranqe »/ 

cSrtRng.Sort( ); 

cl = cSrtRag.fMark.fCol; 

c2 - cSrtRng.f Point. f Col; 

tl - cSrtRng.fMark.fTKi; 

t2 = cSrtRng.f Point. fTKl; 

if ( tl t2 ) 
r-i tl->Mark( mark ) ; 

else if ( cl ^« c2 ) { 
U for ( ; tl tl LKINeKt(t2); tl » LIsflSText (tl) ) 

in tl->Mark( mark ); 

ril } 

" J else { 

for ( c cl; c &£t c !« c2->GetM0Kt () ; c « c->GetNe22t { ) ) { 
iy if C c — cl ) { 

tl->Mark( mark ); 
^-i ^or i t - LMeKt( tl ); t; t « LmeKt( t ) ) 

t">Mark( mark ); 

} 

n else if ( c — c2 ) { 

n for ( t - c2->GetFirstline(); t ScSt t !- LlslHext (t2) ; t - LMeKtf t ) ) 

/I t->Mark( mark ); k ^ j 

iy } 

i:k else { 

?^ ( t - c->GetFirstline(); t; t - Lmrext( t ) ) 

t->Mark{ mark ); 

} 

} 

} 

/* called from a continue click or after a appmouse down, 
» hi lit© the new area 
»/ 

void scSelection: :InteractiveHilite( scSelectionS. prevRange, 
^ HiliteFuncPtr func ) 

scSelection cSrtRngC *this ); /* current sorted range 

scSelection pSrtRng( prevRanga ); /* previous sorted ranqe */ 
APPDr9?CtK drawCts; 

if ( pSrtRng cSrtRng ) 
return ; 

pSrtRng.Sort( ); 
cSrtRng,Sort( ); 

if ( pSrtRng . fMark . fXxl pSrtRng . f Point . fTnl ) { 
// previous selection was one line 
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if ( stream lastPara ) { 

fMark.fPara ^ stream->First() ; 

f Mark, f Off set « 0; 

f Point, f Para - lastPara; 

f Point. f Off set = PARAChSi2e( lastPara ) 

fMark.fEndOfLine - false; 

f Point. fEndOf Line « false; 

Chan0eSelectxon( SLC^LOCATE, false ); 



} 



/* hilite the selection range »/ 
void scSelection: :LineHilite( HilitaFuncPtr func ) 

scColumn* coll; 
scColumn* colZ; 
scTeKtline* txll; 
scTextline« t2l2; 

scColumn* col; 
scTestline* tsl; 

APPDrwCts: drawCtx; 

scAssertValidO ; 

scSelection cSrtRng( *this ); 
% J cSrt Rng . Sort ( ) ; 

Fi: coll ^ cSrtRng >f Mark. f Col; 

col 2 - cSrtRne *f Point, f Col; 
%^ tKll - cSrtRng . fMark . fXsl ; 
|y tKl2 - cSrtRng.fPoint.flKl; 

Mf SCDEBUG > 1 

cSrtRng.DbgPrintInfo( 3 ); 
#end if 

if ( coll S£c C0I2 txll txl2 ) { 
la if C tKll txl2 ) { 

ys. APPDrawConteKt ( coll->GetAPPNam0O * coll, drawCts ); 

^ txll->Hilite( SccSrtRng.fMark, cSrtRng , fMark . f HLoc , S^cSrtRng.f Point. cSrtRng . f Point . fHLoc 
^Jdra^Ctx, func, cSrtRng ); 

} 

else if ( coll col2 ) { 

^ coil->Hilite( cSrtRng , f Mark , cSrtRng .f Point, func, cSrtRng ); 
else { 

for ( col = coll; col col 1= cal2->GetNext ( ) ; col « col->GetMext () ) { 
if ( col coll ) { u J X 

APPDrawContext ( coll->aetAPPNaiue() , coll, drawCtx ); 

"^^^^"^^i^i^^C SccSrtRng.fMark. cSrtRng . f Mark . fHLoc , LONG„MAX, drawCtx, func 

, cbrtHng ) ; 

for ( txl « LMextCtsll); txl; txi - Lmext( txi ) ) 
^ txl">Hilite( MILL, LOHG^Mm, HULL, LONG„MAX, drawCtx, func, cSrtRng ); 

else if ( col col2 ) { 

APPDrawContext ( col2->GetAPPHame ( ) , col2, drawCtx ); 

for ( txl « col2->GetFirstline(); txl txl !- txl2; txl - LMextf txl ) ) 
txl~>Hilite( NULL, LONG^Mm, mil. LONG„MAX, drawCtx, func, cSrtRng ); 
^ , txl2->Hiiite( KULL, LOHG^MIN, teSrtRng .f Point, cSrtRng . f Point , fHLoc, drawCtx, fu 

nc, cbrtRng ); 

} 

else { 

APPDra^Context ( col->GetAPPName() , col, drawCtx ); 

for ( txl - col->GetFirstline(); txl; txl « Lls3NeKt( txl ) ) 
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f Point, f Off set - t3i:l->GetERdOf fset { ); 
If ( 

#ifdef GermanHyphenatiort 

tsl->IsHyphanated() ! SLCHsxtLineChar ( txlH ) 



#else 
#endif 



t s 1 - > I sHyphena ted ( ) 

) 

fPoint ,fEndO£Line = true; 

else 

f Point .fEndOf Line - false; 
ChangeSelection( SLC_LOCATE* false 



} 



take the current selection and convert it into a para selection */ 

void scSelection: :ParaSelect ( void ) 
{ 

scContUnit* para; 

Changes© lecti on ( SLC^LOCATE, false ); 
para * f Mark. f Para; 

if ( para ) { 

f Mark. f Off set - 0; 

f Point. f Off set - PARAChSi2e( para ); 

n f Mark, fEndOf Line - false; 

f Point. fEndOfLme « false; 

Cn ChangeSelection( SLC^LOCATE, false ); 



=y<f take the current selection and convert it into a column selection */ 
Vbid scSelection: :ColumnSelect ( void ) 
p ChangeSelection( SLC_LOCATE, false ); 
;i if ( fMark.fCol ) { 

iy scTextlme* firstiine « fMark.fCol->aetFirstline(); 

1^ scTeKtline* lastline = fMark,fCol->GetLastline{) ; 

\i fMark.fPara « f irstline->GetPara ( ) ; 

-U fMark.fOffset - f irst line- >GetStartOff set () ; 

fMark.fEndOfLine ^ false; 

f Point. f Para « lastline->GetPara () ; 

f Point. f Off set ^ lastline~>OetEndOf fset ( ) ; 

f Point .fEndOf Line - true; 



> 



ChangeSelection( SLC„LOCATE, false 



} 

take the current selection and convert it into a selection of the 
* entire stream 
*/ 

void scSelection: :AllSelect( void ) 
{ 

scStream «stream; 
scContUnit *lastPara; 

if ( fMark.fCol ) { 

stream * fMark.fCol->GetStream() ; 

lastPara ^ stream->Last { ); 
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int TeKtMarker: : opera tor >«{ const TeHtMarkerSt tm ) const 
{ 

if ( fParaCount > tm . f ParaCount ) 

return true; 
else if ( f ParaCount tm.f ParaCount ) 

return f Off set >- tm.fOffset- 
return false; 

} 

int Tex tMarker :: opera tor< - ( const TeKtMarkerSc tm ) const 
{ 

if ( f ParaCount < tm . f ParaCount ) 

return true; 
else if ( fParaCount tm. f ParaCount ) 

return f Off set <==^ tm.f Off set; 
return false; 

} 

int TegtMarker: :operator==( const TextMarkerfi. tm ) const 
{ 

return fParaCount »= tm . fParaCount &£e f Off set =- tm.f Off set; 

1 

C5it TextMarker : : operator ! = ( const TextMarkerS tm ) const 

rfl 

return fParaCount != tm . fParaCount 1| f Off set != tm.f Off set; 

M/' sort the selection so that the mark appears before the point 

f^id scSeiection: :Sort{) 

if ( fMark <- fPoint ) 
return; 

U Te5£tMarker temp( fMark ); 

13 fMark « f Point; 
f Point « tesip; 

} 

take the current selection and convert it into a word selection *y 
void scSelection : :WordSelect ( void ) 

{ 

fMark. fPara->SelectVtord( fMark. f Of f set, fMark .f Of f set, f Point. f Of f set ) 
ChangeSelection( SLC_LOCATE, false ); 

} 

/« =! K ss = ss es sts » e =s ss ss x: » M w at « a » =K w ta ss C! M s= » o K « SB rs « « =! 3* w 

take the current selection and convert it into a line selection »/ 

void scSelection : rLineSelect ( void ) 
{ 

scTextline* txl; 

ChangeSelection( SLC_LOCATE. false ); 
txl « fMark. flKl; 

if ( tKl ) { 

fMark. fOffset - txl->GetStartOf fset ( ); 
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return result; 

} 

#endif 

#if SCDEBUG > 1 

void TsKtMarker: :DbgPrintInfo( int debugLevel ) const 

^ SCDebugTrac0( debugLevel, scStrin0( "fCol Ox^OSx fPara QkXQSx FTkI 0K%082J\n" 
fCol, fPara, FTkI ); 

SCDebugTrace( debugLevel. scString( "fColCount %d fParaCount Zd fLineCount M fOffset S^d\n" 
fColCount. fParaCount, fLineCount, fOffset ); 

} 

void TeKtMarker: :scAssertValld() 
{ 

if { fCol ) 

fCol->scAssertValid() ; 
if ( fPara ) 

fPara-'>scAssert Valid ( ) ; 
if ( fXsl ) 

fTKl->scAssertValid() ; 

in 

Wliid scSelection: rscAssertValid () 

: f Mark . scAssartVa 1 i d { ) ; 
f Po i n t . scAssertVa 1 i d ( ) ; 

1 

IS)id scSelection: :DbgPrintInfo( int debu^Level ) const 

HI 

H.= SCDebueTrace ( debu^Level, scString( "scSelection: vn*' ) ); 
fMark,DbgPrintInfo( debugLevsl ); 
fPoint .DbgPrintInfo( debuglevel ); 

CI 

#endif 

int TestMarker: : opera tor>( const TextMarkerS: tm ) const 
{ 

if ( fParaCount > tm . f ParaCount ) 

return true; 
else if ( fParaCount tm. fParaCount ) 

return f Off set > tm.fOffset; 
return false; 

} 



int TextMarker: : operator < ( const TestMarker€< tm ) const 

^ if ( fParaCount < tm. fParaCount ) 

return true; 
else if ( fParaCount =^ tm. fParaCount ) 

return f Off set < tm.fOffset; 
return false; 

} 
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// the para and the offset are the only reliable values, 
// derive the others 
//scAssert{ ggcS.scRecomposeActive i false ); 

/* We use if -else instead of switch () because KStR requires »/ 
/» the switch {) expression to foe an ^^int'', not a ^Uong''. 
/* And oh yes, Microsoft C 6,0 generates buggy code for such a switch () 
even though it claims to be ANSI -conformant ! */ 

if ( larrowKey ) { 

if ( tSBMove SLC^LOCATE ) { 
fMark.fOf fset tmMove; 
f Point .fOff set tniMove; 

} 

} 

else { 

switch ( tmMove ) { 
case KEXTJINE: 
case PREV^LIM: 

f Mark, f Off set = tm^k3ve; 
fPoint .fOf fset tmMove; 
break ; 
case -1: 

if ( fMark.flKl 

fMark.fOffset fMark.fTKl->GetStartOffset( ) S£^ 
( ( prevLine - LOTrev( fMark.fTxl ) ) 1- 0 ) &Sc 
prevLine->IsHyphenated() ) { 
fMark.fEndOfLine « true; 
fj f Point .fEndOf Line = true; 

3 >, , 

:z else { 

fMark.fEndOfLine - false; 
fy fPoint.fEndOfLine - false; 

fMark.fOffset—; 

f Point, f Offset—; 

- } 

break; 
case 1: 

if ( fMark.fEndOfLine ) { 
^ fMark.fEndOfLine = false; 

O f Point *fEndOf Line - false; 

} 

else { 

fMark . f Of f set++ ; 
f Point . fOf f set+4-; 
ri if ( fMark. riKl 

:r fMark.fOffset fMark. f TKl->GetEndOff set () 

W fMark. fTKl->IsHyphenated() ) { 

fMark, fEndOf Line » true; 

fPoint.fEndOfLine « true; 

} 

} 

break ; 

} 

SCASSERT ( select-> f Mark. f Para select-> f Point . f Para ); 

fMark. Update ( cursDirect, GetFlowset() ); 

return fPoint .Update { cursDirect, GetFlowset() ); 

} 

/* Returns true if a German hyphenation spelling change also affects */ 
/* the following text line. *^ 

#ifdef GennanHyphenation 

static Bool SLCHeKtLmeCharC scTextline* txl ) 
{ 

Bool result; 



result tsl->fHextLineChar; 
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locate ^ false; 

else if ( fOffset < 0 ) { 
/* previous paragraph */ 
if ( f Para -> Get Prev() ) { 

FPara - fPara->0etPr@v{ ); 
f Off set - PAR^^ChSi2e( fPara ); 

} 

else { 

f Off set - 0; 

select ionMoved = false; 

fEndOfLine « false; 

else if ( f Off set > PARJVChSize( fPara ) ) { 
/* neKt paragraph »/ 
if ( fPara->GetNeKt( ) ) { 

fPara ^ fPara->GetHeKt ( ); 
f Off set « 0; 

} 

else •{ 

f Off set « PARAChSize{ fPara ); 
selectionMoved false; 

} 

fEndOfLme false; 

> 

fParaCount = fPara">GetCount ( ) ; 

^.3 PARAFindLocation will set fEndOfLine to false if it 

fn finds it is no longer relevant (if we are m the middle 

I':] // of a line^ for eKample) , 

if ( locate ) 

\i fPara->FindLocation( fOffset, fEndOfLine. fT^l. fHLoc, movement ); 

!:1 if ( fiKi ) { 

fCoi - col - fTsl->GetColumn() ; 
fj fColCount - col->GetCount () ; 

^ fLineCount ^ fTxl->GetLinecount () ; 

if ( setPosition ) 
"---^ fSelManX - fHLoc; 

I : s else 

Zero{ thePOIOT. false ); 
C3 return selectionMoved; 

IS 

/* something has happened to change the selection, let us correct it */ 

void scSelection: :UpdateSelection() 
{ 

if ( fMark.fPara ) 

fMark .Update ( eCursNoMovement , fFlowset ); 
if ( f Point. f Para ) 

f Paint .Update ( eCurs^^oMovement , fFlowset ); 

} 

void scSelection: :CheckFreePara( scContUnit* p ) 

{ 
} 

Bool scSelection: :ChangeSelection( long tmMove, 

Bool arrowKey ) 

^ scTeKtline* prevLine; ^ „ , 

eContentMovement cursBirect = tmMove > 0 ? eCursForward : eCtirsBackward; 
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// it will select it - otherwise it wxll simply fail and 
// zero the test marker 
if ( f Off set < 0 ) 
f Off set - 0: 

// PARAFindLocation will set fEndOfLine to false if it 
// finds it is ao longer relevant (if we are in the middle 
// of a line, for example ) - 
if ( !fPara->FindLocation( fOffset, fEndOfLine, iT%l. fHLoc, movement ) ) { 
if ( fPara PAHAChSize( fPara ) < f Off set ) 

fOffset - PARAChSi2e( fPara ); 
Zero( thePOIOT. false ); 
return false; 

} 

else { 

fCol - col « fTKl->GetColumn(); 
fColCount * col->GetCount ( ); 
fLineCount = fTKl->GetLinecount () ; 
fSelHaxX = fHLoc; 

return selectionMoved; 

} 

} 

if ( fOf fset — HEXr„LINE t t f Off set PREV^LIHE ) { 
if ( f Of fset NEXr„LME ) 

tsl - fTs:l->GetNeKtLoeical(); 

else 

txl « fT2jl->GetPrevLogical () ; 



if 0 



Ifendif 



if ( tKl ) { 

fCol « tKl->GetColuann{); 

if ( fCol->GetFlowdir().IsVertxcal() ) { ...... u . x 

if ( t:Kl->GetOrigin() ,y + tsl->GetMeasure() <- fSelMa^X £c& tKl->IsHyphenated ( ) ) 
fEndOfLine ^ true; 

else 

fEndOfLine - false; 

} 

^"^^^if ( tKl->GetOrigin() ,K + tKl->GetMeasure () fSelMaxX txl->lsHyphenated( ) ) 
fEndOfLine » true; 

else 

fEndOfLine ^ false; 

} 

fTKl - tKl; 

} 

else 

selectionMoved = false; 

fPara - fTKl->GetPara( ); 
setPosition = false; 

fiowDir = fTKl->GetFlowdir(); 
vertical « f lowDir .isVerticai () ; 

mPt « fTKl->GetOriein() ; 
if ( vertical ) { 

mPt.y - fSelMaKX; 

mPt .Translate ( "fTsl->GetVJOf fset () . 0 ); 

} 

else { 

mPt.K = fSelMaKX; 

mPt .Translate ( 0, fTKl->GetVJOf fset () ); 

} 

scMuPoint charOrg; 

fTsl->Select( charOrg. fOffset. mPt, movement. fEndOfLine ); 
if ( vertical ) 

fHLoc charOrg.y; 

else 

fHLoc « charOrg.s; 
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/* zero out the layout portions of the tent marker^ the logical selection 
* remains the same but something has changed the layout structure and we 
« need to zero out that portion of the selection 
»/ 



void TextMarker; :Ze3ro( int type, 

Bool 2eroLo0icai ) 

{ 

fCol - 0; 

fXsl - 0; 

fEndOfLine = false; 

switch ( type ) { 
default: 
case thePOIOT: 
fSelMaxX 
fColCount 
break ; 
case theMARK: 
fSelMaKX 
fColCount 
break; 

} 

if ( zeroLogical ) { 
fPara - 0; 

fParaCount « 0; 
f Off set « 0; 

} 

C?Uid TeKtMarker: :UpdateInfo( int setMan ) 
if ( fPara ) { 

fPara->FindLocation( fOffset, fEndOfLine, flEl, fHLoc, eCursMoMovement ) 

a if ( fXKi ) { 

~r fCol « ns:l->GetColumn() ; 

fColCount « fCol->GetCount{); 

fLineCount « fT5sl->GetLinecount ( ) ; 

if ( setMaK ) 
i-l fSelMasX = fHLoc; 
;1 } 

!: > 

ij else 

fn InvalidateO ; 



fHLoc 

fLineCount 



LONG^M^; 
LONG_MM; 



« fHLoc 
fLineCount 



LOWG„HIH; 
LONGJMilN; 



} 

y/ move the selection based upon the value of trriMove 



Bool TestMarker: :Update( eContentMoveinent movement, 

scCoiumn* flowset ) 



scColumn* 

scTeKtline* 

scMuPoint 

Bool 

Bool 

Bool 

Bool 

scFlowDir 



col ; 
tKl; 
mPt; 

setPosition 
locate 

selectionMoved 

vertical 

f lowDir; 



^ true; 
« true; 
- true; 
« false; 



if ( flKl 0 ) { 

fParaCount - fPara'->GetCount () ; 



fEndOfLine ^ false; 



// this indicates previous line, lets set it to the beginning 
// of the paragraph and see ^hat Mpp^ns. if it finds a line 
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fMark.InvaiidateO ; 
f Point. Invalidate () ; 

} 

/* insure that we have a valid selection »/ 

Bool scSeiection: :ValidateSel©ction( scSelection& validSelect ) const 
{ 

scColumn* coll; 
scColumn* col 2; 
scContUnit* last Para; 
scTextline* lastTxl; 
scFlowDir flowDir; 

coll - fMark.fCol; 
col 2 - fPoint-fCol; 
if { coll ScSc col2 ) 

validSelect « *this; 
else if ( coll ) { 

// the mark lies outside the visible region 

// establish the last visible location that is visible 
lastPara * fMark. fPara->GetLastVisiblePara ( ) ; 

lastlKl * lastPara->GetLastVisibleLiae(); 

col2 « lastTKl-->GetColumn(); 

flowDir « col2*>GetFlowdir() ; 

Cl mark should be ok 

validSelect.fMark * fMa.rk; 

// set up last visible point 
validSelect.f Point. f Para - lastPara; 

^l validSelect .f Point. fParaCount = lastPara->GetCount ( ) ; 

W validSelect.f Point. FTkI - lastTxl; 

'"^J validSelect.f Point, fLmeCount - lastTsl->GetLinBCOunt () ; 

O validSelect.f Point. fOff set - lastTKl->GetEndOf fset ( ); 

" validSelect. f Point. fCol - col2; 

13 validSelect.f Point. fColCount « col2->GetCount ( ); 

if ( lastTKl->IsHyphenated() ) 
1^ val idSelect.f Point .fEndOf Line ^ true; 

^ el se 

% val idSelect.f Point. fEndOf Line - false; 



#if 1 
#else 



validSeiect.fPoint.fHLoc » LONG^MAX; 

scXRect xRect; 

lastTxl ->Quer7EKtents( sRect ); 



if ( flowDir. IsVertical () ) 

validSelect,fPoint.fHLoc - xRect.y2; 

else 

validSelect .fPoint .fHLoc « sRect.x2; 

#endif 
} 

else { 

validSelect.fMark. Zero ( theMARR, true ); 
val idSelect.f Point. Zero { thePOIOT, true ); 
return false; 

} 

val idSelect . scAssertVal id ( ) ; 



return true; 

} 



File : Work\CrtPrt\Stonehnd\Scselect .cpp 



TypeSpec ts p->GetDefaultSpec ( ) ; 
tsList . Insert ( ts ) ; 

} 

} 

void scSelection: :GetCharSpecList( scSpecLocListSc csList ) 
{ 

long offsetl, 
offsetZ; 
scContUnit* p; 
seContUnit* pi; 
scContUnit* p2; 
scContUnit* last Para; 

scSelection aRng( *this ); 
aRng.Sort( ); 

pi ^ aRng . f Mark . f Para ; 

offsetl « aRng.fMerk.fOffset; 
p2 ^ aRng.fPoint.fPara; 

off set 2 = aRng. f Point *f Off set; 

if ( pi - p2 ) 

pl->OffsetGetCharSpecList{ offsetl. offset2. csList ); 
else { 

lastPara = p2->GetNest( ); 

for { p « pi; p SeSc p !« lastPara; p - p->aetMeKt() ) { 
O if ( P - pl ) 

.-I p->OffsetGetCharSpecList( offsetl. LOHG^MAX. csList ); 

IZ else if ( p p2 ) 

V' p->Of fsetGetCharSpecList ( 0^ offset2, csList ); 

fy else 

.'^ p->OffsetGetCharSpeoList( 0. LONG^MAX, csList ); 

} 

W } 

■^pid scSelection: :MarkValidatedSeiection( const scLayBxtsS* mark ) 

y 

; scSelection validatedSelection; 

1^ if ( ValidateSelection( validatedSelection ) ) 
12 validatedSelection -MarkLayoutBitsl mark ); 



void scSelection: :ValidateHilite( HiliteFuncPtr func ) const 
{ 

scSelection validatedSelection; 

#if SCDEBUG > 1 

BbgPrintlnfoC 3 ); 

static int noHilite; 

if ( noHilite ) 
return ; 

#endif 

if ( ValidateSelection( validatedSelection ) ) 
validatedSelection. LineHilite( func ); 

} 

/* invalidate the selection if the selection lies in the indicated stream * 

void scSelection: : Invalidate () 
{ 
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offset 2 = aRng. f Point. f Off set; 

if ( paral parci2 ) { 

only one paragraph 

if (offsetl offsetZ) 

^ TypeSpec ts « para 1- > SpecAtOff set ( offsetl ); 
tsList.Insert ( ts ); 

} 

else 

paral->OffsetGetTSLxst( offsetl>> offset2^ tsList ); 

} 

else { 

lastPara « para2->GetNeKt ( ); 

for ( para - paral; para S^S, para lastPara; para « para->aetNeKt () ) { 
if ( para *« paral ) 

para->OffsetGetTSList( offsetl, LONG^M^, tsLxst ); 
else if ( para paraZ ) 

para->OffsetGetTSLxst{ 0, offsst2, tsList ); 

para->OffsetGetTSList( 0, LOMG_MAX, tsList ); 

} 

} 

} 

void scSelection: :GatParaSpec:List( scSpecLocListS* csList ) 

o 

,5 long offsetl, 

11 offset2; 
^} scContUnit* p; 

fy scCoRtUnit* pi; 

.1 scContUnit* p2; 

T"; scContUnit* lastPara; 

"^J scSelection aRng( *this ); 

12 aRng .Sort ( ) ; 

^"'^ pi = aRng . f Hark . f Para ; 

C3 offsetl ^ aRng.fMark.fOffset; 

-.J p2 aRng.f Point, f Para; 

.1 offset2 = aRng. f Point. f Off set; 

H lastPara « p2->GetNeKt( ); 

n for ( p - pi; p p 1« lastPara; p = p->GetMest{) } { 
J5 scSpecLocation specLoc( p->GetCotint () * p->GetDefaultSpec('3 ); 

csList .Append ( specLoc ); 

} 

} 

void scSelection: :GetParaSpecListC scTypeSpecListS: tsList ) 
{ 

long offsetl, 
OffsetZ; 
scContUnit* p; 
scContUnit* pi; 
scContUnit* p2; 
scContUnit* lastPara; 

scSelection aRng( »this ); 
aRng.Sort( ); 



pi ^ aRng . fMark . f Para ; 

offset! ^ aRng.fMark,fOffset; 
p2 = aRng.f Point. f Para; 

offset 2 - aRng.fPoint .fOffset; 



lastPara « p2~>GetHeKt( ); 

for ( p - pi; p p l« lastPara; p - p->GetNeKt() ) { 
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File: SCSELECT.C 

$Header: /Projects/Ioolbos/ct/Scselect ,cpp 2 5/30/97 B:45a tonis $ 
Contains: handles the selection object/id 
Written by: Man is 

Copyright (c) 1989*94 Stonehand Inc^ of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

#include "scselect.h" 
^include "scpubobj .h*' 
#include "sccolumn.h" 
#include "scglobda.h" 
^inaludB "scparagr.h" 
#include "scstream.h" 
iBnclude "sctextli,h" 
.#include "scexcept.h" 
Mnclude "sccallbk.h" 
y^include "scstcach.h" 

.j^nclude <limits.h> 

^ypedef enum ePointAndMark { 
"^4 thePOIOT = 1, 
theMARK 

7' 

Ciifndef HUGEJ/AL 
^Mefine HUGE_VAL HJGE 
5&ndif 



''#ifdef GermanHyphenation 

static Bool SLCHeKtLineChar( scTextline * }; 
#endif 



#define SLC„LOCATE (LOHG^MAX-l) 

/» get a list of type specs used in the selection */ 

void scSelection : :GetTSList ( scTypeSpecListSc tsList ) 
{ 

long offsetl, 
offset2; 
scContUnit* para; 
scContUnit* paral; 
scContUnit* para2; 
scContUnit* lastPara; 

scSelection aRng ( *this ); 

aRng. Sort ( ); /* sort the selection */ 

paral ^ aRng . f Mark . f Para ; 
offset 1 « aRng. f Mark. f Off set; 
para2 = aRng. fPoint.f Para; 
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int 




int 


EndWord ( void ) ; 


int 




int 


HextLine( void ); 


■i nt 




int 


MestEntireLine( void ); 




t-aX^T-'l-xn^ \ vOxCl } ^ 


int 


EadLine( void ) ; 




rx evuoiuiriii ^ voxu 


int 


HextCoiumn( void ); 




E.IiU\-^t3XUuul \ VOX la } r 


int 


StdrtColumn( void 


int 


BegiaPara( void ); 


int 


EndPara( void ) ; 




rdra ( eSsl©ctMove jsoveSelBOt )i 


scColumn* 


fFlowset; 


TextMarker 


fMark; 


TextMarker 


fPoint; 



protected : 

IJ 



l^ndif /* „H.SCSELECT */ 
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#ifdef _RUBI„SUPPORT 

Bool 

void 
#endif 



G5etAnnotation( int nthr scAnnotationS; ); 
AppiyAnnotation ( const scAnnotation& , scRedispList* ): 



scStream* GetStreain( void ) const; 

TypeSpec GetSpecAtStart ( void ) const; 

// this will report the position of the point 
y/ in relationship to the mark 
eSelectMovement RangeMovement ( void ) const; 



void Decompose ( scStreamLocatxonSc, scStreamLocationSc ); 

void Decomposed ( scStreamLocationS*, scStreamLocationSs ) ; 

void Restore { const scStreamLocation*^ 

const scStreamLocation*, 

const scStream*, 

Bool }; 



scSelectionSc operator'=( const scSelectionS sel ) 
{ 

fFlowset = sel , fFlowset; 
FMark =* sel.fMark; 

fPoint - sel.fPoint; 

return *this; 



IZ int operator-=«( const scSelection£= sel ) const 

¥.1 { 

I y return ( 

1.1 fMark.fPara — sel ,f Mark. f Para 

."'"l fMark . f ParaCount sel .f Mark, f Para Count &Sc 

fMark . f Of fset " sel . fMark . f Of f set 

fMark. fEndOf Line sel .fMark. fEndOf Line £c& 

ri f Point. f Para sel .f Point .f Para 

f Point. fParaCount sel .f Point .fParaCount 

f Point, f Of fset sel .f Point .f Of fset &.S^ 

il f Point .fEndOf Line ^= sel .f Point .fEndOf Line 

} 



fl invalidate the selection 

f"^^ void Invalidate ( void ); 

void HoveSelect( eSelectMove ); 

void Extend ( eSelectMove ); 

void WordSelect( void ); 

void LineSelect( void ); 

void ParaSelect( void ); 

void ColumnSelect ( void ); 

void AllSelect( void ); 

// mark all the layout objects associated with 
the selection 

void MarkLayoutBits( const scLayBitsS* ); 

#if SCDEBUG > 1 

void DbgPrintInfo( int debugLevel « 0 ) const; 

void scAss©rtValid( void ); 
#else 

void scAssertValid( void ){} 
#endlf 

int Prevtord( Scope scope - inStream ); 

int NeKtWord( Scope scope « inStream ); 

int PrevSpel IWord ( Scope scope ^ inStream ); 

int WextSpellWord( Scope scope - inStream ); 
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void HthParaC scStream* stream, long nthPara ); 

void SetParaSelection( scContUnit* 

long start, 

long end ) ; 

void G^tContUnits ( scContUnit*^ mark, scContUnit*S? point ) const; 

void CutTeKt( scScrapPtrSc, scRedispList* ); 

void ClearText ( scRedispList* , Bool ) ; 

void CopyTeKt( scScrapPtrS: ); 

void PasteText( const scStream*, TypeSpec, scRedispList* ): 

void CopyAPPTest( stTest Import ExportSc ); 

void PasteAPPText ( stTest Import Export^, scRedispList* ); 

void InsertField( const clFieldS:, 

TypeSpec^i, 
scRedispList* ); 

void SetStyle( TypeSpec, scRedispList* ); 

void GetTSList( scTypeSpecListSc ); 

void QetCharSpecList ( scSpecLocListSc ); 

void GetParaSpecList ( scSpecLocList& ); 

void GetParaSpecList ( scTypeSpecListSt ); 

void SetFiowset{ scColumn* col ) { fFlowset - col; } 

{i scColumn* Getriovfset( void ) const { return fFlowset; } 

Iz void SetMark( const TextMarkerSc mark ) { fMark mark; } 

& TextMarkerSc GetMark( void ) { return fMark; } 

void SetPoint( const TeKtMarkerSt point ) { fPoint « point; } 

TeKtMarker& GetPoint( void ) { return f Point; } 



is the selection just a caret (i.e. no content selected ) 
IsSl i ver Cursor ( void ) const { return fPoint -« fMark; } 

ContentSize ( ) const; 

we are freeing this paragraph, check to see if we need 
to invalidate the selection 
CheckFreePara ( scContUnit* ); 



f«^5 void UpdateSelection( void ); 

yy sort so that the mark occurs before the point 
void Sort( void ); 

void ValidateHilite ( HiliteFuncPtr } const; 

Bool ValidateSelection( scSelectioni ) const; 

Bool ChangeSelection( long tmMove, 

Bool arrowKey ); 

void CorrectSelection { scContUnit* paral, 

long 

scContUnit* para 2, 

long of fset2 ) ; 

void Interact! veHi lite ( scSelectionSe, HiliteFuncPtr ); 

void MarkValidatedSelection( const scLayBits& mark ); 

void LineHilite( HiliteFuncPtr ); 

void Iter( SubstituteFunc func, scRedispList* ); 

void KeyArray( short, scKeyRecord*, scRedispList* ); 

void TeEtTrans{ eChXranXype, int, scRedispList* ); 



Bool 
- int32 



^'^ void 
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Bool Update ( eContentMovement, scColumn* flowset ); 

void UpdateInfo( int setMaK ); 

int SelectPrevCharInPara( void ); 

int SelectNestCharInPara( void ); 

int SelectPrevCharC void ); 

int SelectHeKtChdr( void ); 

int SelectPrevLine ( void ); 

int S$lectHextLirte( void ); 

int SelectStartLineC void ); 

int SelectEndLine( void ); 

Bool SelectPr0vWord( void ); 

Bool SeiectHextWord( void ); 

Bool SelectPrevSpellWord( void ); 

Bool SelectNeKtSp$lWord( void ); 

int SelectStartWord ( void ); 

int SelectEndWord( void ); 

int SeiectStartSpellWordC int eieminateLeadingSpaces « 0 ); 

int SelectEndSpellWord( void ); 

iJ 

~5 int Selec:tStartPara( void ); 

IZ int SelectEndPara( void ); 

fU int SelectPrevPara{ void ); 

J 2 int Selectl^extPara ( void ); 

int SelectStartColumn( void ); 

'^d int SelectEndCoi™n( void ); 

'^"^ int SelectStartStream( ) : 

■^^ int S^lectEndStreamO ; 

#|f SCDEBUG > 1 

. ,1 void DbgPrintInfo( int debusLwel « Q ) const; 

Y'.^ void scAssertValid{ void ); 

void scAssertValid( void ){} 
MndiE 



class scSelection : public scObject { 
public: 

enum Scope { 

inContUnit, 

inStream^. 

inLine, 

inColumn 

}; 

scSelection( scCoiumn* flowset « 0 ) ; 
fFlowset( flowset ){} 



scSelection( const scSelectionSc sel ) 
{ 

fFlowset sel . fFlowset; 

fMark * sei.fMark; 

f Point sel. f Point; 
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f Para ( cu ) , 
fTKl( 0 ). 
fColCount{ 0 ), 
fParaCount{ poffset ), 
fLineCount( 0 ), 
fOffset( offset ), 
fHLoc( 0 )r 
£SelMaxX( 0 

fEndOfLine( false ) {} 
Te!KtMarker{ const TeKtMarker& tm ) 



{ 



fCol 

fPara 

fTxl 

fColCount 

fParaCount 

flineCount 

fOffset 

fHLoc 

fSelMaKX 

fEndOfLine 



tm.fCol; 

tm-fPara; 

tm-flKl; 

tm.fColCount; 

tm.fParaCount; 

tm.fLineCount; 

tJsi.fOf fset; 

tm . fHLoc ; 

tm.fSelMaKX; 

tiu.fSndOfLine; 



scColumn* 

scContUnit* 

scTeKtline* 

long 

long 

long 

long 

MicroPoint 
MicroPoint 
Bool 

TextMarkerSr 



int 
int 
int 
int 
int 
int 

void 
void 



fCol; 

fParaj 

flKl; 

fColCount; 

fParaCount; 

fLineCount; 

fOffset; 

fHLoc; 

fSelManX; 

fEndOfLine; 

operator==( const TeKtMarkerS tm ) 



{ 



fCol - tm 

fPara « tm, 

flKl - tm 

fColCount ^ tm 

fParaCount = tm 

fLineCount tm 

f Off set - tm 

fHLoc ^ tm 

fSalMaKX - tm 

fEndOfLine tm 
return »this; 



fCol; 

fPara; 

flKl; 

fColCount; 
fParaCount; 
, fLineCount; 
f Off set; 
, fHLoc; 
.fSelMaKX; 
, fEndOfLine; 



operator) ( const TeKtMarkerS ) const; 
opera tor<{ const TeKtMarker& ) const; 
operator> = ( const TestMarkerSs ) const; 
operator<'=( const TeKtMarkerSt ) const; 
operator««( const TeKtMarkerSs ) const; 
operator! «( const TestMarkerSt ) const; 

2ero( int, Bool ); 
Invalidate ( void ) 
{ 



fCol 

fPara 

flKl 

fColCount 

fParaCount 

fLineCount 

fOffset 

fHLoc 

fSelMaxX 

fEndOfLine 



0; 
0; 
0; 
-1; 
-1; 
-1; 
-1; 

klnvalMP; 
klnvalMP; 
0; 
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$Header: /Projects/Toolbox/ct/Scselact .h 2 5/30/9? 8:45a Wmanis $ 
Contains: scSelection definition 
Written by: Man is 

Copyright (c) 1989-94 Stonehand Inc.. of Cambridge, MA. 
All riglxts reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

*»*«**»»***»*»»«*»*«»»«»»***»******«****************************************^ 

#ifndef _H„SCSELECT 
#define ^H^SCSELECT 

#ifdef SCMACIHIOSH 
#pragma once 
fjndif 

^nclude "scchares: .h" 
li^nclude "scexcept.h" 
|||nclude "sctbobj .h" 

^ass scColumn; 
scijass scContUnit; 
felass scTeKtline; 
Mass scAnnotation; 
|g.ass scTypeSpecList; 
iflass scSpecLocList ; 
|y.ass scRedispList; 
I3.ass stTeKtlmportEsport; 
feiass clField; 

I'^edef enum eSelectMovements { 
13 eBeforeSelect =^ 1. 
f-, eEqualSelect, 
'""^ eAfterSelect 
} eSelectMovement; 



class TextMarker { 
public: 

TeKtMarkerO : 
fCol( 0 ), 
fPara( 0 
fTxlC 0 ), 
fColCount( 0 ), 
f ParaCount { 0 ) , 
fLineCountC 0 
fOffset( 0 ), 
f HLoc ( 0 ) , 
fSelMaxXC 0 ), 
fEndOfLineC false ) {} 

TeKtMarker( scContUnit* cu, int32 poffset, int32 offset ) 
fCol( 0 ), 
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while ( fNumltems > 0 { ptr - Get( fMumI terns - 1 ) ) 0 ) 
fHumI terns — ; 

ShrinkSlotsO; 

} 

void scSet::Set( long index, const scObject* ofaj ) 

^ if ( fElemSlots indsK ) 

SetHumSlots( ( { index / fBlockSize ) + 1 ) * fBIockSise ) 

fNuffll terns « Mffi( index + 1, fNumI terns ); 

scObject** arr = (scObject**) f Items; 

sc:Assert( arr[indes:] 0 ) ; 

arr[index] - (scObject*)obj ; 

} 

void scSet: :DeleteAll( void ) 
{ 

int i; 

scObject** arr « (scObject**)f Items; 
scObject* obj; 

Cj 

for { i - 0; i < fNumltems; i+-*- ) { 
obj ^ *arr; 
l[l *arr++ « 0; 

^ 1 delete obj ; 

> 

- ~ RemoveAl 1 ( ) ; 
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File: CBAQ.C 

$Header: /Projects/Toolbox/ct/SCSET.CPP 2 5/30/9? B:45a Wmanxs $ 
Contains: Implementation of a set o£ objects. 
Written by: Manis 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge^ MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition ToolboK software is the proprietary 
and confidential property of Stonehand Inc. 



ss « 5s ss s= « s= =5 = ss s: SI =s » = ss w » 5s K « = S5 as a: s; =c K w :r S! a » 5c =s « = « sK » M = ^ s» ss ^ 

#include "scset.h" 



scSet : : scSet ( const scSet& set ) : 

11 scMemArray( sizeof( void* ), true ) 

scAssert( fNumI terns 0 ) ; 
^[l AppendData( set .GetMem( ) , set .GetNumItems() ); 
t U scAssert ( f NumI terns « - set . GetNumI terns ( ) ) ; 

i 

|ang scSet: :Index( const scObject* ptr ) const 

r 

long i; 
13 const scObject** arr « (const scObject**)f Items; 

.1 for ( i = 0; i < fHumltems; i++ ) 

if ( *arr++ «^ ptr ) 
f™ return i; 

r ^ 

return -1; 

¥ 

long scSet::Add( const scObject* obj ) 
{ 

long index = Index ( obj ); 

if ( index >= 0 ) 
return index; 

AppendData( (ElementPtr)£cobj ^ 1 }; 
return GetlsFumltemsC ) - 1; 

} 

void scSet :: Remove ( const scObject* obj ) 
{ 

long index Index ( obj ); 

scObject* ptr; 

if ( index 0 ) 

»{ ( (scObject »»)f Items) + index ) - 0; 
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File: scset.h 

$Header: /Projects/ToolboK/ct/SCSET.H 2 5/30/97 8:45a Vtoanis $ 
Contains: Set defiaition. 
Written by: Man is 

Copyright (c) 1989-94 Stonehand Inc.. of Cambridge, MA, 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

@doc 



#ifndef _.H„SCBAG 
#define _H„SCBAa 

lifdef SCMACIOTOSH 
-^ragiaa once 
Jfendif 

iy.nclude "scmemarr.h" 



i:: 



l/^ @class scSet contains an array of 32 bit pointers. Insertion appends 
// the pointer and deletion zeros out the slot. This way we may 
%/ insure that ail inserted pointers will get a unique index and a valid 
ii^ pointer will never get the index zero. 

^cjass scSet : public scMemArray { 
!^blic: 

f^' scSetO : 

scMeKiArray( si2eof{ scObject* )^ true ){} 



C3 



scObject* 



Bool 



long 
void 
long 
void 



void 



scSet ( const scSetSt ) ; 

Get{ long offset ) const 
{ 

scAssert( offset < fHumltems ); 
return ( (scObject**) f Items) [offset] ; 

} 

Includes ( const scObject* obj ) const 
{ 

return Index ( obj ) 0; 

} 

Add( const scObject* ); 
Remove ( const scObject* ); 
Index { const scObject* ) const; 
Set( long index, const scObject* ); 

// delete all the objects in the set and set 
// the set to zero elements 
DeieteAll( void ); 
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File: SCSETJMP.H 

$Header: /^Projects/Toolbox/ct/SCSETJKP .H 2 5/30/97 8:45a Wmanis $ 
Contains: take care of setjmp/iongjmp 
Written by: Mauis 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, m. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

#ifndef J„SCSETJMP 
#define _H_SCSETJMP 

#if defined ( SCMACIOTOSH ) 

#include <setjmp.h> 

13 #dafine scJMFBUF jmp.buf 

#define scIHROW( ipbuf, numback) longjmp( Ipbuf, numback ) 
;J #define scCATCH( Ipbuf ) set jmp ( Ipbuf ) 

pSlif defined C SCWINDOWS ) 



JKip^buf 

longjmp( Ipbuf, numback ) 
set jmp ( Ipbuf ) 

CATCHBUF 

Throw ( Ipbuf, numback ) 
Catch ( Ipbuf ) 

Undif 



#include <windows.h> 
ly ^include <setjmp.h> 

A #ifdef _JMP_BUF„DEFINED 

#define scJMPBUF 

#define scIHROW( Ipbuf, numback) 
13 #define scCATCH( Ipbuf ) 

#else 

,1 #define scJMPBUF 

#define scTHROW( Ipbuf, numback) 
H #define scCATCH( Ipbuf ) 

#endif 



#end if /* „H„SCSETJMP */ 
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raise_if( size !>= 9, scERRfile ); 

} 

} 

} 

void scSpecRecord : : restorePointer { ) 

{ 

} 

void scSpecRun: :RestorePo inters ( void ) 
{ 

for ( int i = 0; 1 < Numltems(); i-f+ ) 
(«this} [i] .restorePointer() ; 

} 

long scSpecRun: :EEtemalSize( void ) const 
{ 

return siseof( scSpecRecord ) * Humltems() + siseof( int32 ); 

} 



!yfid scSpecRun: :SetContentSize ( int32 size ) 

int inde:^ - Numltems{) -2; 

fU //PrintRunC "SetContentSize" ); 

while ( index > 0 StS size (*this) [index] .offset ( ) ) 
vy Remove ( index — ); 

//PrintRun( "SetContentSize" ); 

Debug[Run( "SetContentSize" ); 

SB 

— — = = M = = » = — = w = = =t = — = — =Ks=«B:aswsB»K« = ==a saasss^ */ 
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const scSpecRiecordSc si ^ (*this)[i]; 

const scSpecRecordSc s2 = (*this) [i+l] ; 

if { (*tbis) fi] .specO (*thisHx+l] .spec() ) 

Remove ( i -f 1 ) ; 
else if ( (*this) [i] .affsetO >^ (*this) [i+1] .of fset () ) { 

if ( outer ) 

Remove ( i + 1 ) ; 

else 

Remove { i ) ; 

} 

else 

i-i-+; 

} 

} 

void scSpecRun : : Read ( APPCtxPtr ctsPtr, lOFuncPtr readFunc ) 
{ 

uchar sbuf[8]; 
const uchar* pbuf; 
long nuxaspecs; 

ReadLong{ numspecs, ctsPtr, readFunc, kInteiOrder ); 

SetNuinSlots( numspecs -f 1 ) ; 

for ( int i = 0; i < numspecs; i++ ) { 
ReadBytes( sbuf, ctsPtr, readFunc, 8 

pbuf « sbuf; 

P ulong specid; 

ry pbuf « B«fGet„long( pbuf, specid, kIntelOrder ); 

;i ulong offset; 

W pbuf ^ BufGet„lon0{ pbuf, offset, kIntelOrder ); 

TypeSpec spec( (stSpec*)APPDiskIDToPointer( ctxPtr, specid, diskidTypespec ) ) 

scSpecRecord 3rec( spec, offset ); 
-=ij Insert C i* rec ); 



1=^ consolidate( ) ; 

!j DebugRun( "scSpecRun : :Read" ); 



void scSpecRun: :Write{ APPCtxPtr ctnPtr, 

lOFuncPtr writeFunc ) 

{ 

int i; 
uchar sbuf [8]; 

uchar* pbuf; 

// do not write out the terminator 
WriteLong( Humltams() - 1, ctxPtr, writeFunc, kIntelOrder ); 

for ( i ^ 0; 1 < KTumltemsC); i++ ) { 
^bu£ ^ sbuf; 

if { I (*this) [i] .isTerminatorO ) { 

lon^ diskid « APPPointerToDiskIB( ctxPtr, 

(*this) [i] .spec() .ptr(), 
diskidTypespec ) ; 
pbuf - BufSet„long( pbuf, diskid, kIntelOrder ); 
pbuf - BufSet_long( pbuf, (*this) [i] .offset () , kIntelOrder ); 

long size - {*??riteFunc) ( ctnPtr, sbuf, 8 ); 
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for ( index = 0; Numltems() > 1 index+l < Nuinltems(); ) { 
if ( (*this) [index] .offset!) >« («this) [ind&x+l] .of fset () 

li (*thxs) [ind^K] .spec() {«this) [index+l] .spec( ) ) { 
Remove ( index + 1 ); 

} 

else 

indes++; 

} 

} 

#ifdef SCDEBUG 

void scSpecRun: :BebugRun( const chair* str ) const 
{ 

int foo; 

if { (*this) [0] .offset 0 I- 0 M I isTerminated( ) ) 
PrintRun( str ); 

scAssert( {*this) [0] .offset () 0 ) ; 
isTeminatedO ; 

#if 1 

static int debugrun; 

if ( debugrun ) 

PrintRun( str ); 
■'i else { 

:J int printit « false; 

|i I 

fiJ for { mt index » 0; index < Humltems{) - 1; index++ ) { 

l^i const scSpecRecordSc si ^ !*this) [index] ; 

^'i const scSpecRecordS: s2 « (*this) [i^idex+l] ; 

W if ( (*this) [index] .spec () (*this) [index-f X] .spec () ) 

'^J printit true; 

fi if ( (*this) [index] .offset 0 (»this) [index+1] .offset (j ) 

printit = true; 



'i^ndif 



if ( printit ) 

PrintRTO( str ); 



!^ for ( int i ^ 0; i < NuialtemsO - 1; i++ } { 
%J const scSpecRecordSt si ^ (*titis)[i]; 

const scSpecRecordSc s2 = (*t]iis) [i-^l] i 

scAssert( (*this) [i ] .spec ( ) !« (*this) [i+1] <specC) ); 

scAssert( (*this) [i ] .of fset () < (*this) [i-i-l] .of fset ( ) ); 

foo * i; 

} 

} 

#endif 

void scSpecRun: :PrintRun( const char* info ) const 
{ 

SCDebu0Trace{ 0, "HIM: \^'?^s\"\n", info ); 

for ( int i 0; i < Numltems(); i++ ) 
^ SCDebugTrace ( 0. "\t^d\t^l ld\t 0x^0 SxXn " , i. (*this) [i ] .of fset () , (*thxs) [i ] .spec () .ptr ( ) ): 

void scSpecRun: ; consolidate ( int outer ) 

{ 

for ( int i ^ 0; i < Humltems() - 1; ) { 
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RemoveAil {) ; 

£or C int i =^ 0; i < sr,N™itesas( ) ; i++ ) 

Append ( sr[i] ); 
return *this; 

} 

int scSpecRun; : opera tor=«« (const scSpecRunSc sr ) const 
{ 

if ( NumltemsO 1= sr, NumI terns () ) 
return 0; 

for ( int i - 0; i < Muinltems(); i+-t- ) { 
if { (*this)[i] !- sr[i3 ) 
return 0; 

} 

return 1; 

} 

int scSpecRun :: opera tor! const scSpecRunSc ) const 
{ 

return 0; 

} 

int scSpecRun; ;isTerminated() const 

int index = NumI terns {) - 1; 
in if ( index >=« 0 ) 

III return (*this) [ index 3,offset() teminate_; 

return 0; 

v^id scSpecRun: : terminate () 

i 

n lypeSpec ts(0); 

scSpecRecord sr( ts, terminate^. ); 
Append ( sr ); 

w 

JT ; 

I3t scSpecRun: ;indeKAtOffset C int32 offset ) const 
{ 

int index; 

for ( index - 0; index < Humltems() S£c offset >« («tfais) [index+l] .of fset () ; index++ ) { 
if { (*thzs) [index] .isTerminatorO ) 
break; 

} 

return indesi 

} 

void scSpecRun: :faackwardCleanUpRun( int startlndes ) 

{ 

int index; 

if C startlndax > 0 ) { 

if { (*this) [startlndex] .offset 0 <- (»this) [startIndex-1] .of fset ( ) ) { 

(»this) [start Index 3 .offset () * (»this) [startlndex-l] .of fset () ; //?? 
Remove ( startlndex ~ 1 ); 

} 

else if ( (*this) [startlndeK] ,spec() (*this) [startlndex-l] .spec () ) 
Remove ( startlndes ); 

} 
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else if ( (»this) [startlndeK] .offsetO <« offset ) 
startIndeK-4-+; 

for C indsK « startlndex; ! (*this) [inden] . isTerminator ( ) ; indeK+-t- ) 
(*this) [index] .bimipOffs«t( amount ); 

if we were decrementing then check whether we now have 
// two specs with same offset 
backwardCleanUpRun ( startlnden ); 

} 



DebugRun( "BumpOffset: end" ); 

} 



void scSpecRun: :removeIndicies( int32 startlndex, int32 endlndex ) 
{ 

int recsToRemove ^ endlndex - startlndex; 

for ( int i Q; i < recsToRemove; i4-4- ) 
Remove ( startlndeK ); 

} 

int scSpecRun: ; Includes ( TypeSpec spec ) 

{ 

fi for { int 1 ^ 0; i < Humltems(); i+^- ) { 
1% if ( spec (*this) [i] .specO ) 

""^j' return 1; 

} 

x\\ return 0; 

scSpecRecordS. scSpecRun: :SpecRecAtOff set ( int32 offset ) 

¥ 

3 return (*this) [ indexAtOf f set ( offset ) ]; 

w 

Ninst scSpecRecordSc scSpecRun; rSpecRecAtOff set ( int 32 offset ) const 

fa 

return (*this) [ indeKAtOf fset ( offset ) ]; 

void scSpecRun: : Copy ( scSpecRun^ dst, int32 start. int32 end ) const 
{ 

dst , RemoveAl 1 { ) ; 

//PrintRun ( "scSpecRun : :Copy" ) ; 
int inde^l ^ indexAtOf fset ( start ); 

int indexZ ^ indexAtOf fset ( end > start ? end - 1 : end ); 

for ( int 1 = indexl; i <^ index2; i++ ) { 
dst. Insert { i - index U (*this) [ i ] ); 
dst[i - indexl] .bumpOf fset ( -start ); 

} 

dst .terminate () ; 

dst .DebugRun( "Copy: destination" ); 

} 

scSpecRunSc scSpecRun ; :operator« ( const scSpecRun& sr ) 
{ 
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Debu3Run{ "Insert; destination 1" ); 
sr,DebugRun( "Insert: source la" ); 

TypeSpec startspec = SpecAtOf fset ( offset )i 
scSpecRecord endrec( startspec. offset + len ); 

int index * indexAtOf fset ( offset ); 
BumpOffset( offset, len ); 

//PrintRun( "Insert: destination 2" ); 

for ( int i ^ 0; 1 < sr .Nurnl terns ( ) isr[i] .isTerminator() ; i++ ) { 
TypeSpec ts - sr { i ] . spec { ) ; 

scSpecRecord rec( ts^ sr[i ] .of fset () + offset j; 
Insert ( indeK + i + 1, rec ); 

} 

//PrintRunC "Insert: destination 3" ); 

Insert ( index 4- i + 1^ endrec ); 

//PrintRun{ "Insert: destination 4" ); 

while ( ! (»thxs) [indeK] .isTeminatorO ) { 

if ( (*this) [index] .©pec C) (*this) [index+i] ,spec() ) { 
Remove { mdex+l ); 

} 

else if ( (*this) [indesj] .offsetO >« (*this) [indes+1] .of fset ( ) ) { 
f2 Remove ( index ); 

} 

:z else 

in inde^+'t-; 

fU } 

,^ consolidate () ; 

ly //PrintRun( "Insert: destination 5" ); 
^^J DebLi0Run( "Insert: source 5" ); 

void scSpecRun: :faumplndicies( int32 startlndeK, int32 amount ) 

for ( int index - startlndex; ! {*this} {index] . isTerminator{) ; index++ ) 
(»this) [indeK] .faumpOffset ( amount ); 

IZ if we were decrementing then check whether we now have two specs with same offset 

if ( amount < 0 ) 

backwardCleanUpRun( startlndeK ); 

} 

void scSpecRun: ;BumpOffset ( int32 offset, int32 amount ) 
{ 

long StartlndeK; 
long index; 

if ( amount 0 ) 
return ; 

startlndex = indexAtOf fset { offset ); 

if { amount > 0 ) { 

for ( index = startlndex; I (»this) [index] . isTerminator( ) ; index++ ) { 
if ( (*this) [index] .offsetO > offset j 
(*this) [index] .bumpOf fset ( amount ); 

} 

> 

else { 

if ( [startlndex SS^ C*this) [startlndex] .of fset { ) l» 0 ) 
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void scSpecRun: : Clear ( int32 start, int32 end ) 
{ 

if ( start end ) 
return ; 

int taillnsert =0; 

TypeSpec ts SpecAtOf fset ( end ); 

scSpecRecord endrec{ ts> end ); 

int32 startlndeK ^ inde^AtOf fset ( start ); 
if ( (»this) [startlndex] .offset{) 1=^ start ) 

startlndex++; 
int32 endlndex =^ indexAtOf fset ( end ); 
if ( (»this) [endlndeK] .offset 0 I* end ) 

taillnsert 1; 

#if 1 

while ( (*this) [startlndex] .offset 0 < end ) 
Remove ( startlndex ); 

if { startlndex ) { 

while { I (»this) [startlndeK] .isTerminatorO ScSc (*this) [startlndex -1 ],spec() («this) [sta 
rtlnden] .spec() ) 

Remove ( startlndex ); 

} 

if ( taillnsert ) 
I J Insert ( startlndesr, endrec ); 

j_ "-^ 

:f BumpOffsetC starts -(end - start) ); 

{'^ 

pjlse 

if ( startlndeic ! endlndes ) { 

while ( (»this) [startlndeK] .offset () < end ) 
Remove ( startlndex ); 

f-h if ( startlndex ) { 

while { 1 (*this) {startlndeK] .isTerminatorO (*this) [startlndex -1 ].spec{) (*this) 
JstartlndeK] .spec() ) 
C3 Remove ( startlndex ); 

H } 

if ( taillnsert ) 

Insert( startlndex, endrec ); 

p } 

13 BumpOffset( start, -(end - start) ); 
#endi£ 

DebugRun{ "Clear: end" ); 

} 

int32 scSpecRun: :removeOf fsets( int32 start, int32 end ) 
{ 

int 32 startlndex « indexAtOf fset ( start ); 
if ( {*this) [startlndex] .offset 0 I = start ) 
start IndeK++; 

while C (*this) [startlndex] .offset 0 < end ) 

Remove ( startlndex ); 
return startlndex; 

} 

void scSpecRun: :InsertRunC int32 offset, int32 len, const scSpecRunS< sr ) 

if ( len 0 } 
return; 
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TypeSpec scSpecRun : : GetLastSpec ( void ) 
{ 

return (*this) [Kfumltems () ] .spec() ; 



int32 scSpecRun; :GetLastOffset( void ) 
{ 

if { NumltemsO > 2 ) 

return (»this)[ !!?iunltems() - 2 ],offset(); 
return 0; 

} 

void scSpecRun: :insertSpecRec( const scSpecRecordSc sr^ int32 index ) 
Insert ( index > sr ) ; 

} 

void scSpecRun: :AppendSpeo( TypeBpec ts, int32 offset ) 
{ 

int index - Numltems() - 1; 
scAssert( indes: 0 ); 

scSpecRecord rec( ts, offset ); 
f-^i Insert ( index, rec ); 
"f oonsoiidate( 0 ); 

1 

V&id scSpecRun : : ApplySpec ( TypeSpec spec, int32 start, int32 end ) 

m 

-.J int startlndeK = indenAtOf fset ( start ); 
^.Z^ int endlndeK « indexAtOf fset ( end ); 

B if { spec {*this) [startlndes:] .spec{) ) { 
p if ( start IndeH endlndsK ) 

11 return; 

./'■^ if ( startlndex + 1 endlnden {*this) [endlndex] .of f set ( ) end ) 

iy return; 

li TypeSpec ts « SpecAtOf fset ( end ); 

t3 scSpecRecord endrec{ ts, end ); 

if ( (*this) [start Index] .offset 0 start ) 

(*this) [startlndeK] .spec„.excii( spec ); 
else { 

scSpecRecord sta3rtrec( spec, start ); 
insertSpecRec( startrec, ++startlndes ); 

} 

-f-H-start Index; 

while ( (*this) [startlndex] .offset () <« end ) { 
if ( ! (*this) [startlndex] .isTerminatorO ) 
Remove ( startlndex ); 

else 

break ; 

} 



if ( iendrec.isTerminatorO ) 

insertSpecRec{ endr^c, startlndex ); 

consolidateO ; 

DebugRun{ "ApplySpec - end" ); 

} 
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File: nspcrecc 

$Header: /Projects/IoolboK/ct/Scspcrec ,cpp 2 5/30/97 8:45a Wmanis $ 
Contains: skk put contents here kxx 
Written by: Man is 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge. MA. 
Ml rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality* 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



#include "scspcrec.h" 
#include "scfileio.h" 
^include "sccallbk.h" 
#include "scexcept ,h'* 

int32 scSpecRun : :temiinate„ « LONG_MAX; 

£3 

. ^SpecRun : ; scSpecRun ( ) 

It 

V' terminate (); 

m 

^^sbSpecRun: :scSpecRun( const scSpecRunSc sr ) 

A 

for { int i = 0; i < sr*NumItems{) ; i+-f ) 
^ Append { sr [ i ] ) ; 



NcSpecRun: :scSpecRun( TypeSpec firstspec ) 

i-, Append ( scSpecRecord ( firstspec, 0 ) ); 
'^'-^ terminate (); 
} 

scSpecRun ; : ~scSpecRun ( ) 

{ 

} 

/* ssssBssssMs 5SS£«=!K ass; ssKMSSBK JK assays !KS=aK * / 

TypeSpec scSpecRun : :GetFirstSpec( void ) 
{ 

return (*this) [0] .spec() ; 

} 

TypeSpec scSpecRun: .-SpecAtOf f set ( int32 offset ) 
{ 

return {*this) [ indexAtOf f set ( offset ) ].spec(); 

} 
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TypeSpec 



int32 



intSZSc 



} 

spec ( ) 
{ 

} 



return spec__; 



offset () const 
{ 

return offset^; 

} 

offset 0 
{ 

return offset^.; 

} 



void 



restorePointer () ; 



private : 

TypeSpec 
int32 



spec_; 
offset 



// the spec to B.'^'^ly 

// chsiracter offset to start appling spec 



#endif /* Ji.SCSPECRU */ 
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void 
#8lse 

void 

void 
#endif 

void 
void 
void 

long 
int 

static int32 

private : 

void 
int32 
void 
void 

void 

void 

void 



PrintRun( const char* ) const; 

Debu0Run( const char* ) const {} 
PrintRun( coast char* ) const {} 



Read( APPCtsPtr, lOFuncPtr ); 
Write ( APPCtsPtr, lOFuncPtr ); 
RestorePointers( void ); 

EsterndlSi2e( void ) const; 
indexAtOffset( int32 ) const; 

terminate^; 



insertSpecRec( const scSpecRecordSc^ int32 ); 
removeOffsets( int32. int32 ); 
removeIndicies( int32^ int32 ); 
bumplndicies( int32, int32 ); 

backwardCleanUpRun( mt ); 

consolidate ( int outer 1 ) ; 

terminate () ; 



A' 



'^ass scSpecRecord { 
j&iend class scSpecRun; 
^^Ublic: 



void 



int 



void 



int 



int 



TypeSpec 



scSpecRecord ( ) : 
spec_(0) ^ 

of fset„(scSpecRun: ;tenninate_) 

{ 

} 

scSpecRecord ( TypeSpec& ts^ int32 offset ) : 
spec (ts), offsets (offset) 

{ 
} 

'^scSpecRecord ( ) 
{ 
} 

set( TypeSpecSc ts, int32 offset ) 
{ 

sp^c;_ ts; 
offset. ^ offset; 

} 

isTerminator( void ) const 
{ 

return offset. =- scSpecRun terminate.; 

} 

bumpOffset( int32 bump ) 

offset, -i-^ (of fset.f «scSpecRun: : terminate. ? bump : 0); 
offset. « ( offset. < 0 ) ? 0 : offset.; 

} 

operator-^ (const scSpecRecord^ sr ) const 
{ 

return spec ««sr,spec. of fset.==sr- offset.; 

} 

operator! « (const scSpecRecordSc sr ) const 
{ 

return spec. ! *sr . spec. |i of f set. i =sr. offset.; 

} 

spec() const 
{ 

return spec.; 
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File: SCSPECRU.H 

^Header: /Projects/Toolbox/ct/SCSPCREC .H 2 5/30/97 8:45a Wmanis $ 
Contains: scSpecRecord - sp^c plus content unit offset 
Written by; Manis 

Copyright (c) 1989-94 Stonehaad Inc. of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition ToolboK software is the proprietary 
and confidential property of Stonehand Inc. 



#ifndef _H„SCSPCiyE:C 
#define „H_SCSPCREC 

#include "sctypes.h" 
#include "scarray.h" 

#include <limits.h> 

^ _ _ _ „ - se K sa St IS « =; « « at « js a « K » « « ss sK = 

Mass scSpecRecord ; 



.'^iass scSpecRun ; public scSizeableArrayD<scSpecRecord> { 
:^blic; 

"'J scSpecRun(); 

fi scSpecRunC const scSpecRun& ); 

scSpecRun( TypeSpec firstspec ); 
!-„ '^scSpecRun ( ) ; 

'^J g^st the last valid spec in the run 

TypeSpec GetFirstSpec( void 
p TypeSpec SpecAtOf fset ( int32 ); 
\h TypeSpec GetLastSpec( void ); 

~S // get the offset of the last valid spec 

'^^ int32 GetLastOffset( void ); 

int Includes ( TypeSpec ); 

void AppendSpec( TypeSpec, int32 ); 

void ApplySpec( TypeSpec, int32, int32 ); 

void Clear { int32, int32 ); 

void Copy( scSpecRunS:, int32, int32 ) const; 

void InsertRun( int32 offset, int32 len, const scSpecRunSe ): 

void BumpOffset{ int32, int32 ); 

void SetContentSiseC int32 ); 

// return the record of the spec rec at an offset 
scSpecRecordSc SpecRecAtOf fset ( int32 

const scSpecRecordS: SpecRecAtOf fset ( int32 ) const; 

scSpecRunSc operator== ( const scSpecRunS: ) ; 

int opera tor (const scSpecRunSc ) const; 

int operator t = {const scSpecRun& ) const; 

int isTerminatedO const; 

#ifdef SCDEBUG 

void DebugRun( const char* ) const; 
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) * kSmallCapCorrection ); 

else 

rluWidth FlgetRLUEscapament { fSpec, GetCorrectedGlyph ( ch ) ) ; 

if { rluWidth scBasaRLUsystem ) { 

fWidths[ch] = scRoandMP( conversion * rluWidth ); 
if ( fFlowDir.IsHorizontal () ) 

fWidths[ch] - GetSetSiseO 4 GetOptLSP(); 

el 3e 

fWidths[ch] - GetPtSizeO + GetOptLSP(); 

} 

else 

fWidths[c:h] - scRoundMP( conversion * rluWidth ); 

} 

break; 
case 0: 

case scVertTafo: 
case scHardReturn : 

if ( fFlowDir.IsHorizontal 0 ) 
fWidthsfch] - GetSetSiseO; 

fWidths[ch] - GetPtSizeO; 
break ; 

case scHoBreakSpace : 

fmdtbs[cbl ^ GetOptWord(); 
break; 

l2 // these really need to be further up stream 

,4 case sdWoBreakHyph : 

1? case scDiscHyphen: 

V-"^ fWidths[ch] - 0; 

ly break; 
1 case scFi^ureSpace: 

fWidths[ch] scRoundMP( conversion * FIgetRLUEscapement ( fSpec, '0' ) 
^^'^ break; 

case scThinSpace: 

1% fWidths[ch] = scRouRdMP( conversion * scBaseRLUsystem / 6 ); 

break; 

^ case scEnSpace: 

O fWidths[ch] ^ scRoundMP( conversion * scBaseRLUsystem / 2 ); 

break; 

1 case scEittSpace ; 

^ fWidthsfch] « scRoundMP{ conversion « scBaseRLUsystem ); 

\^ break; 

C3 } 
} 

- if C fWidths[ch] 0 ) 

return 0; 

} 

return fWidths[ch] + 0etOptLSP(); 

} 

GlyphSize scCachedStyle: :GetKernValue{ UCS2 chl. UCS2 ch2 ) 
{ 

RLU kern ; 

if { GetDeviceValuesO ) 

return FIgetDEVKernC fSpec^ chl, ch2 ); 
else { 

kern - FIgetRLUKern( fSpec^ chl, ch2 ); 

if ( kern I- 0 ) { 

if ( fFlowDir.IsHorisontal () ) 

return scRoundGS ( f SetConv * kern ) ; 
return scRoundGS( fPtConv * kern ); 

} 

} 

return 0; 
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SetSpec( ts ); 

f TiitieStamp - ++scCachedSty le : : fCacheXime ; 

fPtConv - (REAL)GetGlyphHei0ht() / scEaseRLUsystem; 
fSetConv « (REAL)GetGlyph^idth() / scBaseRLUsystem; 



InitWidths(); 
ComputeEstentsnCursorO ; 

} 

elsB { 

TypeSpec null Spec; 
SetSpecC nullSpec ); 
fPtConv - 0; 
fSetConv « 0; 
InitWidthsO ; 
fTimeStamp = 0; 

} 

} 

void scCachedStyle: :InitFlowdir( const scFlowDirSc fd ) 
{ 

fFlowDir = fd; 
InitWidthsO; 
CoinputeEstentsnCursorO ; 

} 

IS-yphSize scCachedStyle: :G$t Escapement ( UCS2 ch ) 

m if ( GetDeviceValuesO ) { 

s'l if ( ch 256 ) 

return FIgetDEVEscapement ( fSpec^ ch ); 

n if ( fWidths[ch] klnvalMP ) { 

if { GetSmallCapsO CTIsLowerCaseC ch ) ) 

fWidths[ch] - scRoundMP( FlgetDEVEscapement ( fSpec. : :CnToUpper( ch ) ) » kSmallCapC 

Mrrection ) ; 

'"■d else 

..2 fWidthstch] - FIeetDEVEscapement( fSpec, GetCorrectedGlyph ( ch ) ) ; 

} 

} 

O else { 

REAL con vers ion; 



if ( fFlowDir. IsHorxsontal 0 ) 
conversion « fSetConv; 

else 

conversion ^ fPtConv; 

if ( ch >- 256 ) { 

RLU rluWidth ^ FI^etRLUEscapement ( fSpec, ch ); 
if { rluWidth scEaseRLUsystem ) { 
if ( fFlowDir. IsHorizontal C) ) 
return GetSetSize ( ) ; 

else 

return GetPtSize(); 
return scRoundGS( conversion * rluWidth ) + GetOptLSP(); 

} 

if ( fWidths[chl klnvalMP ) { 

it has not been previously computed 
switch ( ch ) { 
default: 
{ 

RLU rluWidth; 

if { GetSmallCapsO CTIsLowerCase ( ch ) ) 

rluWidth = (RLU)scRoundGS( FIgetRLUEscapement ( fSpec, ::CnToUpper{ ch ) 
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fInkExtents.H2 ^ rect.K2; 

} 

else { 

fInkEKtents.yl « 0; 
fInkExtents.yZ = rect.yl - rect.y2; 
fInkEKtents.Kl « -(rect.x2/2) - rect.xl; 
fInkEKtents.x2 « rect,K2/2; 

} 

} 

else { 

scRLURect rect; 
RLU a.b^cd; 

FIeetRLUFDntEKtents( fSpec, a, b, c, rect ); 

if { fFlowDir.IsHorisontal 0 ) { 

scAssert( rect,Valid( eFirstQuad ) ); 
rect .FirstToFourth( scBaseRLUsystem ); 

scAssert( rect .Valid ( eFourthQuad ) ); 

f InkExtents.yl « scRoundMP( fPtConv * rect.rluTop ); 

f InkEKtents.y2 ^ scRouttdMP( fPtConv * rect .rluBottom ); 

fInkEstents.Kl * scRoundMP( fSetConv « rect.rluLeft ); 

fInkEKtents.x2 scRoundMP( fSetConv * rect -rluRight ); 

} 

if ( GetHorzObligueO ) 

ohligOff - (REAL)tan{ AngleToRadians( Ga tHorzOfeli que () ) ); 

IZ if ( GetHorzObligueO < 0 ) 

fInkExtents.Kl scRoundMP( GetPtSise() * obliqOff ); 

„3 if ( GetHorzObligueO < 0 ) 

;i fInkEstents.K2 -f- scRoundMP( GetPtSi2e() * obliqOff ); 

Hi scAssert( fInkExtents .Valid { eFourthQuad ) ); 

if ( fFlowDir.IsKorizontai () } 

flnkEKtents .Translate! 0, -GetBaseline () ); 
else 

fInkEKtents, Translate ( GetBaseline() , 0 ); 

-.m if ( fFlowDir.IsHorizontal 0 ) { 
scLEADRefData Id; 

Id. Set ( GetPtSizeO. fFlowDir ); 
fLogicalEKtents.Set( 0, -Id .GetAboveLead { ) . 

GetSetSizeO, Id .GetBelowLead () ); 

} 

el se 

fLogicalEstents.Set( -GetSetSize ( )/2, 0, GetSetSize ()/2, GetPtSize() ) 



if ( fFlowDir. IsHorizontalO ) { 

fCursorYl « -scRaundMP{ £PtConv * KLU„BASEfmTop ); 

fCursorY2 « scRoundMP( fPtConv » RLUJASEfmBottom ); 

} 

else 

fCursorXl - -GetSetSize( ) / 2; 

fCursorX2 « GetSetSize() / 2; 

} 

} 

void scCachedStyle; :Init ( TypeSpecSt ts ) 
{ 

if ( ts.ptrO ) { 

TSGetStyle( ts, »this ); 
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} 

MicroPoint scCachedStyle; :GetParaSpace( scContUnit* cul, 

scContUnit* cul ) 

^ SetParaStyle{ cul, cul->GetDefauitSpec: ( ) ); 

MicroPoint below cachedParaStyl0_.GetSpaceBeiow() ; 

SetParaStyle{ cu2, cu2->GetD©fauitSpec() ); 
MicroPoint above = cache<iParaStyie_.GetSpaceAbovo() ; 

return below + above; 

> 

MicroPoint scCachedStyle: :GetMaxParaSpace( scContUnit* cul, 

scCoutUnit* cu2 ) 

^ SetParaStyle( cul, cul->GetDefauitSpec () ); 

MicroPoint below * cschedParaStyle_.GetMasSpaceBelow() ; 

SetParaStyle( cu2, cu2-*>GetDeraultSpec() ); 

MicroPoint above - cachedParaStyle_.GetMaxSpaceAbove() ; 

return below + above; 



MMid scCachedStyle: :SetFlowdirC const scFlowDirSc fd ) 

ry 

i3 if ( scCachedStyle: :fFlowDir ! f d ) { 

5* J int i; 

"^J for ( i - 0; i < fEntries; i++ ) { 

#1 if ( FCachedStyles[i] .GetSpecO .ptr() ) 
fCachedStyles[i] .InitFlowdir( fd ); 

u > 

U } 

fftiline void scCachedStyle :: InitWidths ( ) 
register i; 

for ( i - 0; i < 256; i++ ) 
fWidths[i] = klnvalMP; 

} 

void scCachedStyle: :ComputeEKtentsnCursor( void ) 

^ REAL obliqOff; 

if C Get Devi ceValuesO ) { 
scXRect rect ; 

MicroPoint a^b^cd; 

FlgetDEVFontEKtents ( fSpec, a^ b, c, d, rect ); 

if ( fFlowDir.IsHorizontalO ) { 

scAssert( rect.Valid( ©FirstQuad ) ); 
rect.FirstToFourth( GetPtSize() ); 
scAssert( rect.Valid{ eFourthQuad } ); 

f InkEKtents.yl = rect.yl; 
f InkEKtents,y2 « rect.y2; 
fInkExtents.Kl « rect.Kl; 
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oldest i; 

} 

} 

scAssert( oldest 0 ); 
return oldest; 

} 



scCachedStyleSc scCachedStyle: rOetCachedStyls ( TypeSpecS ts ) 
{ 

if ( fLast >- 0 ) { 

if ( fCachedStyXes t fLast] .GetSpecO .ptr() ts.ptr() ) 
return f CachedStyles [ fLast ] ; 

} 



} 



risturn FindCachedStyle ( ts ); 



*/ 



scCachedStyleSi scCachedStyle: :FindCaohedStyle( TypeSpec& ts ) 
{ 

int i; 

scAssert( ts.ptr() ); 
C3 for ( 1 - 0; i < fEntries; i++ ) { 

^.3 if ( fCachedStyles[i] .GetSpecO .ptr() ts.ptr() ) { 

fLast - i; 

S>y SCDebugTrace ( 0, "scCachedStyle: :FindCachedStyle: found ?^d\n". fLast ) 

1 return f CachedSty 1 es [ i ] ; 

ill } 

:] } 

C3 int oldest «= GetOldestlndex ( ) ; 

L fCachedStyles [oldest ] .Init( ts ); 
fLast = oldest; 

lA/ SCDebugTrace { 0, '*scCachedStyle: :FindCachedStyle: new cache ^d\a", oldest ); 
return fCachedStyles [oldest] ; now the newest 



CI 

void scCachedStyle: :StyleInvalidateCache( TypeSpec£< ts ) 
{ 

int i; 

TypeSpec null Spec; 

for ( i - 0; i < fEntries; i++ ) { 

if ( ts,ptr() fCachedStyles [i ] .GetSpecO -ptrC) ) 
fCachedStyles [i ] ,Init( nullSpec ); 

else 

fCachedStyles [i 3 .InitC nullSpec ); 

} 

cachedParaStyle„.Init ( nullSpec ); 

} 



void scCachedStyle: :SetParaStyle( const scContUnit* cu, TypeSpec& ts ) 

^ if ( ts.ptrO cachedParaStyle„.fSpec.ptr() ) 
return ; 
cachedPara_ *= cu; 
cachedParaStyle„.lnit( ts ); 
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/*#*»«»*#*»««*»*»»»*»»«*«**««*»»»*»«»**»»»****»*********«******************* 

File: SCSTCACH.CPP 

$Ifeader: /Projects/ToolfooK/ct/SCSTCACH.CPP 4 6/17/97 4:16p Vfeianis $ 

Contains: Code for the style cache sub-system within the 
Stonehand Composition Toolbox. 

Written by; Man is 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

*«***»»#*«»»*»»*«»«**»***»»*»»*«*»****«*******»***»*»»*»*******»****/ 

#include "scstcach.h*' 

#include "sccallbk.h" 
,#include "sccharex.h" 
Ciinclude "screfdat.h" 
^#include "scparagr.h" 
„^Iinclude "sec type, h" 
jilinclude <math.h> 

iicCachedStyle» scCachedStyle : : f CachedStyles; 
r'^nt scCachedStyle : : f Entries ; 

" Jnt scCachedStyle : : f Last ; 

f long scCachedStyle ; : f CacheTime i 

!scFlowDir scCachedStyle: : fFlowDir( eRomanFlow ); 

CicCachedStyle scCachedStyle : :cachedParaStyle„; 

''^donst scContUnit* scCachedStyle: ;cachedPara_.; 



ffoid scCachedStyle: : Bui ldCache( int entries ) 

''^ f CachedStyles - new scCachedStyle [entries]; 

f Entries * entries; 

fLast - -1; 

fLast - -1; 

cachedPara^ =0; 

} 

void scCachedStyle: :DeleteCache( void ) 

^ delete [] f CachedStyles, f CachedStyles - 0; 
} 

int scCachedStyle: :Get01destIndes( void ) 
{ 

int ij. 

oldest « -1; 
long oldestTime ^ LOKGJiAX; 

for ( i = 0; i < fEntries; i++ ) { 

if ( oldestTime > fCachedStyles[i] .fTimeStamp ) { 
oldestTime « fCachedStyles[i] .fTimeStamp; 



»/ 
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MicroPoint GetRunAroundBorder( void ) const { return fRunAroundBorder; } 

void SetRunAroundBord©r( MicroPoint b ) { fRunAroundBorder = b; } 



MicroPoint GetCursorYl( void ) const 

MicroPoint GetCursorXl( void ) const 

MicroPoint GetCursorY2( void ) const 

MicroPoint GetCursorX2( void ) const 



{ return fCursorYl; } 

{ return fCursorXl; } 

{ return fCursory2; } 

{ return fCursorX2; } 



void 

C) 



GetPatraBreak ( scParaColBreakSt pb ) 



{ 



} 



pb.Set( GetLmesBeforeO, GetLinesAfter ( ) , Getislo Break () , GetReepV^ithHest 



static MicroPoint GetParaSpace ( scContUnit*, scContUnit* ); 
static MicroPoint GetMaxParaSpace ( scContUait*. scContUnit* ); 



MicroPoint 
MicroPoint 

©FntBaseline 



private : 

^•f void 
kj void 
void 



void 
long 

TypeSpec 



GetHorzBaselineO ; 



HorsCompute( RLU rlu ) { return scRoundMP( fSetConv * rlu ) ; } 
VertCompute( RLU rlu ) { return scRoundMP( fPtConv » rlu ); } 

GetOperativeBaseline( const scFlowDirS fd ) 

^ return fd . IsVertical ( ) ? GetVertBaseline ( ) 
} 



Init( TypeSpecSc ts ); 

InitFiowdir( const scFlowDirSc fd ); 

InitWidths( void ); 

ComputeEKtentsnCursor( void ); 

fXimeStamp; 

fSpec; 



MicroPoint 

scXRect 
scXRect 

REAL 
REAL 

MicroPoint 



fRunAroundBorder ; 

f InkExtents; 

f LogicalEstents ; 

fPtConv; 
fSetConv; 

fWidths[256]; 



union { 

Mi croPo i n t f CursorY 1 ; 

Ml croPo i n t f CursorX 1 ; 

}; 

union { 

MicroPoint f CursorY2 ; 

MicroPoint f CursorX2 ; 



#define gfmS 



scCachedSty 1 e : : GetCurrentCache ( ) 



inline scCachedStyle& cachedTS( TypeSpecS. ts ) 

^ return scCachedStyle: ;GetCach8dStyle ( ts ); 
} 



inline scCachedStyleSt currentTS( ) 

return scCachedStyle : : GetCurrentCache { 



{ 
} 

#endif 
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static void 
const scFlowDirSc 



private : 



static scCachedStyle* 
static int 
static int 



// set and get the flowdir for the cached values 



// 

SetFlowdir( const scFlowDirS: fd ); 
GetFiowdirC void ) const 
{ 

return fFlowDir; 

} 



// the cached values 
fCachedStyles; 
fEntries; 
fLast; 



// number of entries in the cache 



static scCachedStyle 
static const scContUnit* 



static long 



cachedParaS ty 1 e_ ; 
cachedPara_; 

// a timer that increments only on loading a cache 
f Cache! ime ; 



static scFlowDir 

static int 
,g„ublic: 



// for now we are cache ing only on a flow basis 
fFlowBir; 

// get the oldest cached value 
Ge to Idest Index! void ); 



scCachedStyle ( ) : 
fXiiaeStamp { 0 
f RunAroundBorder ( 0 ) r 
fPtConv( 0 ), 
fSetConv( 0 ) 

^ SCinemset( fWidths, 0^ sizeofC fWidths ) ), 
fCursorYl - 0, fCursorYZ - 0; 

} 

'"scCachedStyle ( ) 
{ 
} 



void 



TypeSpecSc 



Glyphs ize 
GlyphSize 



SetSpec( TypeSpecSc ts ) 



fSpec « ts; 



GetSpecC void ) 
{ 

return fSpec; 

} 

// return the nominal escapement for this glpyh 
GetEscapement ( UCS2 ch ); 

GetLeftHangValue( UCS2 ch ) ^ ^ 

{ return scRoundGS{ { REAL) GetEscapement ( ch ) » GetLeftHangO / 10000 ); } 

GetRightHangValue ( UCS2 ch ) .... .^r.^^ x 

{ return scRoundGS( ( REAL) GetEscapement ( ch ) * GetRightHang ( ) / 10000 ); 



GlyphSise GetKernValue( UCS2, UCS2 ); 

const scXRectSc GetLogicalEKtents ( void ) const { return fLogicalEKtents; } 

const scXRectS* GetlnkEKtents ( void ) const { return flnkExtents; } 

eFntBaselme GetBaselineType( void ) const 

{ if ( fFlowDir.IsVerticalO ) return GetVertBasellne() ; 
else return GetHorzBaseline() ; } 
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File: SCSTCACH.H 

$Header: yProjects/l'oolbox/ct/SCSTCACH.H 3 5/30/9? 8:45a ^anis $ 
Contains: Style cache code* 
Written by: Manis 

Copyright (c) 1989-94 Stonehand Inc.. of Camforids©, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition ToolbOK software is the proprietary 
and confidential property of Stonehand Inc. 

#»*«*»*«**»»**»*«*»«»»»»»**»«»*****«»****»*»»*****************^ 

#ifndef Ji.BCSTCACH 
#define .H„SCSTCACH 

#xnclude "scstyle.h" 
#include "scmem.h" 

Clnline MicroPoint SCRLUCompMF( MicroPomt size, RLU rlu ) 

;Z ^ return scRoundMP( (REAL)size * rlu / scBaseRLUsystem ); 

}!: } 

^.inline GlyphSize SCRLUCompGS( GlyphSize size, RLU rlu ) 

ri { 

'^■^ return scRoundGS( (REAL)size » rlu / scBaseRLUsystem ); 

J } 

f^lass scCachedStyle : public scStyle { 
'^fublic: 

I J static void 
Y": static void 

fj static scCachedStyleSc 



static void 

static scCachedStyleS: 
static scCachedStyle& 

static scCachedStyleSc 



static void 



BuxldCache( int entries ); 
DeleteCache( void ); 

OetParaStyle( ) 

scAssert { cachedPara„ ) ; 
return cachedParaStyle„; 

SetParaStyleC const scContUnit*, TypeSpecS= ts }; 

// given a spec, get its cached value, 
// loading the cache in necessary 

// 

GetCachedStyle( TypeSpecSc ts ); 
FindCachedStyle( TypeSpec& ts ); 



// this simply returns the last cache we got 
// hold of, TEMPORARY 
GetCurrentCache ( ) 

return f CachedStyies [ f Last ] ; 

} 

// invalidate the spec, if UJLL all specs 
// will be invalidated 

// 

StyleInvalidateCache( TypeSpec& ts ); 
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select^ . f Mark , f Of f set , 
seiect_.f Point. f Off set ); 

diff » select_.f Point. f Off set - diff; 

if ( selects. f Point, f Para range„. f Point . f Para ) 

range_.f Point. f Off set +« diff; // extend the parent selection 

return ret; 

} 

void stFindlterImp: : range ( scStrsamLocationS mark, scStreamLacationS( point ) 
{ 

range_. Decompose { mark, point ); 

} 

Status SCSTR_GetFindIter( scStream* str^ 

stUnivStringSt ustr ^ 

const SearchState& flags, 
stFindIter*Sc friter ) 

{ 

status Stat « scSuccess; 
try { 

friter « new stFindlterImp ( ustr, fla^s, str ); 
"3 IGNORE^RERAISE; 
return stat; 

^^^atus SCSEL„GetFindIter( scSelection* sel, 
fi stUnivStringSt ustr, 

const SearchStateSs flags ^ 

stFindIter*Sc friter ) 

status Stat ^ scSuccess; 
try { 

friter ^ new stFindlterImp ( ustr^ fla^s, sel ); 

a } 

IGMOREJERAISE; 
return stat; 

} 
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s 



scContUnit* firstcu « select_.GetMark ( ) , fPara; 
scContUixit* iastcu - range^.f^etPointt ) .fPara; 

int32 startoffs^t; 
int32 endoffset; 

while ( firstcu 1= iastcu->GetNext{) ) { 

if ( firstcu select„.aetPoint() .fPara ) 

startoffset - select„.GetPoint () .fOf fset; 

else 

startoffset = 0; 

if ( firstcu range_.GetPoint{) -fPara ) 
eMcffset ^ ranse^.GetPoixit ( ) . fOf fset; 

e Ise 

endoffset = LONG„MAX; 
int32 offset; 

if ( firstcu->FindString( ustr„, 

state_r 
startoffset, 
endof fset, 
offset ) ) { 

select .SetMark{ TestMarker( firstcu, f irstcu->GetCount () , offset ) ); 
seiectI.SetPoint( TeKtMarker( firstcu, firstcu->GetCount() , offset + ustr„.len ) ). 
return 1; 

firstcu = firstcu->GetNert(); 

} 

return 0; 



iyit stFindlterImp: : backwards 0 

^ scContUnit* firstcu - range^.GetMarkO .fPara; 

''^ scContUnit* lastcu - select„.GetPoint() .fPara; 

f ^ 

7' int32 startoffset; 

!^ int32 endoffset; 

'-j while ( firstcu lastcu->GetFrev{) ) { 

s.s if ( firstcu select„.GetMark() .fPara ) 

endoffset - select„.GetMark ( ) . fOf f set; 

^™ else 

13 endoffset - LOHG„MAX; 

if ( firstcu range„.GetMark() .fPara ) 
startoffset ^ range_.GetMark() , fOf fset; 

else 

startoffset = 0; 
int32 offset; 

if ( firstcu->FindStrine( ustr_, 

state_, 
startoffset, 
endoffset, 
offset ) ) { 

select„.SetMark{ TeKtMarker( firstcu, f irstcu->GetCount () , offset ) }; 

select.. SetPoint( TeKtMarker( firstcu, f irstcu->GetCount ( ) , offset + ustr^.len ) 

return 1; 

} 

} 

return 0; 



int StFindlterImp: :replacetoken( stUnxvString& ustr ) 

^ int diff - select^. f Point. f Off set; 

int ret - select^. f Mark . f Para- >ReplaceToken ( ustr. 
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range_,SetPoint( TextMarker( point, poiRt->GatCouat () , point->GetContentSize() ) ) 
selects . SetMark ( range„ . GetMark () ) ; 
sele!Ct_.SetPoint( range„ . GetMark ( ) ); 

select_.Sort 0 ; 
range^.Sort (); 

res^t { ) ; 



stFindlterImp: :stFindIterIfflp( stUnxvStringSc ustr, 

const SearchStateSc state, 
scSerlection* sel ) : 
ustr_{ ustr ), 
str_( sel->GetStream() ). 
range„( *sel ), 
state_( state ) , 
cuOffset_( 0 ) 

se iect_. SetMark ( range_.GetMark() 
selectI.S§tPoint( range,. . GetMark ( ) ); 

select_.Sort 0 ; 
reset ( ) ; 



= = « = 



:v^oid stFindlterImp: : releasee) 
^r,j delete this; 



s: » s 3K «: s s = 



Ivoid stFindlterImp: ireset () 

li 

"'-'^ if ( lstate„. reverse () ) { 

'-^J select_.SetMark( range_ . GetMark ( ) ); 

select ,SetPc!iat{ range„ . GatMark ( ) ); 

Ji > 

else { 

1*3 select^. SetMark ( range^.GetPaint () ); 

m select_,SetPaint ( rarige„.GetPciint() ): 

... ^ 

} 



int stFindlterImp: :setselection( scSelection* sel ) 

{ 

«sel - select^; 
return 1; 

} 



int StFindlterImp: : next 0 

if { I state„. reverse 0 ) 
retura forwards ( ) ; 

else 

return backwards ( ) ; 

} 



=i at « S5 =1 as 



int StFindlterImp: -.forwards 0 

{ 
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status Stat ^ scSuccess; 
try { 

iter - new stContUnitIterImp( str, str->First() ); 

} 

IGHORE^RERAISE; 
return stat; 

} 

Status SCSEL„GetContUnitIter{ scSelection* sei* stContUnitIter*& iter ) 
{ 

status stat - scSuccess; 
try { 

Iter ^ new stContUnitlterImp ( sel ); 

} 

IGHORE„RERAISE; 
return stat; 

} 

class stFindlterImp : public stFindlter { 
public: 

stFindlterlmpO ; 

^3 StFindlterImp ( stUnivString& ustr, const SearchStateS:, scStream* str ); 
,3 StFindlterImp ( stUnivStringSc ustr, const SearchState&, scSelection* sel 

l[l virtual void release(); 

'y virtual void reset (); 

,j virtual int setselectxon ( scSelection* )j 

virtual int neKt(); 

virtual int replacetoken ( stUnivStringS: ); 

"'4 virtual void range ( scStreamLocationSs, scStreamLocationSc ); 

^" int forwards(); 
Z.^ i nt backwards ( ) ; 

'^rgrivate: 

UniversaiString ustr„; 
f'^ scStream* str_; 

scSelection range^; 
□ scSelection select^; 

SearchState state„; 

int32 cuOffset„; 

}; 

StFindlterImp : : stFindlterImp ( ) : 
cuOffset„( 0 ) 

{ 
} 

StFindlterImp: :stFindIterImp( stUnivString£= ustr, 

const SearchStateSt state, 
scStream* str ) : 

ustr„( ustr ), 

str_( str ), 

stat0„ ( state ) , 

cuOffset„( 0 ) 

{ 

scContUnit* mark = str~>First(); 
scContUnit* point str->Last(); 



range„.SetHark ( TextHarker( mark, mark->GetCount ( ) , 0 ) ); 
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stContUnitlterImp: rstContUnitlterlmpC scSelection* sel ) : 
stream_( sel->GetStre!amO ), 
cu^C 0 ) 

{ 

range„ - *$etl; 
range„ . Sort ( ) ; 
reset 0 ; 

} 

void stContUnitlterlmp: : releasee) 
{ 

delete this; 

} 

void stContUnitlterImp: :reset() 

^ cu„ ^ range„.f Mark. f Para; 
} 



int stContUnitlterImp: :gettokeniter( stTokenIter*£c tokenlter ) 
{ 

if ( c:u„ ) { 
M Int 32 start; 

O int32 end; 

if { cu„ ratxge„.f Mark. f Para ) 
fy start - range„. f Mark. f Off set; 

^3 else 
I'j start « 0; 

^'4 if ( cu„ range^.fPdint.fPara ) 

|3 end « range_. f Point, f Off set; 

else 

end = LOmjmK'. 
tokenlter « new s tXoken Iter Imp ( cu„. start, end, range_ ); 

H } 
IJ else 

tokenlter = 0; 
I? return cu_ ^ - 0 ; 



int stContUnitlterImp : :next ( ) 
{ 

cu_ * cu„->(jetMext() ; 

if ( range„.fPoint.fPara ) { 

if ( cu„ range„.fPoint.fPara->GetNeKt() ) 
cu„ = 0; 

return cu_ ? cu_->GetCount ( ) : -1; 



void StContUnitlterImp: : range ( scStreamLocationSc mark, scStreamLocationSt point ) 
range„. Decompose ( mark, point ); 

} 



status SCSTR.GetContUnitIter( scStream* str, 

stContUnitIter«Sc iter ) 

{ 
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int stTokenlterlmp: :paraselection( scSelection* sel ) 
{ 

if ( cu. ) 

sel->SatParaSelection( cu„, 0, cu_->GetContentSize ( ) ); 
return cu_ ! 0 ; 

} 

int stTokenlterImp: :setselection( scSalection* sel ) 
{ 

»sel = select^; 
return 1; 

} 

int stTokenlterlmp: :ne%t C) 

^ if ( select„.FMark.SelectStartSpellWord( true ) ) { 
if ( select_.fMark > select^. f Point ) 

select„.f Point « select^, fMark; 
if { seiect_.HestSpellWord( scSelectxon: rinContUnit ) ) 

return select„, f Point . f Of f set <« end_j 

} 

return 0; 



'^i>t stTokenlterImp: : get token ( stUnivStringSc ustr ) 

!^ 

kJ if ( iselect_.IsSliverCursorO ) { 

s'fs ulong tokenSize * sel ect„. Contents i ze {) ; 

if ( ustr.len < tokenSize ) 
^4 return -select„.ContentSize( ) ; 

'^^ return cu_">GetToken( ustr, select_.fMark.fOf fset, select... f Point ,f Of f set ) 

return 0; 

|:lnt stTokenlterImp: :replacetoken( stUnivStringSc ustr ) 

R 

int diff « select„.fPoint.fOf fset; 
int ret ^ cu„->ReplaceToken ( ustr^ 

select^ . fMark . f Of fset , 

selects- f Point. f Of fset ); 

cliff ^ select^, f Point, f Of fset - diff; 
if ( ret ScSc diff ScSc end_ < LOHG.MAX ) 
end_ diff; 

if ( cu„ range_, f Point ,f Para ) 

range_. f Point. f Of fset ^ end„; extend the parent selection 

return ret; 

} 

stContUnitlterImp: :stContUnitIterIinp( scStream* str. scContUnit* cu ) : 
stream„( str ) ^ 
cu_.( cu ) 

{ 

range_,AllSelect 0 ; 

} 
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^include "scappint.h" 
#include "scpubobj .h" 
#include "scstream.h'' 
#include "scselect .h*' 
#include "univstr.h" 

class stContUnitlterlmp ; public stContUnitlter { 
public: 

stContUnitlterlmpC scStream* str, scContUnit* cu ); 
stContUnitlterlmpC scSelection* sel ); 
virtual void release(); 
virtual void reset (); 

virtual int gettokeniter( stTokenIter*£t ); 

virtual int nextO; . r x 

virtual void range ( scBtreamLocationSc, scStreamLocatioa& ); 

private ; 

scStream* streauu; 
scContUnit* cu„; 
scSelection range_; 



class stToken Iter Imp : public stTokenlter { 
public : 

stTokenlterImp ( scContUnit*, int32, int32, scSelection& ); 

virtual void release (); 

virtual void reset (); 

P virtual int paraselection ( scSelection* ); 

.1 virtual int setselection( scSelection* ); 

?S virtual int gettoken( atUnivStrin^Sc ); 

virtual int replacetoken ( stUnivStringS: ); 

fU virtual int neKt(); 

: .private: 

1:^ scSelectionSf range.; 

""'-^ scContUnit* cu„; 

□ scSelection select_; 

int32 start„; 
int32 end„; 

ritTokenIterImp::stTokenIterImp( scContUnit* cu. int32 start, int32 end, scSelection^ range ) 
ran9e_( range 
cu_( cu ), 
start_( start ), 



end_{ end ) 
reset ( ) ; 



{ 
} 



*/ 



void StTokenlterImp: : releasee) 
{ 

delete this; 

} 

void StTokenlterImp: : reset {) 

select„.SetParaSelection( cu_, start„, start„ ); 
select_,fMark,SeiectStartSpellWord( true ); 
select„.f Point « select.. fMark; 
select_.HeKtSpellferd() ; 

} 
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mmHeight = MIH( minHeight. verts->y ); 

} 

return minHeight < 0 ? masDepth - minHeight : maKDepth; 

} 

long P0LYEKternalSi2e( scVertHandle v^rtH. 

long size ) 

^ return size * si2eof( scVertez ); 
} 



void POLYtoFileC APPCtsPtr ctKPtr, 

lOFuncPtr writeFunc , 
scVsrtHandle vertH, 
ushort size ) 

{ 

scVertex* verts; 

long xsize = POLYExternalSizef vertH, sise ); 

scAutoUnlock hC vertH ); 

verts « (scVerteK*)*h; 

// 8CPI0 WritePolygonC ctxPtr, miteFunc, verts, (size_t)size ); 



JacVertHandle POLYFromFile ( APPCtsPtr ctxPtr, 
I y I OFuncP tr readFunc , 

ushort size ) 

n scVertHandle volatile vertH 0; 
scVerteK* verts; 

r vertH - (scVertHandle)MEMAllocHndC (si2e„t)size * sizeof( scVertes ) ); 

H try { 

"^1 scAutoUnlock h( vertH ); 

ly verts =^ ( scVertex* )*h; 

SCPIO_ReadPolygon{ ctxPtr^ readFunc, verts, (size„t)size ); 

O } catch (..-){ 
12 MEMFreeHnd( vertH ); 

throw; 

} 

return vertH; 

} 
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/»*«»*«**««»»»«**»»****«»**»*»«»»»****»**««*»********»*«*********»************ 

File: SCPOLYGO.C 

$HeQde!r: /Projects/IoolboK/ct/SCPOLYGO .CPP 2 5/30/97 8:45a Witianis $ 
Contains: Polygon code. 
Written by: Mams 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, Mk, 
All rights reserved. 

This notice is intended as a precatition against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

»«»*»»««*»**»»«»*»«*«*««*****»*»«*«»»**»*»»»***»*****«*»**»**»******^ 

#include "scpolygo.h" 
#inc2ude "scmem.h" 
#include "scf iieio.h*' 



K ss :s » sa ss !K :s */ 



C-^id POLYDuplicate( scVertHandle* dstOutHP, 

J, 1 ushortSt dstNumVerts , 

II scVertHandle srcOutH^ 

ushort srcHumVerts ) 



^1 



scVertex* srcVert ; 
scVertex* dstVert ; 

*dstOutHP = (scVertHandle)MEHAllocHnd( (size_t)srclsrumVerts * sizeof (scVerten) ) 

scAutoUniock hl( *dstOutHP ); 
scAutoUniock h2{ srcOutH ); 

dstVert = (scVerteK«)*hl; 
srcVert ^ (scVerteK*)«h2; 

SCmemcpy( dstVert, srcVert, srcHumVerts * sizeof( scVerteK ) ); 
dst^umVerts = srcHumVerts; 



ushort POLYCountVerts ( const scVertes* verts ) 
{ 

ushort numVerts; 

for ( numVerts = 1; verts->f PointType !« eFinalPoint; verts++, numVerts++ } 
return numVerts; 



MicroPomt POLYMaxDepth ( scVertHandle vertH ) 
{ 

scVerteK* verts ; 
MicroPoint maxDepth « LONG_MIN, 
ffiinHeight = LOHG„MAX; 
scAutoUniock h( vertH ); 

verts ^ ( scVerteK* )*h; 

for ( ; verts->f PointType eFinalPoint; verts++ ) { 
maxDepth « maxDepth, verts ->y ); 
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long ): 



#if defined ( MEM^DEBUG ) 



void 



memDumpMetriGs( void ); 



void* MEMAllocPtrDebu^C ulong sz, const char ^filename, mt line ); 

scMenjHandle MEMAllocHnd Debug { ulong sz, const char *filenaitie. int line ); 

void^ MEMDupPtrDebug ( const void const char *filename, int line ); 

scMersHandle MEMDupHndDebug ( scMeittHandle. const char *filename, int line ); 

void* M£MResi2ePtrDebug( void **, ulong sz^ const char* file, mt line ); 

scMemHandle MEMResizeHndDebug ( scMemHaadle, ulong sz, const char* file, int line ). 



#define MEMAllocPtr{ sz ) 
#define MEMAllocHnd{ sz ) 

#define MEMResizeHnd ( h, sz ) 
#define M£MResizePtr{ sz ) 

#define MEMDupPtr( p ) 
#def ine MEMDupHnd( p ) 



MEMAllocPtrDebugC (sz), 
MEMAllocHndDebug( (sz), 

MEHResizeHndDebug( (h). 
MEMResizePtrDebugC (pN 



„FILE_, _LME_ ) 
„FILE_, _LIHE_ ) 



(sz), _FILE„ 
(sz), _FILE„ 



_LIHE_ ) 
_LIIsfE_ ) 



MEMDupPtrDebug ( (p), _FILE_, _LmE_ ) 
MEMDupHndDebug ( (p), _FILE_, _LINE_ ) 



//void* MEMAllocObj Debug ( ulong sz, const char *filenaiae, int line ); 

//void* MEMDupObj Debug ( void *, const char *fxlenaine, int line ); 
C3/#define MEMAliocObj( sz ) MEMAl locObj Debug ( (sz), _FILE_, _LmE_ ) 
s.l/#define MEMDupObj ( p ) MEMDupObj Debug ( (p), _FILE_, _LIHE_ ) 



|i|endif /* SCDEBUG */ 




~ielass scAutoUnlock { 
[ public. • 

I scAutoUnlock ( scMemHandle hnd ); 

'^scAutoUnlock ( void ); 



""^J void *operator *(} { return scMemDeref( fHandle ); } 

J' private : 

scMeinHandle fHandle; 



// The scStackMem is a convenient way to allocate some temporary 

// memopry without having to worry about freeing it. 

// since it is rather unsafe to create a stack object that 

// allocates memory we will create the next best thing, 

// the object will be created storing the desired size, 

// and then the fucntion can get the memory by calling Init. 

// The memory will be freed by the contstructor or may be freed 

// by the user using Free. Resize can resize the memory if needed 



#endif /* „H„MEM */ 
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scMeitiHandle MEMDupHnd( 

scMerriHandle hnd ) ; 



//void* 
#endif 



MEMDupObj( void * ); 



// @parm Handle to dup. 



// iCALLBACR Free a pointer, 
void MEMFrsePtr( 

void *ptr ) ; 

// ©CALLBACK Free a handle, 
void MEMFreeHnd ( 

scMerriHandle hnd )j 
//void MEMFreeObj ( void * ) ; 



// §parm Pointer to free. 



// @parm Handle to free. 



// dCALLEACK Resize a pointer, 
void* MEMHesisePtr( 

void** ptr, // @parm Pointer to resize. 

ulong sz ); // ^arm Hew size in bytes. 



// ©CALLBACK Resize a Handle. 
scMeiaHandle MEMResizeHnd( 

scMeuiHandle hnd, // @parm Handle to resize. 

ulong sz ) ; // §parm Mew size in bytes. 

Il/ iCALLBACK Get size in bytes of pointer. 
^ 1 ong MEMGetSi zePtr ( 

:!: const void* ptr ); // @pam Pointer to size. 

yi 

fH/ ©CALLBACK Get size in bytes of handle, 
.^long MEMGetSizeHnd( 

scMeuiHandle hnd // ©partrt Handle to size. 



"^il/ulong 



MEMGetSi zeObj ( void » ) ; 



'7/ ©CALLBACK Lock a handle^ returns ptr to handle contents, 
:yo id* MEMLockHnd ( 

□ scMemHandle hnd, // @parm Handle to lock. 

.:j int counted « 1 ); // @parm If non-zero count the locks. 



r^/ ©CALLBACK Unlock a handle, 
rf oid MEMUnlockHnd ( 

f rl scMemHand 1 e hnd , 

int counted 0 ) ; 



// ©parm Handle to unlock. 

// ©pans If non-zero count the locks. 



#if SCDEBUG < 2 

inline void MEMVaIidate( void * ){} 
#else 

void MEMValidateC void *ptr ); 
#endif 



#ifndef SCmemset // we are in a 16 bit world 

void scFar * scFar scCDecl SCmemset ( void scFar *^ 

int, 
long ); 

void scFar * scFar scCDecl SCmeimnove( void scFar *, 

const void scFar *, 
long ); 

void scFar * scFar scCDecl SCmemcpy( void scFar », 

const void scFar 
long ); 

int scFar scCDecl SCmemcmp( const void scFar *, 

const void scFar «, 
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File: MEM.H 

$Header: /Projects/Toolbos/'ct/SCMEM.H 2 5/30/97 8:45a VAuanis $ 

Contains: Memory bottle neck fucntions. These functions should be replaced 
by the client - integrating stonehand memory management and 
the clients memory management. 

Written by: Sealy 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA, 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

§doc 

#ifndef ^H.MEM 
#define „H„MEM 

Ciifdef SCMACIlsrrOSH 
.^2 #pragma once 
^I^endif 

f^nclude "scescept .h" 

Jlifndef useSMMOTEAP 

typedef long MEM.POOL; 
^^^fendif 

^^/ ©struct scPoolInfo | A structure for allocating mem pools. 
:gtruct scPoolInfo { 

C3 si2e„t fBlockSize; // @fieid Sizeof block for pool. 

'^J MEM^POOi fPool; // §field See Smart Heap, for use foy MEMInit, 

13/ iCALLBACK This initializes memory for use by Composition ToolboK. 
}4/ Called from <f SCEMG_Init>. 

void MEMInit { 

scPoolInfo poolsf] ); // §parm <t scPoolInfo array is null teminated . 

// iCALLBACK Called when Toolbox is closed with <f SCENG„Fini>, 
void MEMFini( void ); 



#if ! defined { MEMJEBUG ) 

// ©CALLBACK Allocate fixed block, return ptr. 
void* MEMAllocPtr( 

ulong sz ); // @parm Size in bytes. 

// CALLBACK Allocate moveable block, return handle that can be dereferenced with **. 
scMemHandle M£MAllocHnd( 

ulong sz ); // @parm Size in bytes. 

yy^oid* MEMAilocObj( ulong sz ) ; // allocate using object factory, return ptr 

// ©CALLBACK Duplicate a pointer, 
void* M£MDupPtr( 

const void *ptr ); // @parm Pointer to dup. 

// iCALLBACK Duplicate a handle. 
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static void HEMJ^rrayPtrTest () 
{ 

short 1 , 

element; 

scMemArray *ptrArr; 

ptrArr = SCNEW scMeinArrayC sizeof (short ) ); 

for { i - 0; i < lOG; i++ ) 

ptrArr->AppendData( (£lenientPtr)S(i ); 

for ( i = 0; i < ptrArr->GetNumItei£is ( ) ; i4"f ) { 
ptrArr->GetDataAt( 1, (ElemantPtr)telsment ); 
scAssert( i ^- element ); 

} 

ptrArr->RemoveDataAt ( 0 ) ; 



for ( i =^ 0; i < ptrArr->GetNu!nIteias( ) ; 1+-*- ) { 
ptrArr->GetDataAt( i, (ElementPtr)Scelement ); 
scAssert( i+1 element ); 

} 

ptrArr- >RemoveAl 1 ( ) ; 
C3 delete ptrArr; 

i 

:Sl:atic void MEMArrayHndTest ( ) 

'"'-^^ short i, 

"^■-J element; 

scHandleArray ptrArr ( sizeof (short) ); 

C3 for ( 1 * 0; i < 100; i++ ) 

'^J ptrArr .AppendData( (EleinentPtr)&i ); 

~" for ( i = 0; i < ptrArr .GetNumIt ems () ; i++ ) { 

ptrArr. GetDataAt( i^ (ElementPtr)Sceleiaent ); 
fl scAssert( i element ); 

ptrArr. ReinoveDataAt( 0 ); 



for ( i = 0; i < ptrArr.GetNumItems( ) ; i++ ) { 
ptrArr *GetDataAt( i, (ElementPtr)Sie lament ); 
scAssert( i+1 element ); 

} 

ptrArr , RemoveAl 1 ( ) ; 

} 

void MEMArrayTest ( void ) 
{ 

MEMArrayPtrTest ( ) ; 
MEMArrayHndTest ( ) ; 

} 



#endif 
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} 

void scHand 1 ©Array : :Si2eSlots( long numi terns ) 

{ . . - • 

do not shrink if we are retaining memory or if no resizing is 

necessary 

// 

if ( ( nuffiltems < fElemSlots S^Sc fRetainMem ) \ \ fEleinSlots numltems ) 
return ; 

long oldSize = fEleinSlots; 

raise_if( f Items 2^LL, sc£RI?mem ); 

f Items - MEMResizeHnd( (scMemHandle) f Items, fElemSize * numi terns ); 

fElemSlots « numi terns; 
ClearMem( oldSize ); 



ElementPtr scHandleArray : :Lock ( void ) const 

^ raise_if( f Items MULL> scERRmem ); 

return (ElementPtr)MEMLockHnd ( (scMemHandle)f Items ); 

} 



Sid scHandleArray: :Unlock{ void ) const 

Q 

raise„if( f Items — MILL, scERRmem ); 
MEMJnlockHnd( (scMemHandle) f Items ); 



llHandleArraySt scHandleArray :: operator- ( const scHandleArraySc cpa ) 



if ( f I terns ) 

MEMResi2eHnd( Scf Items, cp© .fElemSize * cpa .fElemSlots ): 

e 1 se 

f Items = MEMAllocHnd( cpa. fElemSize * cpa. fElemSlots ); 

scAbstractArray; : operator «=( cpa ); 

scMemHandle hl„ « (scMemHandle)f Items; 
scMemHandie h2_ « (scMemHandle)cpa . f Items; 

scAutoUnlock hl( hl„ ); 
scAutoUnlock h2( h2„ ); 

memcpy( *hl, *h2, fElemSize * fMumltems ); 

return *this; 



/* MEMARRAYTEST */ 




Me fine MEMARRAYTEST 

#ifdef MEMARRAYTEST 

#include <windows.h> 
#include "assert. h'* 
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// 

if ( ( numi terns < fElemSlots ScSc fRetainMem ) 1 1 fElemSlots numi terns ) 
return ; 

long oldSize ^ fElemSlots; 

raise„if( f Items ilULL, scERRmem ); 

MEMResizePtr( &f Items, fElemSise * numi terns ); 

fElemSlots « numI terns ; 

ClearMem{ oldSize ); 



ElementPtr scMemArray : : Lock ( ) const 
{ 

raise„if( f Items IsIULL, scERRmem ); 
return (ElementPtr) f Items; 

} 



scMemArraySc scMemArray :: operator » ( const scMemArraySc cpa ) 
{ 

if ( f I terns ) 

MEMResisePtr( &f I terns, cpa.fElemSize » cpa. fElemSlots ); 

e Ise 

f Items = MEMAIlocPtrl cpa .fElerr^ize * cpa. fElemSlots ); 

.-.^ scAbstractArray: : operators ( cpa ); 

SCmemcpy( f Items, cpa. f Items, fElemSize * fHumI terns ); 

rn return *this; 

K 

s^Hand 1 eArray : : scHand 1 eArr ay ( s i 2:e_t e 1 emS i ze , 
13 nnBi^UBA clearmem ) : 

scAbstractArray( elemSxze, clearmem ) 

^1 f Items - (scMemHandle)MEMAllocHnd( fElemSize * fBlockSize ); 

'J fElemSlots - fBlockSize; 
fj CleaxMem{ 0 ); 

scHand 1 eArray : : "'scHand 1 eArray ( ) 
{ 

if ( f Items ) 

MEMFreeHnd( (scMemHandle) f Items ), f I terns - 0; 

} 

int scHandleArray: :IsEqual( const scObjectSt obj ) const 

^ const scHand leArraySc harray « (const scHand 1 eArrayS ) obj ; 
if ( fHuml terns \^ harray , fNumI terns ) 
return 0; 

return scAbs tract Array : :IsEi3ual ( obj ); 

} 

void scHandleArray: : Grows lots C long newl terns ) 

^ long oldSize = fElemSlots; 

raise ifC fitems — HULL. scERRmem ); 

fitems - MEMResizeHnd( (scMemHandle) fitems, fElemSize * ( fElemSlots + newltems ) } 
fElemSlots +« newl terns; 
ClearMem( oldSize ) ; 
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items 

const scAbstr act Arrays* absarray - ((const scAbstractArray£<)obj ) ; 

EieraentPtr elemPtr = Lock(); 

ElementPtr elemPtrZ * absarray .Lock () ; 

int isEqual; 

isEqual « ( fElemSize absarray . fElemSise ); 
if ( isEqual ) 

isEqual = ISCmemcmp( elemPtr, elemPtrZ, fNumltems * fElemSize ); 

Unlock (); 
absarray. UnlockO ; 

return isEqual; 



scMemArray : : scMemArray ( s i 2e_t e 1 emSi ze , 

unsigned clearmem ) : 

scAbstractArrayC elemSise, clearmem ) 

^ f Items - H£MAllacPtr( fElemSize * fBlockSize ); 

fElemSiots = fBlockSize; 
ClearMem( 0 ); 

} 



I^MemArray: : scMemArray { const scMemArraySt ma ) : 
1% scAbs tract Array ( ma ) 

ly fitems « HEMAllocPtr( fElemSize * ma . FElemSlots ); 

l fElemSlots ^ ma .fElemSlots; 

SCffieKicpy( fitems, ma. fitems, fElemSize * ma. fElemSlots ); 

Ii 

IcMemArray : : '^scMemArray ( ) 

13 

HJ if ( fitems ) 

,1 MEMFreePtr( fitems fitems - 0; 



k4it scMemArray: : IsEqual ( const scObject& obj ) const 

^ const scHandleArraySt harray » (const scHandleArray&)obj ; 
if ( fNuml terns harray, Ge tHumI terns () ) 
return 0; 

return scAbstractArray :: IsEqual ( obj ); 

} 

void scMemArray: :GrowS lots ( long newl terns ) 

^ lon0 oldSize « fElemSlots; 

raise_if( fitems NULL, scERRmem ); 

HEMResizePtr( &f Items, fElemSize * { fElemSlots + newltems ) ); 
fElemSlots newltems; 
ClearMem( oldSize ); 

} 

void scMemArray: :SizeSlots( long numi terns ) 

^ do not shrink if we are retaining memory or if no resizing is 

// necessary 
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long param ) const 

{ 

ElementPtr elemPtr * Lock(); 
int i; 

for ( i - 0; i < fNumI terns; ^lemPtr fElemSize ) { 

if ( (»func)( elemPtr, param ) ) { 
if ( —nth 0 ) 
break ; 

} 

} 

UnlockO; 

return x < fHumI terns ? i : -1; 

} 

long scAbstractArray: :HthSuccass ( CBoolConstFunc2 func^ 

long nth , 

long paramlj^ 
long param2 ) const 

{ 

int 1 ; 

ElementPtr elemPtr * Lock{); 

for ( i « 0; i < fMumI terns; i++^ elexnPtr fEiemSize ) { 
iF{ (*func) { elemPtr^ paraml, paramZ ) ) { 

^.J break; 

fll > ^ 

^3 UnlockO ; 

ill 

'Ci return 1 < fHumltems ? i : -1; 

rl 

^/bid scAbstractArray: : Quicksort ( CPtrArrayCmpFunc compfunc ) 

"A 

iy raise„if( f Items MULL^ scERKmem ); 
^Jl ElementPtr elemPtr « Lock{); 

n ::qsort( elemPtr, fHumltems^ fElemSize, compfunc ); 
UnlockO; 

} 

scAbstractArraySt scAbstractArray : :operator= ( const scAbstractArraySc absarray ) 
{ 

fNumI terns - absarray. fNumI terns; 
fElemSlots ^ absarray. f El emSlots; 
FElemSize « absarray, f El emSize; 
fBlockSize « absarray. fBlockSize; 

return *this; 

} 

// this is a very dumb and dangerous method if you are using the abstract 
// array class to hold structures, structure alignment may cause there to 
// be '*dead" space in the structure which may be filled with 
/-^ gargbage rendering this method useless^ so overide if needed 

int scAbstractArray: :IsEqual ( const scObject& obj ) const 
{ 

// by the time we hit here we assume we have the same number of 
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UnlockO; 

return i < fNumI terns ? i : -1; 



} 



long scAbstractArray: :NthSuccess( CBoolFuncl func, 

long nth ^ 

long param ) 



{ 



long i ; 

ElementPtr elemPtr « Lock(); 

for ( i = 0; 1 < fNumltems; elemPtr fElemSize ) { 

if ( (*func){ elemPtr, param ) ) { 
if ( —nth 0 ) 
break ; 

} 

} 

UnlockO; 

return i < fl^^umI terns ? i : -1; 



/^t _-_asr. = --sssaK = »ae=s=t»5B3=:wsa«J=:»«sK = s= = = = = - = = 

Ong scAbstractArray::HthSucc:ess( CBooiFunc2 func, 
i. "i long nth, 

IZ long paraml^ 

long param2 } 

long i; 
l',! ElementPtr elemPtr = Lock(); 

'^J for C i - 0; i < fNumltems; i++. elemPtr fEiemSize ) { 
p if( (*func)( elemPtr, paraml, param2 ) ) { 

^7 if ( —nth 0 ) 

!.„ break; 

y } 

yd } 

f: UnlockO; 

£3 return i < fHumI terns ? i : -1; 

m 

long scAbstractArray: :NthSuccess( CBoolConstFuncO func, 

long ^th ) const 



{ 



} 



int i ; 

ElementPtr eleittPtr - LockO; 

for ( i « 0; i < fHumltems; i++, elemPtr fElemSize ) { 
if ( (*func)( elemPtr ) ) { 
if ( —nth 0 ) 
break; 

} 

> 

UnlockO ; 

return i < fHumI terns ? i : -1; 



long scAbstractArray: :HthSuccess( CBoolConstFuncl func, 

long Jith, 
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Unlock (); 

return i < fHumI terns ? i : -1; 

} 

long scAbstractArray: ;FirstSuccass( CBoolConstFuncQ £unc ) const 
{ 

int i; 

ElementPtr elemPtr « Lock(); 



for ( i 0; i < fHumltiems; i-f+, elemPtr fElemSisje ) 
if ( (*£unc)l elejnPtr ) ) 
break ; 

UnlockC); 

return i < fMumI terns ? i : -1; 

} 

long scAbstractArray: ;FirstSuccess( CBoolConstFuncl func^ 

long param ) const 

{ 

int i; 

ElementPtr elemPtr - Lock(); 

fn for ( i 0; i < fHuHiItems; i++, elemPtr fElemSize ) 
ry if ( («func)( elemPtr, param ) ) 

break; 

hi UnlockO; 

f J return i < fKfiHnltams ? i : -1; 

y 

^ifcing scAbstractArray: ;FirstSuccess( CBoolConstFunc2 func, 

|y long par ami, 

IS: long param2 ) const 

Q ElementPtr eleraPtr « Lock(); 

for ( i « 0; i < fMumI terns; elemPtr fSlemSize ) 

if{ (*func)( elemPtr^ paraml, paraffi2 ) } 
break ; 

UnlockO; 

return i < fHuml terns ? i : -1; 

} 



long scAbstractArray: ;NthSuccess( CBoolFuncQ func, 

long nth ) 

{ 

long i ; 

ElementPtr eiemPtr Lock(); 

for ( i « 0; i < fHumI terns; i++, elemPtr +•« fElemSize ) { 
if ( (*func) ( elemPtr ) ) { 
if { —nth =^ 0 ) 
break; 

} 

> 
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void scAbstractArray: :DoForEach( CVoidFuncl func, long param 
{ 

int i; 

ElementPtr elemPtr « Lock(}; 

for ( i ^ 0; i < fHumI terns; i++, eiemPtr fElemSize ) 
{*fUBc)( elemPtr, param ); 

Unlock 0 ; 

} 



void scAbstractArray: :DoForEach( CVoidFuncZ func, long paraml, long paramZ ) 
{ 

int i; 

ElementPtr elemPtr ^ Lock{); 

for ( i « 0; i < fHumI terns; i++. elemPtr fElemSise ) 
(*funo){ elemPtr, paraml. paramZ ); 

UnlockC); 

} 

long scAbstractArray: :FirstSuccess( CBoolFuncO func ) 
{ 

int i; 

ElementPtr elemPtr - Lock(); 

m for ( i « 0; i < fNumI terns; i++. elemPtr +* fElemSize ) 
III if ( (*func)( elemPtr ) ) 

y break ; 

hi UnlockO; 

'"^ return i < fHuml terns ? i : -1; 



u'bng scAbstractArray: ;FirstSuccess( CEoolFuncl func, 

long par am ) 

S£ 

int x; 
fi EleiaentPtr elemPtr « Lock(); 

for ( i * 0; i < fNumI terns; i++. elemPtr fElemSize ) 
if ( (*func)( elemPtr, param ) ) 
break ; 

UnlockO; 

return i < fHumI terns ? i : -1; 

} 

long scAbstractArray: :FirstSuccess( CBoolFunc2 func, 

long param 1, 

long parani2 ) 

{ 

int i ; 

ElementPtr elemPtr - Lock(); 



for ( i « 0; i < fNumI terns; i++, elemPtr h-^ fElemSize ) 
if( (*func)( elemPtr, paraml, param2 ) ) 
break; 
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EleraentPtr ptr = Lock(); 

SCmeHimove( ptr + ( ( IndeK -f elements ) * fElemSize ), 
ptr + ( index * £ElemBize 
{ fNumI terns - index ) * fElemSize ) ; 

SCmemove( ptr + ( index * fElemSize ), 
elemptr;, 

elements * fElexnSize ); 

UnlockC); 

fNumI terns elements; 

} 

ElementPtr scAbstractArray; :GetDataAt( long index, 

ElementPtr elemptr, 

long elements ) const 

scAssert( index + elements <* fNumI terns ); 

ElementPtr ptr ^ Lock(); 

SCmemmove( elemptr, 

ptr + (ind&z * fElemSise), 
elements * fElemSize ) ; 

Unlock(); 
^^l return elemptr; 



MementPtr scAbstractArray: :Pop( ElementPtr elemptr. 
i--. long elements ) 

long indeK ^ fHumI terns - 1; 

elemptr - GetDataAt( index, elemptr, elements ); 
£^1 RemoveDataAt { indes, elements ); 
return elemptr; 

K 

ElementPtr scAbstractArray: :GetTop( ElementPtr elemptr, 

long elements ) 

{ 

long index « fNumI terns - 1; 

elemptr = GetDataAt( index, elemptr, elements ); 
return elemptr; 

} 

void scAbstractArray: :DoForEach( CVoidFuncO func ) 
{ 

ElementPtr elemPtr « Lock(); 
int i ; 

for ( i = 0; i < fHumltems; i-*-+, elemPtr +^ fElemSize ) 
(*func) ( elemPtr ); 

UnlockO; 

} 



File: Work\CrtPrt\Stonehnd\Scmemarr . cpp 



Pg: 2 



} 

catch (..•){ 
UnlockO; 
throw; 

} 

UnlockO; 

} 

void scAfostractArray: :Cut( scAbstractArraySc arr, long start, long end ) 
{ 

Copy{ arr, start, end ); 
RemoveDataAt ( start, end - start ); 

} 

void scAbstractArray: :AppendData( const ElementPtr elemptr, 

long elements ) 

SetNumSlots( fHumltems + eleouents ); 

ElementPtr ptr « Lock(); 

SCmBmaoy0( ptr + ( { long )fNumI terns * fElemSize ), 
elemptr, 

(fElemSi2e » elements) ); 

13 UnlockO ; 

^1 fHumltems += elements; 

fl 

iVpid scAbstractArray: :RemoveDataAt( long xndex, 

long elements ) 

ri scAssert( indBx + elements fNumltems ); 

ElementPtr ptr =* LockO; 

'^J SCmeiiamove( ptr + ( index * fEleiaSize ), 

I ~l ptr + ( ( index + elements ) * fElemSize ) , 

~'f { fHumI terns - index - elements ) * fElemSize ); 

C3 UnlockO; 

fHuml terns elements; 

ShrinkSlots ( ) ; 

} 

void scAbstractArray; :AlterDataAt( long index, 

ElementPtr elemptr, 
long elements ) 

{ 

ElementPtr ptr = LockO; 

SCmeinmove( ptr + ( (long)index * fElemSize ), 
elemptr, 

fElemSize » elements ); 

UnlockO; 

} 

void scAbstractArray: :InsertAt{ long index, 

ElementPtr elemptr, 
long elements ) 

^ SetNumSlotsC fNiimltems + elements ); 
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/*«*»»««»«***»*»*»*»**»»»«***«**»»»******»*******»***«**»**«***»»******** 

F i 1 0 : scmamarr . cpp 

SHeader: /Projects/ToolboK/ct/SCMEMARR.CPP 2 5/30/97 8:45a Wmanis $ 
Contains: Variable sized array code. 
Written by; Man is 

Copyright {c) 1989-1994 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



»»*«***»»»»»»»*»*»*«*»»*»»*«*»**»***««***»**»»»»****«*»*****»»****»»***»*^ 

#include "scmeiaarr .h" 
#include "sciaem.h" 

#include <string.h> 
^include <stdlib,h> 

^Void scAbstractArray: :ClearMem( long oldsize ) 

fi 

^.3 // either we do need to clear memory or we have shrunk it 

if ( IfClearMem 11 oldsize >- fElemSlots ) 
return; 

fi ElementPtr elements ^ Lock(); 

" SCmemset( elements -i- ( oldsize * fElemSize 

( fElemSlots - oldsize ) * fElemSize ); 
UnlockO; 

51 

I; -J 

void scAbstractArray: : Paste ( long index, const scAbstractArray& arr ) 
{ 

ElenyentPtr ptr = arr.LockC); 
try { 

InsertAt( indes, ptr, arr,GetNumItems() J; 

} 

catch (...){ 
arr .Unlock () ; 
throw; 

} 

arr .Unlock ( ) ; 

} 

void scAbstractArray: : Copy ( scAbstractArrayS< arr, long start, long end ) const 
{ 

ElementPtr ptr * Lock ( ) ; 
try { 

arr.InsertAt{ 0, ptr, end - start }; 
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} 

~scHand 1 sArrayLock ( voi d ) 
{ 

array_.Unlock() ; 

} 

void *ciperator •() { return array_.GetMem( ) ; } 

private : 

scHandleArrayS array_; 

}; 

#endif /• _H_CMEMARR */ 



C3 
o 
cn 

ry 
w 

H 
C3 

ca 

w 
I- 

C3 
U 



File: Work\CrtPrt\Ston©hnd\Scniismarr , h 



Pg: 4 



EleiRentPtr GetMem( void ) const 

{ 

return (ElementPtr) f Items; 

} 

ElementPtr GetMem( long n ) const 

{ 

return (ElementPtr) ( (char*) f Items + (n*fElemSize) ^ 

} 

virtual Int IsEqual { const scObjectSc ) const; 



protected : 
void 
void 



ElementPtr 
void 



GrowSlots( long ); 
Si2eSlots( long ); 

Lock( void ) const: 
Unlock ( void ) const 



{} 



class scHandleArrayLock; 

class scHandleArray : public scAbstractArray { 

scDECLARE^IOTI ; 

friend scHandleArrayLock; 
gublic; 

13 scHandleArray () : scAbstractArray { sizeo£( void* ) ){} 

scHandleArray( Bize^t elemSize, unsigned clearmem = 0 j; 
scHdadleArray( const scHandleArrayS, unsigned cleamem « 0 )^ 

f U ""scHandleArray ( ) ; 

scHandleArrayS* operator- ( const s cHa ndle Array S: ); 

"^4 NOTE : M { M I M ! ! i ! M i I N ! ! f 1 M f i N ! I M M ! M M M M ! f [ ! I i 

fl yy these rely upon the fact the memory manager uses a mac type 

// handle, smart heap does this so if you use smart heap or the 
" // stonehand memory manager you ar^ safe 

O // HOTE: ! i ! i ! ! ! 1 ! I ! i i M I ! I M ! M I i I n ! M [ H i I ! I ! M j n 1 M 

'"--■J ElementPtr GetMem( void ) const 

M { 

return (ElementPtr)* ( (char**) f Items) ; 

H } 

O ElementPtr GetMem( long n ) const 

return (ElementPtr) (*( (char**) f Items) + (n*fElemSize) ) ; 

} 

virtual int IsEqual { const scObjectSr ) const; 



protected ; 
void 
void 



ElementPtr 
void 



<jrowSlots( long ); 
SxzeSlots( long ); 

Lock( void ) const; 
Unlock ( void ) const; 



class scHandleArrayLock { 
public: 

scHandleArrayLock ( scHandleArray* array ) 
array_( *array ) 

{ 

array^.LockO ; 

} 

scHandleArrayLock ( scHandleArray^ array ) 
array_.( array ) 
{ 

array_.Lock 0 ; 
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long FirstSuccess( CBoolConstFunc2, long, long ) const; 

// these will return the index of the nth 
// successful match of the data 
// NOTE: if their is NO match it RETUENS 



long 
long 
long 

long 
long 
long 

void 

void 



unsigned 



virtual void 



NthSuccess( CBoolFuncO, long nth ); 
NthSuccess( CBoolFuncl^ long nth^ long ); 
NthSuccess( CBoolFuncZ^ long nth, long, long 



NthSuccess( CBoolConstFuncO, long nth ) const; 
HthSuccess( CBoolConstFuncl, long nth, long ) const; 
NthSuccess( CBoolConstFunc2, long nth, long, long ) const; 

Quicksort ( CPtrArrayCiapFunc ); 

SetRetainMem( unsigned tf ) 
{ 

fRetainMexn * tf ? 1 : 0; 

} 

GetRetainMem( void ) const 
{ 

return fRetainMem; 

} 

SetNuBiSlotsC long nuir^lots ) 

^ Si2eSlots( ( { numSlots / fBlockSize ) + 1 ) * fBlockSize ); 
} 



|5otected : 

virtual void 



virtual void 
virtual void 
virtual void 



void 



MoreSlots( void ) 
{ 

GrowSlots( fBlockSize ); 

} 

SizeBlots( long ) - 0; 
GrowSlots{ long ) » 0; 
ShrinkSlots( void ) 

{ 

SetNumSlots{ fNumltems )i 

} 

ClearMem( long oldsise ); 



i-3 



virtual ElementPtr Lock( void ) const «^ 0; 
virtual void Unlock ( void ) const 0; 



long 
long 

unsigned 
unsigned 



unsigned 
unsigned 
void* 



fNumI terns; 
fElennSlots; 
fElemSize 
fBlockSize 



unsigned fClearMem 



fRetainMem 

fPad 

f Items; 



16; 
8; 



1; 

1; 
7; 



// num of elements in the array 

// num of elements potentially in allocated space 

z'/ element size 

// for growing and shrinking we grow in greater 

than one element unit - this is that unit 
/^y typically 4 

// if this is set this will zero out mem 

// that is allocated 

// do not shrink memory if this is set 

yy the data 



s Si ss S! » a s 



class scMemArray : public scAbstractArray { 

scDECLARE_RTTI; 
public: 

scMemArrayO : scAbs tract Array ( siseof ( void* ) ){} 
scMemArray( sise_t elemSize, unsigned clearmem - 0 ); 
scMemArray [ const scMemArraySc ) ; 
^scMemArray ( ) ; 

scMemArraySc operator^'C const scMemArrayS* ); 
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fElemSlots( 0 
£BlockSi2el aa.fBlockSize 
fClearMemC aa.fClearMem 
fRetainlfem( aa . f RetainMem 
fFad( 0 )r 
flterms( 0 ) {} 



{ 



''scAbstractArray () 

fElemSise - 0, 

fNuml terns = 0, 

fElemSlots « 0, 

fBlockSize ^ 4, 

f Items « 0; 



} 



scAbstractArrayS^ operator^^C const scAbstractArraySc ); 
virtual int IsEquai( const soObjectSc ) const; 



void 



long 



// use this call ©Ktrememly wisely for purposes of copying 



virtual void 



virtual void 
virtual void 
virtual void 

void 
void 
void 
void 

ElementPtr 



void 

ElementPtr 
ElementPtr 



SetMeinory( void *mem } 
{ 

f Items mem; 

} 

GetHumI terns ( void ) const 
{ 

return fNuml terns; 

} 

RemoveAllC void ) 

fNmnltems^O, ShrinkSlots() ; 

} 

Paste ( long, const scAbstractArray& ); 
Copy( scAbstractArrayS, long, long ) const; 
Cut( scAbstractArraySc, long, long ); 

RemoveDataAt{ long, long num « 1 ); 
AppendBata( const ElementPtr, long num = 1 ); 
AlterDataAt( long^ ElementPtr, long num ^ 1 ); 
InsertAt( long, ElementPtr, long num « 1 ); 
GetDataAt( long, ElementPtr, long num = 1 ) const; 



// stack operators 

Push( const ElementPtr p, long elements 
AppendData( p, elements ); 

} 

Pop{ ElementPtr, long elements - 1 ); 



1 ) 



// get the top element (s) 
GetTop< ElementPtr, long elements 



void 
void 
void 



DoForEach( CVoidFuncO ); 
DoForEach{ CVoidFuncl, long ); 
DoForEach( CVoidFunc2, long, long 



// these will return the indes of the first 

// successful match of the data 

// NOTE: if their is NO match it RETURMS -1 

long FirstSuccess( CBoolFuncO ); 

long FirstSuccess( CBoolFuncl, long ); 

long FirstSuccess( CBoolFunc2, long, long ); 



long 
long 



FirstSuccess( CBoolConstFuncO ) const; 
FirstSuccess ( CBoolConstFuncl, long ) const: 
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File: scmemarr.h 

$Headerr: /Projects/ToolboK/ct/SCMEM^RR.H 2 5/30/97 8:453. Wmanis $ 
Contains: The variable size array class. 
Written by: Manis 

Copyright (c) 1989-1994 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

*»«**»*»*«**»»»*»»»»*«*«***»»*»*«*»********************************^^ 

#ifndef „H„CMEHARR 
#def ine JijmMARR 

#include "sctypes^h" 
#include "scobject.h" 
#i nc 1 ude " sceKcep t . h " 

f, J 

Jt^pedef char scFar »ElementPtr; 

F^pedef void (*CVoidFuncO) ( EiementPtr ) ; 
^■Q^pedef void (»CVoidFuncl) ( ElementPtr, long ); 
'typedef void (*CVoidFunc2) ( ElementPtr, long, long ); 



i^pedef Bool (*CBoolFuncO) ( El^entPtr ); 

"typedef Bool (*CBoolFuncl)( ElementPtr, long ); 

;^pedef Bool (*CBoolFunc2) { ElementPtr, long, long ); 

'^i^pedef Bool (*CBoolConstFuncO) ( const ElementPtr ); 

Btvpedef Bool (^CBoolConstFuncl) ( const ElementPtr, long ); 

'■%pedef Bool (*CBoolCanstFunc2) ( const ElementPtr, long, long ); 



:tem "C" { 

typedef int (scCDecl* CPtrArrayCmpFunc) (const void *, const void *); 



/* =s s= CI 3S S5 as K 



class scAbstractArray : public scObject { 

scDECLARE„RTri ; 
public : 

scAbstractArray ( int elemsize, unsigned ciearmem 
fElemSise( elemsize ), 
fl!5uml terns ( 0 ), 
fElemSlotsf 0 ), 
fBlockSizeC 4 ), 
fClearMem( cleamem ), 
fRetainMem( 0 ), 
fPad( 0 ), 
f Items ( 0 ) {} 



0 ) 



scAbstractArray ( const scAbstractArrayS: aa ) : 
fEleit^iseC aa . f ElemSize ), 
fHumI terns ( aa.fNumI terns ), 
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void scFar* scFar scCDecl SCmemcpy( void scFar* dst, 

const void scFar* src^ 
long len ) 

return fmemcpy( dst, src, (si2e_t)len ); 

} 



int scFar scCDecl SCmemcmp( const void scFar* pl^ 

const void scFar* p2, 
long Isfn ) 

return „fmemcmp( plj- p2, (si2:e„t)len ); 

} 

#endif 
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} 

scMeniHandle MEMDupHndDebu^ ( scMeraHandle ob j . const char *filename, int line ) 
{ 

scMemHandle hnd; 

if ( iRandomFailureO ) { 

along sz * „insize( obj ) - sizeof { MacHandle ); 

hnd « MEMAliocHndDebug( sz, filename.- line ); 

try { 

void* srcP « MEMLockHnd( obj ); 
void* dstP « MEMLockHnd( hnd ); 
SCinemcpy( dstP, srcP^ sz ); 

} 

catch (...) { 

MEMUnlockHnd( hnd ); 
MEMUnlockHnd( obj ); 
throw; 

} 

MEMUnlockHnd{ had ); 
MEMUBlockHnd( obj ); 

} 

else 

hnd « OTLL; 
C3 3raise_if( I hnd, scERRmem ); 

If, meiuRecordTracklnfoC hnd, filename, line ); 
return hnd; 



'^dendif /* SCDEBUQ 

a 



CScAutoUnlock: :scAutoUnlock( scMeinHandle hnd ) 
M : £Handle(hnd) 

MEMLockHnd( fHandle ); 

iscAutoUnlock : :'^scAutoUnlock ( ) 
MEMUnlockHnd( fHandle ); 

} 

#ifndef SCmemset we are in a 16 bit world 

void scFar* scFar scCDecl SCmemset( void scFar* ptr, 

int val , 

long len ) 

{ 

return „fmemset( ptr, val . (si2e_t)len ); 

} 



*/ 



void scFar* scFar scCDecl SCfflemmove{ void scFar* dst, 

const void scFar* src, 
long len ) 

{ 

return _fmeimnove( dst, src, (size„t)len ); 

} 
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memR6!CordTrackInfo( hnd, filename, line); 
dbgTrackAiEiount ( sz + siseof (MacHandle) ); 
return hnd; 

} 

void* MEMResizePtrDebug( void** obj. 

ulong reqSize, 
const chair* file, 
int line ) 

{ 

void *ptr; 

dfogXracktoount ( reqSize - (int)_msize{ *obj ) ); 

ptr realloc( *ob j , reqSize ); 
raise„if( !ptr, scERPmem ); 

return *obj = ptr; 

} 

scMentHandle MEMResizeHndDebug ( scMeioHandle ob j , 

uiong reqSize, 
l2 const char* file, 

int line ) 

^5 xnt sizel = 0; 

:t if ( obj ) 

;^ sizel = _Risize( obj ); 

Q if ( iobj ) 

obj - MEMllocHndDebug ( reqBizSr file, line ); 
else { 

s scAssert( ( (MacHandle*)obj ) ">Count ( ) 0 ) ; don't resize a locked handle 

if 3 obj « (scMeiiiHandle)r8alloc( obj, reqSize + sizeof( MacHandle ) ); 

H ^ 

MacHandle KiacHandle( obj ); 

* (MacHandle*) obj « macHandle; 

'-^ int size2 - _]!nsize( obj ) - sizeof( MacHandle ); 

dbgTrackMount ( r^qSize - sizel ); 
return obj ; 

} 

void *MEMDupPtrDebug { void *obj , const char *filename, int line ) 
{ 

void *ptr; 

if { IRandomFailureO ) { 

ulong sz - _msize( obj ); 

ptr « MEMAllocPtrDabug( sz, filename, line ); 
raise_if{ J ptr, scERRmem ); 

SCmemcpy( ptr, obj, sz ); 

} 

else 

ptr ^ MJLL; 
rd2se„if( J ptr, BcEEPm0m ); 
meniRecordTrack Info (ptr, filename, line); 
return ptr; 
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void MEMVaUdate( void *ptr ) 

{ 

} 

void memDurapMetricsO 

{ 

} 

/Vt Bna»ssa«ea»asassaBaasa« = aasKaanssBnsBaBaaaa»wasaaaaaaaBaaaasaaaaassaa»sa»aa« 

inline void memRecordTrackInfo( void »ptr, const char *filenaiiifi, int line ) 

{ 

} 

inline void meniRecordTrackInfo( scMemHandle ptr, const char "filename, mt line ) 

{ 

} 

int gRaindomFailure; randomly Fail memory allocations 

static Boolean RandomFailure (} 
{ 

if ( IgRandomFailure ) 

13 return false; 

!!; if ( ( rand() X ^RandomFailure ) ) 
5;; return false; 

Hi else { 

,3 SCDebugXrace ( 0, scString( "RMDOM FAILURE ^d\n" gRandoiuFailure ); 

return true; 

•I ^ 

Cwid* M£MAllocPtrDebU3( ulong sz, const char »filename^ int line ) 

void* ptr; 

H raise_ifC RandomFailure( ) , scERRmem ); 

7k scAssert( sz > 0 ) ; 
ptr malloc( sz ) ; 
rai3e_if( Iptr, scERRatem ); 

memRecordTrackInfo(ptr^ filename, line); 

dbgTrackMount ( sz ) ; 

return ptr; 

} 

scMemHandle MEMAllocHndDehug{ ulong sz, const char *filename, int line ) 
{ 

scMemHandle hnd; 

raise„if( RandomFailure() , scERRmem ); 

hnd = (scMemHandle )mal loc ( sizeof (MacHandle) + sz ) ; 
raise„if( Ihnd, scERRmem ); 

MacHandle macHandle( hnd ); 

«(MacHandle*)hnd « macHandle; 
( (MacHandle*) hnd ) ->Val idate ( ) ; 
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#endif /* ISCDEBUG */ 

void MEMFreePtr( void* obj ) 
{ 

if ( obj 0 ) 
return ; 

dbgXrackAmount ( -(int)„msi2e( obj ) ); 
free( obj ); 

} 

void MEMFreeHndC scMemHandle had ) 
{ 

if ( hnd 0 ) 
return ; 

MacHdndle* mh ^ (MacHandle*)hnd; 
scAssert ( imh->Count () )r 

dbgTrackMount ( -(int)^size( hnd ) ); 

free ( hnd ) ; 

Hiiong MEMGetSizePtr( const void "obj ) 

Ih 

if ( obj == 0 ) 
%a return 0; 

return _msize( (void*)obj ); 

T 

S 

.ulong MEMGetSizeHnd( scMeitiHandle obj ) 

w 

1^ if ( obj 0 ) 
12 return 0; 

return _msi2e( (void»)obj ) - sizeof ( MacHandle ); 

} 

void *MEMLockHnd( scMemHandle hnd, int counted ) 
{ 

MacHandle* itih = (MacHandle*) hnd; 
return mh->Lock ( ) ; 

} 

void MEMUnlockHnd( scMemHandle hnd, int counted ) 

{ 

MacHandle* mh ^ (MacHandle*) hnd; 
3iih->Unlock ( ) ; 

} 

#ifdef MEM^DEBUG 
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try { 

void* srcP = MEMLockHnd( obj ); 
void* dstP ^ MEMLockHnd( hnd ); 
SCmemcpy ( dstP , srcP ^ S2 ) ; 

} 

catch ( status e ) { 

MEMUnlockHnd( hnd ); 
MEMUalockHndt obj 
throw { e }; 

} 

catch (..,){ 

MEMarxiockHndC hnd ); 
MEMLTnlockHndC obj ); 
throw; 

} 

MEManlockHnd( hnd ); 
MEMUniockHnd ( obj ); 

return hnd; 

> 

void *MEMDupObj ( void *obj ) 
{ 

void *ptr; 

ulong sz - MEMGetSizePtr( obj ) ; 

ptr « MEMAllocPtr( sz ); 
It. raise„if ( jptr^ scERRmam ); 

fU SCmemcpy ( ptr, obj ^ sz ); 
I ^ return ptr; 

;i 

''-^oid* MEMResizePtr( void** obj, uiong reqSize ) 

H 

fj void *ptr; 

J if ( l*obj ) 

ptr » inalloc{ ragSize ); 

|rs= else 

f2 ptr ^ realloc( *obj , reqSize ); 

raise_if( Iptr, scERRmem ); 
return *obj - ptr; 

} 

scMemHandle MEMResizeHnd ( scMeiEiHandle ob j ^ ulon^ raqSize ) 
{ 

if ( !obj ) 

obj ^ MEMI^llocHnd( reqSize ); 
else { 

scAssertC ( (MacHandle*) obj )-> Count { ) 0 ); don't resize a locked handle 
obj « (scMeiiiHandle)realloc( obj, reqSize + sizeof( MacHandie ) ); 

} 

MacHandie jiiacHandle( obj ); 
* (MacHandie*) obj = macHandle; 
retuna obj; 

> 
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#define dbglrackAmount ( n ) 

void MEMInit( scPoolInfo J] ) 

{ 

} 

void MEMFiaiC) 
{ 

} 

#ifndef MEM„DEBUG 

void *MEMAllocPtr( ulong S2 ) 

{ 

void «ptr; 

ptr = malloc( sz ) ; 
raise„if( Iptr, scERRmem ); 

i return ptr; 



I^icMeKiHandle MEMAllocHnd( ulong sz ) 

"^j scMeitiHandle hnd = 0; 

hnd * (scMexnHandle)inalloc( si2eof( MacHandle) + sz ) ; 
raise„if( Ihnd. scERRmem ); 

\.\ MacHandle macHandle( hnd ); 

* (MacHandle*) hnd « macHandle; 

return hnd; 

void *MEMDupPtr( void *obj ) 
{ 

void *ptr; 

ulong sz = MEMGetSizePtr ( obj ); 

ptr = MEMAllocPtr( sz ); 
raise_if( Iptr, scERRmem ); 

SCmemcpy( ptr, obj, sz ); 
return ptr; 

} 

scMeitiHandle MEMDupHnd( scMenHandle obj ) 
{ 

scMernHandle hnd; 



ulong sz ^ MEMGetSizePtr{ obj ); 
hnd ^ MEMAllocHnd( sz ); 
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File: MEM.C 

$H©ader: /Projects/Toolbox/ct/SCHSHMEM.CFP 2 5/30/97 8; 45a Wmanis $ 
Contains: Memory management routines based on our own heap managers 
Written by: Sealy 

Copyright (c) 1989-94 Stonehand Inc of Cambridge^ MA, 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

#include "scmem.h" 

#include <string.h> 
#include <malioc.h> 

class MacHandle { 
public: 

12 MacHandle ( scMemHandls ptr ) : 

"I block_( (char*)ptr + si2eof( MacHandle ) )> 

It sxagic_{ Osfafafafa ), 

in county ( 0 }^ 

fii si2ef„( _msi2e( ptr ) - sizeof( MacHandle ) ) 

;'i { 

;1 } 

void* Lock( void ) 

H i 

Validate (); 

'^"^ scAssert{ county >= 0 ); 

count_-f-+; 

tl return (void*) blocks ; 

M } 

, : void Unlock ( void ) 

iy { 

Validate (); 

f"l scAssert( count_ > 0 ); 

— county ; 

u } 

void Validate () 
{ 

unsigned int size « _itisiseC this ); 

scAssert( size„ -f siseof( MacHandle ) size ); 

scAssert( blocks (char*) this + siseof( MacHandle ) ); 

inline int Count() const 
{ 

return count„; 

} 

private : 

const void* block_; 
ulong magic_; 
int county.; 
int size„; 

}; 

#ifdef MEMJEBUG 

#include <stdlib.h> // for rand 

long gMemUsage; 

#def2ne dbgTrackAmount ( n ) gMemUsage (n) 
#else 
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#if defined { MEMJEBUG ) 

return MEMllocPtrDebug ( size, FILE , LIHE ); 

#else 

return MEMAllocPtrC sise ); 
#endif 

} 

#if defined ( MEM_DEBU0 ) 

void *scObject: -.operator new( size^t objSise. 

const char* file, 
int line ) 

{ 

return MEMAllocPtrDebug( objSise, file, line ); 
#end if 

void scObject: : opera tor delete( void* objStorage ) 
HEMFreePtr( obj Storage ); 

} 



int scObjact: :IsEqual ( const scObjectSc ) const 

f=i if i am all the way down here what can i cheeky classnames seems 

a bit late for that 
'^^^ return true; 

IS 
flj 

l#it scObject ;: opera tor=«{ const scObjectSt obi ) const 
return IsEqual ( obj ); 

,'irx% scObject ;: opera tor! =( const scObjectS obj ) const 

1^ 

%^ return iIsEgual{ obj ); 
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scCiassInit : :scCldSsInit ( scClass » c ) 
{ 

c->fNext => c->sCldsses; 
c->sCia9ses c; 

} 

scClass scSimpleOhj^ict : :sClass = 
{ 

"scSimpleObject", 
siseof (scSimpleObject) , 
scEmptyClassInitFi^nc , 
NULL, 

HULL 

}; 

static scClassInit scSimpleQbjectlnitClass ( & scSimpleObject : :sClas 

const scClass scSintpleObj ect : :G©tC lass ( void ) const 
return sClass; 

} 

#iol scSimpleObject: :IsClass ( const scClass & c ) const 

=:= return &c == SsClass; 

It 

JiClass scObject ; :sClass ^ 

w 

s "scObject", 

sizeof (scObject), 
scEmptyClassInitFunc, 
NULL, 

% 

Static scClassInit scObjectInitClass( & scObject : :sC lass ); 



const scClass ^ scObject :: Get CI ass ( void ) const 
{ 

return sClass; 

} 

Bool scObject: :IsClass( const scClass;^ c ) const 
{ 

if { c.IsSimpleO ) 
return 0; 

for ( const scClass * pc - S< GetClassC); pc; pc - pc->GetBase{ ) ) 
if ( c pc ) 
return 1; 
return 0; 

} 

void* scObject :: operator new( sise^t size ) 
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Stonehand Base Object System Implementation 

$Header: /Projects/Ioolbox/ct/SCOBJECT.CPP 2 5/30/97 8:45a tenis $ 
Contains ; 
Written by: Adams 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge. MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

#include "scmem.h" 
^include '*scobject .h" 
#include "sceKcept.h" 

ggonst scClass » scCiass: rsCiasses « MILL; 



=: w s s =s a =s st» « 3s a js 5s r; s! as =! s; SK as s: St a as a 



fl^oid * scClass: :MakeInstance ( void ) const 
^^=f void *volatiie p ^ MJLL; 
M try { 

.iif defined ( MEM^DEBUG ) 

P ' MEMAllocPtrDebugt fSize, FILE , LIME ); 

g#eise 

n p = MEMAllocPtr( fSise ); 

Initlnstance ( (void *) p ); 

1^ catch ( . . . ) { 

MEMFreePtr( p ), p ^ miL'. 

iJ return p; 
} 

void scClass: ; Initlnstance ( void * p ) const 
{ 

if { f Initializer ( f Initializer scEmptyClassInitFunc ) ) 
( * f Initializer ) ( p ); 

else 

raise ( scEKReKception ); 

const scClass * scClass: rFindClass ( const char * classHame ) 

if ( ! className ) 
return MILL; 

for ( const scClass * pc sClasses; pc; pc = pc->mBZt ) 
if ( strcmp { className, pc->fName ) ^« o ) 
return pc; 
return MILL; 

} 
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const char* 



GetClassname ( void ) const 



{ return GetClass ( ) .GetMameO ; } 



// rtti support 
virtual const scClassS( GetClass ( void ) const; 



Bool 
Bool 
s { name ) ) ; } 

virtual int 

int 

int 

// MEMBERS 
public; 

static scClass 

#if SCDEBUG > 1 

virtual void 
#endif 



IsClass ( const scCiass St c ) const; 

IsClass ( const char* name ) const { return IsClass ( *scClass : :FindClas 



IsEgual( const scObjectS: ) const; 
opera tor==( const scObjectSt ) const; 
operator! «( const scObjectSt ) const; 



sClass; 

DefougPriRt( const char » ) const { }; 




#define scRITI (className) (className; :sClass) 

liiefine scDECLARE^RTII ^ 
.3 public: ^ 

!f virtual const scClass Si GetClass ( void ) const; \ 

public: 

fy static scClass sClass; ^ 

A '=1 private : ^- 

""l static void Initlnstance ( void * ) 

'iSefine ^scRTTI (c las sMame^baseCl as sHame,initFunc. simple) \ 
scClass className: : sClass = \ 

{X 

fclassHame, sizeof (className) , initFunc, ScScRTII (baseClassName) , simple, 0 }; \ 
Q static scClassInit className##InitClass ( ^scRTII (className) ); x 

%d const scClass & clas^ame: ;GetClass ( void ) const { return sClass;\ 

id ^ 

Midefine scDEFINELABSTRACILRTII (className,baseClassName) \ 
12 „scRTTI (className, baseClassName,l!aULL, false) 

^iSiefine scDEFINE^RTII (className, baseClassName) \ 

void ClassName; : Initlnstance ( void » p ) { (void) new ( p ) className; } \ 
„scKm ( c 1 a ssName , baseC lassName , &c 1 a ssName ::lnitlnstance,false) 

#de£ine scDECLARE„SIMPLE„RTri \ 
public: \ 

const scClass Se GetClass ( void ) const; \ 

Bool IsClass ( const scClass & ) const; \ 

public; \ 

statxc scClass sClass; \ 

private ; \ 

static void Initlnstance ( void » ) ; 

#define scDEFINE^SIMPLE^RTTI (className, baseC lassName) \ 

void ClassName: -.Initlnstance ( void * p ) { (void) ne?? ( p ) className; } x 
Bool className; : IsClass { const scClass S: c ) const { return &c ScsClass; } x 
_scRm {className, baseClassName,&className: ; I nit Instance, true) 



#if defined ( MEM^DEBUG ) 

#define SCNEW new( _FIL£_, _LINE_ ) 
#else 

#define SCNEW new 
#endif 
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sise„t GetSize ( void ) const 

const scClass* G&tBase ( void ) const 



Bool 
Bool 



IsAbstract ( void ) const 
IsSimple ( void ) const 



const scClass* GetKesst ( void ) const 



{ return fSize; } 

{ return fBaseClass; } 

{ return f Initialiser NULL; } 

{ return fSimple; } 

{ return fHext; } 



static const scClass* GetClasses ( void ) { return sClassas; } 
static const scClass* FindClass ( const char * ); 



// private: 
void 



Initlnstance { void * ) const; 



// MEMBERS 

const char* fName; 

size_t fSize; 

scClassInitFunc f Initializer; 

const scClass* fBaseClass; 

Bool f Simple; 

const scClass* fHext; 



class name 
// instance size 
// instance initializer 
// base class 
// true «> non-virtual 
// link in class list 



static const scClass* sClasses; // class list 



#define scEiuptyClassInitFunc ( (scClassInitFunc) -1 ) 




•liiass scSiitipleObject { 
f LJ // METHODS 
@blic: 

allocator support 
void* operator new( size„t s ) 

'"J void* operator new ( size_t, void* p ) 

r% void operator delete ( void* p j 



{ return operator new ( s ); } 
{ return p; } 

{ :: operator delete ( p ); } 



// rtti suppoirt 
CrJ const scClassSt GetClass ( void ) const; 
"J Bool IsClass ( const scClass Sc c ) const; 

// MEMBERS 
i^blic: 

fl static scClass sClass; 




class scObject { 

METHODS 
protected : 

private : 

const scObjectSc 

public: 

vi rtual 



scObject (){} 

scObject ( const scObject & ); 
operator«{ const scObject & ); 



"scObject(){} 



// no def 
// no def 



// allocator support 

void* operator new ( size„t size ); 
#i£' defined ( MEM„DEBUG ) 

void* operator new ( size„t size, const char*, int ); 
#endif 

void* operator new ( si2e_t, void* p ) { return p; } 

void operator delete ( void «p ); 
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Stonehand Base Object Classes 

SHeader: /Projects/Toolbox/ct/SCOBJECT,H 2 5/30/97 8:45a teams $ 
Contains : 
V^ritten by: Adams 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge. MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or ackno^dedgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition ToolboK software is the proprietary 
and confidential property of Stonehand Inc. 



#ifndef .H.SCOBJECT 
#define Ji^SCOBJECT 



#include "sctypes .h'* 




fsMlass scClass; 

^iefjlass scClassInit { 
•^^■^ublic: 

scClassInit ( scClass * ); 




%lass scObject; 
N=2ass scSimpleObject; 



^^pedef void { « scClassInitFunc ) ( void * ); 

class scClass { 

// FRIENDS 

f r i end scC lasslnit; 

// MEIHODS 
public : 

static scSimpleObject* MakeSimplelnstance { const char* name ) 
{ 

const scClass* cl « scClass : :FindCiass ( name ); 
return cl 7 (scSimpleObject*)cl->MakeInstance ( ) : 0 

} 

static scObject* Makelnstance( const char* name ) 

{ 

const scClass* cl = scClass : rFindClass ( name ); 
return cl 7 (scObject«)cl~>KakeInstance () : 0; 

} 



void* Makelnstance ( void ) const; 

const char* GetName ( void ) const { return fName; } 
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Mark( scREBREAK ); 
ForceRepaint( start, end ); 

fCharArray. Trans fount start, end, chTranXype, end - start ); 

} 

#endlf 

int scContUnit : :operator-«( const scContUnitSt p2 ) const 
{ 

if ( GatContentSizeO p2.GetContentSi2e() ) 
return 0; 

if C fSpecRun 1= p2.fSpecRun ) 
return 0; 

return fCharArray -= p2. fChsrArray; 

} 




ks3 
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Bool scContUnit : :FindString( const UCS2* findString, 

const SearchStateSt flags, 
longSr startOffset, 
longSc endOffset ) 

{ 

stUnivString ustr; 
ustr.ptr findString; 

ustr.len « CharacterBufLen ( findString ); 

if ( fCharArray.FindString( ustr, flags, startOffset, endOffsst, startOffset ) ) { 
endOffset * startOffset + ustr.len; 
return true; 

} 

return false; 

> 

#ifdef _RUBI„SUPPORT 

Bool scContUnit :: Get Annotation ( int nth, 

long start, 
long end, 
scAnnotationS: annotation ) 



{ 



if ( fRubi Array ) { 
scRubiData rd; 
mt index; 

if ( fRubiArray~>GetNthRubi ( index, rd, nth, start, end ) ) { 

annotation. Set ( rd.fCh, GetCount(), rd , f StartOffset , rd. fEndOf fset ); 
return true; 

} 

} 

return false; 



l^id scContUnit : :ApplyAnnotation( long start, 

long end, 
; s const scAnnotationS( annot ) 

eChTranType chTranType « eWormalTran; 

;Z if ( ! fRubi Array ) { 
^""^ All ocRubi Array ( ) ; 

} 

else if ( fRubiArray->IsRubiData( start, end ) ) { 
int nth; 
int index; 
scRubiData rd; 

fCbarArray.Transform( start, end, eRemove JapTran , end - start ); 
for ( nth = 1; f Rub i Array- >GetNthRubi ( index, rd, nth, start, end ); ) 
fRub i Array- >RemoveDataAt( index ); 

} 

if ( annot . f Annotate ) { 

scRubiData rd( annot . fCharStr , start, end, SpecAtOf fset ( start + i ) ); 

fRubiArray->AddRubiData( rd ); 

ChTranType = eRubiTran; 

} 

else { 

// i should have already removed any annotations 
if ( fRubiArray->GetMumIteins() 0 ) 

BeleteRubiArray ( ) ; 
chTranType = eRemove JapTran ; 

} 
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fSpecRun.DebugRunC '*ReplaceToken" ); 
#endif 

return 1; 

} 

int scContUnit : :GetToken( stUnivStringS: ustr, 

int32 start, 
int32 end ) const 

{ 

return fCharArray *£jetToken ( ustr, start, end ); 

} 

// meiuory ccaaes in here locked 

Bool scContUnit : rReplaceWord ( CharRecordPSc startChRec, 

scSpecRecord»£: specRec , 
long startOffset, 
lon^Sc endOffset, 
longSt iimitOffset, 
UCS2* chBuf, 
UCS2* replaceBuf ) 

{ 

long deltaLen; 

deltaLen = CharacterBuf Len ( replaceBuf ) - CharacterBuf Len{ chBuf ); 
f^i if ( I deltaLen ) { 

'% LoadHe^ord( startChRec + startOffset, 

j=f replaceBuf, 
In endOffset - startOffset ); 

fil return false; 

ly need to grow or shrink memory 

'-/y if ( deltaLen > 0 ) grow the memory - first resize and then move 
^ PARASetChSi2e( p, startChRec, deltaLen ); 

f>5^ memmove( *startChRec -f *endOffset + deltaLen, 
I/'/ *startChRec 4- *endOffset, 

(size„t)( p->fChSi2e - ^endOffset + 1 ) * si2eof( CharRecord ) ); 
14^ p->fChSize +- deltaLen; 

14/ «limitOffset deltaLen; 
*endOffset deltaLen; 

CJ/ scAssert{ (*startChRec + p->fChSize)->character 0 ) ; 

// if ( deltaLen < 0 ) // shrink the memory - first move and then resize 
// PARASetChSize( p, startChRec, deltaLen ); 

LoadNeiKFWord ( startChRec -f- startOffset, replaceBuf, endOffset - startOffset ) 

fSpecRun,BumpOffset ( endOffset - deltaLen, deltaLen ); 
SpecRec - fSpecRun.ptr{ ); 

return true; 

} 

int scContUnit ; :FindString ( const stUnivStringSt ustr, 

const SearchStateSc flags, 
int32 start, 
int32 end, 
int32S( offset ) 

{ 

return fCharArray.FindString ( ustr, flags, start, end, offset ); 

} 
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void scContUait : ;Iter( SubstituteFunc func, 

long startLocation , 

long£< limitOffset ) 



{ 



UCS2 chBuf[64]; 
UCS2* chP; 
CharRecordP startChRec ; 
scSpecRecord* specRec ; 
long startOffset^ 
endOffset, 
wordLen ; 

LcickMem( startChRec, specRec ); 

startOffsat = startLocatioa; 
endOffset » startOffset; 

for ( ; endOffset < limitOffset; ) { 

StartOffset « 'DCTStartSelerctableWord( startChRec. endOffset ); 
endOffset =^ TXTEndSelectableWord( startChRec, endOffset ); 
wordLen ^ endOffset - startOffset; 

if ( wordLen > 1 ) { 

BijiildTestWord ( chBuf. startChRec + startOffset, wordLen ); 
status Stat ^ (*func)( &chP. chBuf, NULL ); 

if ( Stat scSuccess \ [ stat scUserAbort ) { 

if ( IReplaceWord( startChRec, specRec, startOffset, endOffset^ 
limitOffset, chBuf, chP ) ) { 
f3 UnlockMemC ); 

"Z. return; 

f\\ fCharArray.RepairT^Kt ( fSpecRun, startOffset, endOffset ); 

Mark{ scREBREAK ); 

i-y if ( Stat scUserAbort ) 

■^J goto exit; 

} 

y 

^ endOffset ^ FindNeKtSpellingVtord( startChRec, endOffset, limitOffset ); 

,&it ; 

ly UnlockMein( ); 

¥^ 

f 3 

int scContUnit : :ReplaceToken ( const stUnivStringS: ustr, 

int32 start, 
int32& end ) 

{ 

ForceRepaint ( start, end ); 
Mark{ scREBREAK ); 

if ( ustr.len (u long) (end - start) ScSs fCharArray .ReplaceToken( ustr, start, end ) ) { 
fCharArray -RepairText ( fSpecRun, start, end ); 

} 

else if ( fCharArray * Insert ( ustr, start, end ) ) { 
int32 diff - ( ustr.len - ( end - start ) ); 
fSpecRun.BumpOf fset( start, diff ); 

end diff; 
TypeSpec ts; 

fCharArray.RetabulateC fSpecRun, start, end, ts, 

f CharArray . GetConten tS i ze () ) ; 

} 

eisi& { 

scAssert ( 0 ) ; 

} 

#if SCDEBUG > 0 

f CharArray .Validate ( ) ; 
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File: scparagS.c 

$Header: /Projects/Toolbox/ct/ScparagZ .cpp 4 5/30/97 8:45a Wmanis $ 
Contains: content unit implementations 
^^itten foy: Manis 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition ToolboK software is the proprietary 
and confidential property of Stonehand Inc. 



#include "scparagr.h" 

^include ''scctype .h'* 

#include "scspcrec.h" 

#include "scmem.h" 

#include "scannota .h*' 

#ifdef _RUBI„SUPPORT 
^'Cinclude "scrubi.h" 
^^5^ndif 

fi^efine INLINE static 

ijfLINE void LoadNe??Word ( CharRecordP ch, 

const UCS2* replaceCh, 
'■'"''^ long size ) 

< 

£3 for C ; size — ; ) 

.'1 (ch++ )->character « *replaceCh-t-+; 

ill 

SfLINE void BuildTestWord( UCS2* ch, 

CharRecordP charRec , 
long size ) 

{ 

for ( ; size — ; ) 

*ch++ « (charRec++)->character; 
*ch 0; 

} 

INLINE long FindNeKtSpellmgWord ( CharRecordP startChRec, 

long endOffset, 
long limitOffset ) 

UCS2 ch = startChRec[endOffset] .character; 

while ( ICTIsAlpha( ch ) endOffset < limitOffset ) 

ch ^ startChRec{endOffset++] .character:, 
return endOffset; 

} 
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testGetStrip = false; 

if ( iforeakControl && cData.ResetOrphdn { testGetStrip ) ) { 
foreakControl++; 
return eRebreak; 

} 

cI)ata.fCol->DeleteEKcessLines{ this. cData.fPData.fPrevline, testGetStrip, cData }; 
testOetStrip true; 

// find the next column 
if { cData.FiadNeKtCal ( dcState ) ) { 

// the finding of the next column may reset the para spec 
scCachedStyle: :SetParaStyle( this, defspec„ ); 
continue; 

} 

else { 

overFlow « true; 
break ; 

} 

} 



} 

tryAgain = ResetWidow( cData, testGetStrip ); 

} 

fj if ( GetFirstlineO ) 
\^ cData «PARADel8te£KcessLines{ ); 

Mi SCDEBUG > 1 

fU SetRefonnatEvent( refomatEvent++ }; 
#^idif 

W Unmark( scREBREAK ); 

f'j if ( ! overFlow ) 

scAssert( GetLastline() 0 )i 

13 cData.fPData.PARAFini ( ); 

, 1 prevParaData . lastLineH ^ cData . f PData . fTextl me ; 

V4 prevParaData . lastSpec cData . f PData . f CurSpecRec"->spec ( ) ; 

H SCDebugTrace ( 1, scString( "scContUnit :: Reformat OUT 0h%08x %d\n" ), this, GetCount() ); 
return lorverFlow ? eNormalRefoiiuat ; eOverf lowGeometry; 

} 
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) 

{ 

DCState dcState; 

Bool tryAgain; 

Bool leadRetry « fals$; a retry based upon a leading increase on the line 

Bool overFlow » false; 

Bool testGetStrip - true; 



SCDefougTraoe ( 1, scString( "scGontUnit :; Reformat IN OxXUBz Zd\n'' this, GetCountC) ); 

cData.PARAInit( this, breakControl , keepVMextControl , prevParaData ); 

dcState.SetColuinn( cData.GetActive ( ) ); 
scFIowDir fd{ cData.fCol->GetFlowdir() ); 

if ( cData.fPData.fPrevline ) { 
if ( fd.IsHorizontalO ) 

cData.fSavedPrevEnd.x « LOIsfG„MAX; 
else { 

cData.fSavedPrevEnd.y « LONG„MAX; 

} 

} 

for ( tiyAgain ^ true; tryAgain; ) { 

for ( overFlow ^ false; cData . f PData . f BreakType 1'^ eEndStreamBreak \] overFlow; ) { 

if ( ! overFlow ) 

£1 c;Data.fPData.SetLineData( leadRetry ); set up initial line conditions 

It^ if ( t overFlow cData .Alloc Geometry () ) { allocatate the geometry from 

the parent column, if we overflow 
fy the column, we go to the next column 

H try { 

%^ cData.AllocLmel leadRetry ); // allocate the memory, reuse scheme is 

ia#ed 

n } 

" " catch (.»,){ 

cData. f PData, PARAFini ( ); 
tj throw; 

H > 

cData.f PData. SetColumn( cData.fCol ); 

leadRetry ^ cBata.f PData. ComposeLine{ dcState ); compose the line 
;Z if ( (leadRetry } { 

'^'^ // we are accepting the line as is 

MicroPoint k, y; 
if ( fd.IsHori2ontal{) ) { 

K = cData.fPData.fComposedLine.fOrg.5j + cData.f PData. fComposedLme.f Measure; 
y ^ cData.fPData.fComposedLine.fOrg.y; 

} 

else { 

K ^ cData.f PData. fComposedLine.f Org. x; 

y * cData.fPData.fComposedLine.fOrg.y ^ cData. fPDat a. fComposedLine.f Measure; 

} 

cData . f SavedPrevEnd . Set ( k , y ) ; 

} 

else 

; // we are going to reposition the line and rebreak it 

} 

else { 

// No more room in column, let's try the ne^t column 
overFlo?? false; 

// if we tiy and relead at the bottom of a container and we 
// overflow we need to set "leadRetiy" to false since at this 
// point it is not a retry^ any more but a whole new container 
leadRetary ^ false; 

if ( 1 CData.fPData.fPrevline ) 
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T{) ) { 

/* each time we try to retnove just one line */ 

/« back up to previous coluum */ 
cData.COLFxni { false ); 
cData.fCol - cData,fCol->GetPrev() ; 
cData.COLInit( cData.fCol, this ); 

remove one excess line 
cData.fPData.fPrevline ^ cData . fCol->GetLastline{ ) ; 
if ( cData.fPData*fPrevline ) { 

cData.fPData.fPrevline - LlsrPrev( cData . fPData . fPrevline ); 

cData.fCol->DeleteEKcessLines( this. cData.fPData.fPrevline, testGetStrip, cData ); 

/* reset state */ 
if ( cData.fPData.fPrevline ) { 

cData . f PData . f LinesBef ore = cData . f PData . f Prevl ine->GetLinecount ( ) 

cData.fPData.fLineHuraber ^ (short) (cData . f PData . f LinesBef ore + 1) 

cData . f PData . f InitialLine . f StartCharOf f set - cData . f PData . f Prevl ine->GetEndOf f set ( ) 



cData . f PData , f CurSpecRec ^ cData . f PData . GetSpecRecord ( cData . f PData . f 

Prevlzne">GetEndOf f set ( ) ) ; 

TypeSpec ts cData. f PData. f CurSpecRec->spec () ; 

scCachedStyle: :GetCachedStyle( ta ); 

cData . f PData . fBreakType eColumnBreak; 

return true; 

13 ^ } 

flJ retum false; 

>i perform the line breaking on the paragraph 

eSefEvent scContUnit :: Reformat ( scCOLRefDataS^ cData, 

l_ PrevParaData& prevParaData, 

11 int keepWbJeKtControl 

#if SCDEBUG > 1 

,1 , intSt reformatEvent 
Wndif 

I- ) 

ii 

int breakControl - 0; 

eRe f Even t re f Even t ; 
do { 

ref Event = Reformat2( cData, 

prevParaDa ta, 
keepWIsfextControl , 
breakControl 

#if SCDEBUG > 1 

, reformatEvent 

#endif 

)i 

} while ( refEvent eRebreak ); 
return refEvent; 

} 

eRefEvent scContUnit : :Refonaat2 ( scCOLRefDataSc cData, 

PrevParaDataSt prevParaData , 
int keepWbJeKtControl , 

intSc breakControl 

#if SCDEBUG > 1 

, intSi reformatEvent 

#endif 
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if ( keepWextControl ) { 
fPData.fPrevline 
f PData . f LinesBef ore 
f PData . f LinesAf t«r 
f PData , f ColumnCount 

if ( breakControl ) { 
fPData.fPrevlins 



HULL; 
0; 
0; 
0; 



} 

else 
} 

else 



fPData.fPrevline 



IsIULL; 



f PData , f Para->LocateFirstLine ( *this, 

f PData . f CurSpecRec->spec ( ) , 
fCol. 

f PData . f ComposedLine . f Basel ine, 
f PData . f ComposedLme . f EndLead , 
prevParaData ) ; 



} 



} 



f PData. fLinesBef ore ^ 0; 
f PData. fLinesAfter = 0; 

fPData.fColuitmCouiit « 0; 



this is where in a layout world I would make the distinction between 
a logical unit and a paragraph 
f PData . f ComposedLine , f LastLineLen - LONG_MIH; 



3 Check for orphan or no break condition violation- If found, delete */ 

©Kcess lines of last column and return true so para reformat can */ 
}^ try again. If pData . lastTxlH is NULL, there are no lines in the 

¥* column, and we did not fail due to an orphan condition — then, */ 

l# delete all lines in column. *^ 

Siol scCOLRefData: :ResetOrphan( Bool testOetStrip ) 

scContUnit»p - f PData .GetPara () ; 
f2 scAssert( p 1- 0 ); 

^ if ( f PData. fBreakParams.HoBreakO Ij f PData . fLinesBef ore < f PData . fBreakParams .Li nesBe fore { ) ) 



if { p->0etPrev() fCol->GetHext ( ) ) { 



f PData. fPrevl me « p->GetPrev()->GetLastline ( ) ; 
fCol->DeleteEscessLines( p, f PData, fPrevline, testGetStrip , *this ); 
f PData. PARAFini( ); 
COLFini( true ); 



fCol - fCol->GetHeKt(); 
return COLInxt( fCol, p ); 

} 

} 

return false; 

} 

/* Check here for widows. If the columns had the same measure we could */ 
/* just grab sufficient lines, but since columns may be of different */ 
/* measure, we will just grab one line at a time and check the fit. */ 
Each time we iterate, we will grab another line. This is slower but */ 
/* more acurate. An optimisation may be to check the measures and, if «/ 
/* they are close, grab more than one line on an iteration. 

/* If a widow is found, reset parameters and return true so */ 
/* para reformat can try again, 

Bool scContUnit : :ResetWidow( scCOLRefData& cData, 

Bool testGetStrip ) 

{ 

if ( cData-f PData. f Co lumnCount ^ cData.f PData, f Li nesAfter < cData . f PData .fBreakParams. Li nesAfte 
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fLinesBefore++; 

i£ ( fColuianCount ) 

fLinesAfter++; 
fPr^vline = fTextiine; 

rettarn false; 

> 

/« This column is full. If there is a next one, get it ready for */ 
/* refortnatting and return true; else, return false; */ 

Bool scCOLRefData: :FindlsreKtCoi( DCStateSc dcState ) 
{ 

Bool colRefStat « false; 

if ( fCol->GetNeKt() ) { 
COLFini( true ); 
fCol - fCol->GetNext[); 

colRefStat « COLInit{ fCol, fPData.fPara ); 

// if the character count is zero we are transitioning 
// columns before we set any text so reset the dcState column 
if ( fPBata.fComposedLine.fCharCount 0 ) 
dcState. SetColumn( fCol ); 

} 

if ( colRefStat true ) { 

fPData.fPrevline ^ NULL; 

Ca fPData.fXextline NULL; 

fPData.flnitialLine.fLastLineLen - LOHG_MIN; 
1% f PData , f BreakType - eCharBreak; 

= = f PData . f ColumnCount++ ; 

ry f PData, fLinesAfter « 0; 

return true ; 

?1 } 

^4 f PData. f Text line » fPData .fPrevlme; 
f^. return false; 

r 

m Set up initial paragraph reformat data, 

^yid scCOLRefData: :PARAInit ( scContUnit* p, 

H int breakControl , 

fg int keepWMeKtControl , 

PrevParaData& prevParaData ) 



£PData.PARAInit( p, fCol->GetFlowdir ( ) ); 
f PData, fPara->SetFirstline( 0 ); 

f PData . f CurSpecRec = f PData . f StartSpecRec ; 

f PData. fXextline IslULL; 

f PData . fBreakType « eParaBreak; 

fPData.fLineNumfoer = 0; 

fPData,fLinesHyphed ^ 0; 

f PData. fInitialLine.Init{ fCol->GetFlowdir( ) ); 

f PData. fInitialLine.SetCharacters( f PData . fCharRecs ); 

f PData. fComposedLine.Init( fCol->GetFlowdir() ); 

f PData . f ComposedLine .SetCharacters { f PData . f CharRecs ) ; 

scCachedSty le : : GetParaStyle ( ) . GetParaBreak ( f PData . f BreakParams ) , 

if ( fPData.f BreakParams. KeepWithHe2Jt() ) 
f PData. £Para->Mark( scKEEPHEXT ); 

else 

f PData. fPara->UnmarkC scKEEPNEXT ); 
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} 

else if ( fBreakLang " eComp Japanese ) { 

fBreakXype « BRRJapanLineBreak ( fComposedLine . fCharRecs, 

f ComposedL i ne . f S tartCharO f f se t , 
f ComposedLine . f CharCount , 
fCctitiposedLine, 

#ifdef scUseRubi 

fAnnotations^ 

fLineb?umberr 
fLinesHyphed^ 
SrfCurSpecRec: , 

f ComposedLine . f InkExtents . 
f ComposedLine . f LetterSpace , 
dcState ) ; 

scAssert( f ComposedLine . flaklKtents .Valid () ); 

} 

#endif 

if ( AdjustLeadO ) { 

fBreakXype « eUndef inedBreak; 
fCurSpecRec « curSpecRec; 

if ( flnitialLine.fBaseline FIRST_LINE„P0SITI01sf ) { 
TypeSpec ts « f InitialLine.GetlnitialSpec ( } ; 

MicroPoint firstline ^ CSf irstLinePosition( aetColumn()->GetAPP^ame() , ts ); 
flnitialLine.fBaseline ^ f ComposedLine. f Baseline - firstline; 

} 

return true; 

} 

fTextline->Set( fLineNumber. fBreakType. f ComposedLine ); 

if ( lfPara->GetFirstline() ) { 
fii scAssert( fTestline->GetEndO££set () <- f Para -> Get ContentSiseO ); 

scAssert( fTestline->GetStartOf fset () 0 ) ; 
^'i fPara->SetFirstline{ fXeKtline ); 

^ } 

:r5 scLEADRefData aboveLeadData ( f ComposedLine . fInitialLead .GetFlow() ); 
scLEADRefData belo??LeadData ( fComposedLine. f InitialLead,GetFlow{) ); 

C3 if ( fComposedLine.GetMaxLeadSpecO !« fCurSpecRec-'>spec() ) { 
HA TypeSpec ts « fComposedLine.GetMaxLeadSpec{ ) ; 

.1 scCachedStyle: :GetCachedStyleC ts ); 

belowLeadData.ComputeAboveBelowC scCachedStyle : rGetCurrentCache ( ) .GetComputedLead ( ) , scCache 
lityle: :GetCurrentCache () .GetFlowdir ( ) ); 
n TypeSpec tsl « fCurSpecRec->spect() ; 

IZ scCachedStyle: :GetCachedStyle( tsl ); 

'^^ aboveLeadData, ComputeAboveBeiow{ scCachedStyle : :GetCurrentCache() .GetComputedLead() , scCache 

dStyle: :GetCurrentCache () . GetFlowdir ( ) ) ; 
} 

else { 

TypeSpec ts « fCurSpecRec->spec ( ) ; 
scCachedStyle: :GetCachedStyle( ts ); 

belowLeadData.ComputeAboveBelo5?( scCachedStyle: :GetCurrentCache( ) .GetComputedLead( ) , scCache 
dStyle: : GetCurrentCache ( ) .GetFlowdir ( ) ) ; 

int endoffset « fTextline->GetEndOf fset ( ) +1; 
if ( endoffset >- (fCurSpecRec+i)-> offset () ) { 

f CurSpecRec-^+ ; 

ts « fCurSpecRec->spec() ; 

scCachedStyle: :GetCached3tyleC ts ); 

aboveLeadData. ComputeAboveBelow( scCachedStyle: : GetCurrentCache () .GetComputedLead () , scCache 
dStyle: ; GetCurrentCache ( ) ,GetFXowdir() ); 
} 

f ComposedLine. fEndLead.SetBelowLead( beiowLeadData .GetBelowLead () ) ; 
f ComposedL i ne . f EndLead . SetAboveLead { aboveLeadData . Ge tAboveLead { ) ) ; 
f ComposedLine . f EndLead .SetEsternalSpace ( 0 ) ; 



fLineHumber++; 
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// reset things 
fComposedLine 



- fInitialLine; 




fPara 
fCharRecs 



» (CharRecordP) f Para->GetCharArray ( ) . Lock ( ) ; 



fStartSpecRec « fPara->GetSpecRun () ,ptr( ); 

TypeSpec ts « fStartSpecRec->spec ( ) ; 
fPara">InitParaSpec( ts )> 

fCofflposedLine.Init ( fd ); 

// WW IKOTE: this should only be set here or in the line breaker 
fCoinposedLine.SetMaKLeadSpec( f StartSpecRec->spec ( ) ); 

scCachedStyle; :GetCac:hedStyle( ts ); 

f EreakLang « scCachedStyle : :GetCurrentCache ( ) . GetBreakLang ( ) ; 



Wol scPARARefData: : Compose! ine( DCStateSc dcState ) 

scSpecRecord* curSpecRec ^ fCurSpecRec; 

set primaa^f lead - for ??? 
£ComposedLine.fInitialLead.SetAfooveLead( 0 ); 
fComposedLine.fInitialLead.SetBelowLead( 0 ); 

scAssert( fComposedLine . fCharRecs I 0 ) ; 
scAssert( fComposedLine .GetMaxLeadSpecC) 1* 0 ); 

#ifdef SCJIS4051 

if ( fBreakLang eCompRoman ) { 
#endif 

fBreakXype = BRKRomanL ine Break { fComposedLine , fCharRecs, 




scPARARef Data : rPARAFini ( ) 
1,2 fPara->GetCharArray() .Unlock { ); 



fPara - 0; 

''4 fCharRecs 0; 
12 fStartSpecRec =^ 0; 




f'CoffiposedLine . f Start CharOf f set , 
fComposedLine . f CharCount , 
fComposedLine, 
fLineHumber, 
fLinesHyphed, 
Sif CurSpecRec, 

fComposedLine . f InkExtents , 
fComposedLine , f LetterSpace ) ; 



scAssert( fComposedLine.f InkExtents. Valid () ); 



#ifdef SCJIS4051 
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f PData . fXeKtl ine-> Ini tForReuse ( f FData . f Para ) ; 
return fPData . f Text line f= HULL; 

} 

// Set up line data according to current spec 

void scPAMRefData; :SetLineData( Bool leadRetry ) 
{ 

if ( leadRetry ) { 

// we ?mnt to reset the initial leading and the mas lead spec 
// but everything else should be the same 
// because to are going to retry setting the line 
f InitialLine . f EndLead .SetBelowLead { f Init ialLine . f InitialLead . GetBelowLead () ) ; 

MicroPoint masAboveLead = MAX( Flni tialLine.f EndLead. GetAboveLead () , 

f ComposedL i ne , f EndLead . GetAboveLead ( ) ) ; 
flnitialLme.f EndLead. SetAboveLead( maxAboveLead ); 
rinitialLine .SetMaxLeadSpec ( fComposedLine .GetMaKLeadSpec ( ) ) ; 
fComposedLine « f InitialLine; 

} 

scAssert{ f InitialLine . fCharRecs l« 0 ); 

// we have accepted the composed line at this point 
// so we can copy it over 
f InitialLine » fComposedLine; 

O f InitialLine . f StartCharOf f set - f ComposedLine .GetEndCharOf f set ( ) ; 

fInitialLine.fCharCount - 0; 

|i fCharCount 

fy get to the spec at the beginning of the line 

^3 fInitialLine.fSpecRec - OetSpecRecord { f InitialLine .f StartCharOf f set ); 
1%. TypeSpec ts ^ f InitialLine . fSpecRec->spec( ) ; 

f InitialLine. SetInitialSpec( ts ); 
'^J scCachedStyle: :GetCachedStyle( ts ); 

if ( I leadRetry ) 

f InitialLine, SetMaKLeadSpec( ts ); 

%l f InitialLine. fStartSpecRunOff set - 0; 
;1 flnitialLine.fSpecRunCount = 0; 

l^fdef scUseRubi 

fInitialLine.f Annotations - 0; 
l^ndi f 

f InitialLine. fInkEKtents ^ scCachedStyle: ; GetCurrentCache () .GetInkEKtents() ; 

fInitialLine. flnkExtents. Translate { 0, scCachedStyle: :GetCurrentCache( ) «GetBaseline() ); 

f InitialLine. fLogicalExtents « scCachedStyle; : GetCurrentCache () .GetLogicalExtents () ; 

// fLastLineLen 
// fMeasur© 
// fComputedLen 
// fRagSetting 



// set primary lead - v?e are setting here for COLGetStrip 
f InitialLine , f InitialLead « FComposedLine . f EndLead; 

// fEndLead 
fLetterSpace 

// fColShapeXype 

f InitialLine. fBaselineJump = scCachedStyle: :GetCurrentCache( ) .GetBaseline() ; 

y/ fFlowDir 

/^y now the the initial values are set copy them over to the line 
// that we will compose, if the composition fails for some 
// reason or other we will have our initial values and can 
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if ( GetPrwO ) { /* there are prior paragraphs in the stream 
lastTsl = GetPrev()->GetLastline() ; 

if ( lastTxl ) { 

la3tTxl->ParaLead( lead, col->GetFlowdir( ) ) 

if ( lastTKl->GetColuffin() !- cData -GetActive { ) ) { 
cData.COLFiiii( false ); 
col - lastTKl->GetColuKm{); 

cData.COLInit ( col, this ); 

} 

baseline « lastTxl-XjetBaselineO ; 

if ( col->GetFlowdir() .IsHorisontal () ) 

cData.fPrevEnd,Set( col->Width(3 , lastTKl->GetOrigin ( ) -y ); 

else 

cData.fPrevEnd.Set ( lastTHl->GetOri0in () .x, col->Depth() ); 
c0ata . f SavedPrevEnd « cData . f PrevEnd ; 

// we have to fool the baseline into thinking that it is 
in a vertically oriented column 
if ( col-->GetFlowdir(} .IsVarticalO ) 
baseline « col->Width() - baseline; 

} 

else { 

overflow stuff, in COLGetStrip 
TypeSpec ts ^ SpecAtStart( }; 

lead. Set ( scCachedStyle : :GetCachedStyle ( ts ) . GetComputedLead ( ) , col->GetFlowdir( ) ); 
il baseline - LQHGLMIN; 

:i } 

IZ } 

else { 

fU /V this is the first paragraph in the stream 

[ i TypeSpec ts - SpecAtStart ( ) ; 

lead.Bet( scCachedStyle: :GetCachedStyle( ts ) . GetComputedLead ( ) . col->GetFlowdir { ) ); 

lastTKl = MULL; 
M baseline - FIRSTL.LINEJ'OSmOK; 

return lastlKl; 

% 

hhol scCOLRefData: :AllocLine( Bool leadRetry ) 

if ( leadRetry ) { 

scAssert{ fPData. f Text line I- Q ); 
return true; 



if ( 1 fPBata.fPrevline ) { 

fPData.fTextline « fCol->GetFirstline() ; 

if C fPData-fXeKtline fPData, fTeKtline->GetPara ()->GetCount (3 < fPData . fPara->GetCount () 

fCol->FreeLines( true, fLineDamage ); 
fPData.fXestline - MJLL; 

} 

} 

else 

fPData.fTeKtlxne « fPData .fPrev2ine->GetNeKt {) ; 

if ( IfPData-fTeKtline ) { 

fPData. next line ^ scTeKtline: .'Allocate ( fPData . fPara, 

fCol, 

fPData.fPrevline ); 

} 

else if ( fPData.fTeKtiine->GetPara() 1- fPData.fPara ) { 
fPData.fPrevline - fPData . fXentline; 

fPData.fXestline « LHInsertNew( fPData.fPara, fCol, fPData .fXestline ); 

} 

else 
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// TypeSpec maxLeadSpec fLineData.fMsKLeadSpec; 

// fBreakXype » fSavedBreakType; 

// fCurSpec ^ f SavedCurSpec i 

// fLineData fSavedLineData; 

// cData * fSavedscCOLRefData; 

// fLineData. fMaKL^adSpec « maxLeadSpec; 

// FMSetMetrics( fCurSpec ); 
} 

Bool scPARARefData: :AdjustLead( void ) const 

^ return f InitialLine , f InitialLead >GetAboveLead ( ) < f Composed! ine . £EndLead ,GetAboveLead( ) : 
} 

// delete excess lines in the paragraph we are currently formatting 

void scCOLRefData::PARADeleteExcessLines( void ) 

^ scContUnxt* para - fPData.fPara; 

scTeKtlxne* txl « fPData. fXeKtline; 
scTextline* neKtXKl; 
scColumn* nestCol; 

i^l if ( tKl ) 

tKl - tKl->GetHeKt(); 

else 

fy tKl = para->GetFirstline() ; 

delete excess lines in paragraph 
^ for ( ; txi; txl « nextTxl ) { 

p nextTxl « txl->GetHext ( ) ; 

L if ( nextXxl MILL ) { 

iJ // check next column 

^^•J if ( ( nextCol « txl->GetColumn{)->GetNext() ) !- NULL ) 

fi.s nextTxl ^ para->NextColumn ( nextCoi ); 

ti > 

n if ( txl->GetPara() para ) 

^ txl->Delete{ fLineDaiaage ); 

else 

break; 

} 

// delete any excess lines m column if no further paragraphs 
if ( para ipara->GetMext (} txl ) { 
for ( ; txl; txl « nextTxl ) { 

nextTxl - LHHext ( txl ) ; 

txl->Delete( fLineDamage ); 

> 

} 

} 

/* ix^UTB out where to put the first line of a paragraph 

scTextline* scContUnit : :LocateFirstLine( scCOLRefData& cData, 

TypeSpec curSpec , 

scColuinn*S: col^ 

MicroPointSt basel ine , 

scLEADRefDataSc lead, 

PrevParaDataSt prevParaData ) 

{ 

scTextline* lastTxl; 
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case kRomanBaseline : 

fd.SetFlow( eRomanFlDW ); 
break ; 

// vertical flow 
case kLeftBaseline; 
case kCenterBaseline: 
case kRightBaseiine: 

fd. SetF2ow( sVertJapanFlow ); 

break ; 

} 

ComputeAboveBeIow( lead, fd ); 
return GetLead ( ) ; 



void scLEADRefData: :SetC MicroPoint aboveLead, MicroPoint belowLead, const scFlowDirSc fd ) 
{ 

fAboveLead - aboveLead; 
fBelowLead « belowLead; 
fFlow ^ fd; 



void scLEADRefData: :CoiriputeAboveBelow( MicroPoint lead^ coKst scFlowDirSc fd ) 
{ 

if ( fd.IsHorizontalO ) { 

'^■f static REAL realAbove « (REAl.)RLU„BASEfmTop / scBaseRLUsystem; 

y static REAL realBelow « (REAL )RLU„BASEfmBot torn ^ scBaseRLUsystem; 

ffi static MicroPoi^it iastlead; 

-1'= static MicroPoint abovelead; 

^2 static MicroPoint belowlead; 

|.y if ( lastlead i« lead ) { 

abovelead - scRoundMP( realAbove « lead ); 
„2 belowlead ^ scRoundMP{ rsalBelow « lead ); 

IJ lastlead « lead; 

} 

fAboveLead = abovelead; 
fieiowLead = belowlead; 

^4 } 

ill else { 

fAboveLead ^ lead /* 2; 
:1 fBelowLead =^ lead / 2; 

} 

scSpecRecord* scPARARe f Da ta :: Get SpecRecord ( long offset ) 
{ 

scSpecRecord* specrec; 

for ( specrec * fStartSpecRec; offset > (specrec+1) ->of fset ( ) ; specrec++ ) 
return specrec; 

} 

void scPARARefData: ;SaveData( const scCOLRefDataS: cData */ ) 
{ 

^/^ fSavedBreakXype « fBreakXype; 

// fSavedLineData « fLineData; 

// fSavedscCOLRefData cData; 
fSavedCurSpec « fCurSpec; 

> 

void scPARARefData: :RestoreData( /» scCOLRefDataSt cData */ ) 
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f Org. Set ( 0. 0 ); 

fCharRecs ^ 0; 

fStartCharOffset- 0; 
fCharCount ^ 0; 

fSpecRunCount = 0; 

// fMasLeadSpec; DO NOT SET THIS IN HERE 

#ifdef 3UBI„SUPP0RT 

fAnnotations = 0; 
#endif 

f InkEsctents . Invai idate ( ) ; 

f LogicalEstents . Inval idate ( ) ; 

FLastLineLen 0; 

f Measure « 0; 

fComputedLan * 0; 

fRagSetting ^ eRagCentered ; 

fLetterSpace - 0; 

f Start Angler « 0; 

fEndAngle - 0; 

fColShapeType = eHoShape; 



f Base line Jump « 0; 



vi>id scLINERefData; :Inlt( const scFlowDir& fd ) 

xKlnit(); 
IJ f InitialLead . tnit ( fd ); 
Cl fEndLead.Init( fd ); 
" fFlowDir « fd; 

sbtEADRe f Data : rscLEADRef Data ( const scLEADRefDataS* Id ) 

4a 

Li. fFlow « Id, f Flow; 

J I fAboveLead « Id , fAboveLead; 

fBelowLead « Id . fBelowLead; 

void scLEADRe f Data :: Set ( MicroPoint lea<l ) 

{ 

ComputeAhoveBelow( lead, fFlow ); 

} 

void scLEADRe f Data: .-Set ( MicroPoint lead, const scFlowDirS. fd ) 
{ 

ComputeAboveBeIow( lead, fd ); 

} 

MicroPoint scLEADRef Data Compute ( MicroPoint ptsxse, MicroPoint lead, eFntBaaeline baseline 
{ 

scFlowDir fd; 

switch { baseline ) { 

horizontal flow 

case kTopBaseline : 

case kMiddleBaseiine: 

case kBottomBaseline: 
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File: scparagS.c 

$Header: /Projects/ToolboK/ct/SCPARAGa.CPP 3 5/30/97 8:45a Vtoanis $ 
Contains: reformatting code for content units. 
Written by: Man is 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission oz" acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition TooiboK software is the proprietary 
and confidential property of Stonehand Inc. 



ar jss ss i= « ss B» ist « 



#inciude "scparagr.h" 

#include "sccolumn.h" 

#include "scbreak.h" 

#include "scstcach.h" 

#ii|clude "scglobda.h" 

#lgclude "sec type. h" 

#'iiclude "scmem.h" 

#|lclude "scspcrec.h" 

#i^ciude "scstream.h" 

#iSclude "scteKt 1 i . h " 

#iSciude "screfdat.h" 

^feiclude "scparagr.h" 

#include "sccolumn.h" 

#i|clude "sccallbk.h" 

#ifdef scUseRubi 

t^lfic 1 ude " scrub i . h " 
Crndif 



acPARARef Data : :scPARARef Data ( ) : 

fPrevPara( 0 ), 
C3 fPrevSpecC 0 

f Origin ( 0, 0 ). 

fPrevline( 0 ), 

fTextline( 0 ), 

fPara( 0 ), 

fBreakType( eUndef inedEreak ). 

fColumnCount( 0 

fLinesBefore( 0 

fLinesAfter{ 0 

fLineNumfoerC 0 )^ 

fLinesHyphed( 0 

fCharHecs( 0 

f StartSpecRec ( 0 ), 

fCurSpecRec{ 0 

fSpecCount( 0 
#ifdef scUseRubi 

fAnnotations{ 0 ), 
#endif 

calumn„( 0 ) 

{ 
} 



*/ 



void scLINERefData: rxslnit ( ) 
{ 
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*/ 



scContUnit* scContUnit :: Earlier ( const scContUnit* p2 ) const 
{ 

const scContUnit* prevParai » this; 

for { ; prevPara I NULL; prevPara « prevPara->GetPrev( ) ) 
if ( prevPara p2 ) 

re t urn ( scCon tUn i t * ) p 2 ; 

return (scContUnit*)this; 

} 




scContUnit* scContUnlt : :A1 locate ( TypeSpecSc 



cu. 




ct ) 



return SCKEW ©cContUnit( spec^ cu, ct ); 

} 
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int i ^ fSpecRun.indeKAtOffset( startOffset ); 
do { 

TypeSpt&c ts = f SpecRun [ i ] . spec ( ) ; 
tsList.Insert ( ts ); 
} while ( fSpecRuti[-*-+i] .offset 0 < endOffset ); 

} 

insert specs in this the paragraph »/ 

void scContUnit: :G©tTSList{ scTypeSpecListS* tsList ) 

{ 

OffsetOetTSListC LOHGJNIIlsF. LOHG_MAX, tsList ); 

} 

void scContUnlt : :0f fsetGetCharSpecList( long startOffset, 

long endOffset, 
scSpecLocListSc csList ) 

{ 

if ( endOffset startOffset ) 
return; 

if ( endOffset LONG^MJOC ) 

endOffset = GetContentSize() ; 
if ( startOffset LONGJ^IN ) 
..^ startOffset « 0; 

%2 int i ^ fSpecRun.indesAtOffsetC startOffset ); 
fn scSpecLocation chsploc( GstCountO^ startOffset 

chsploc.spec () « fSpec;Run[i] .spec() ; 

csList .Append ( chsploc ); 

IJ while { fSpecRun[++i] .offset () < endOffset ) { 

scSpecLocation chsploc { GetCountO* fSpecRun[i ] .of fset () ); 
chsploc. spec 0 - fSpecRun[i} .spec(3 ; 

%J csL i St .Append ( chsploc ); 

. } 

csList .TermParagraphC GetCount(), endOffset ); 

4&TLd scContUnit : rSelectWord ( long offsets 
13 1 ong £e s t artV^^or d , 

long£c endWord ) 

{ 

fCharArray .SelectWord( offset, startWord, endWord ); 

} 

void scContUnit : :Deforfflat{ ) 

{ 

scTextline* tnl; 
scTestline* next; 

for ( tKl - GetFirstlineO; txl txl -> Get Para ( ) this; tKl « next ) { 
n^Kt * tKl->GetMeKtLogical (); 
if ( txl tKl->GetColumn() ) 

txl->GetColumn()">Mark( scIMALID ); 
tKl->MarkForDeletion( ); 

} 

SetFirstlins( 0 ); 
Mark{ scREBREAK }; 



/» return the earlier of these two paragraphs in a streaM 
» NULL would indicate that they are not in the same stream 
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} 

// unlink a paragraph from a streaai 

void scContUnit : :Unlink( ) 

^ scContUnit* lastPara; 
scContUnit* nestPara; 

// mark all the lines of the paragraph as being invalid 
Deforaat( ); 

lastPara « GetPrevO; 
nestPara ^ GetMeHt(); 

if ( lastPara ) 

lastPara->SetNe2:t( neztPara ); 
else ■{ 

// this is the first paragraph in the stream and we must let 
// the columns know that the head of the stream has changed 
// 

Get Stream ( ) - > ResetStream ( ( scSt ream* ) nestPara ) ; 

} 

i£ ( neKtPara ) 

neKtPara->SetPrev( lastPara ); 

[J SetPrev( HULL ); 
SetHest( M3LL ); 

% 

4f^5 return spec at hB^^innin^ of paragraph 
tj^ieSpec scContUnit: :Specl^tEnd( ) 

^3 for ( int i « 0; ! fSpecRun[i ] . isTerminator ( ) ; i+-H ) 

^ _ return f SpecRun [ i ] . spec { ) ; 

P 

return spec at end of paragraph ^/ 
"i^eSpec scContUnit: -.SpecAtStartC ) 
return f SpecRun [0] .spec () ; 

} 

/* return spec at offset of paragraph */ 

lypeSpec scContUnit: :SpecAtOf f set ( long offset ) 

^ return f SpecRun. SpecAtOff set ( MAK( 0. offset - 1) ); 
} 



/* insert specs in this selection of the paragraph */ 

void scContUnit: :Off set GetTSList( long startOffset, 

long endOffset, 
scTypeSpecListSt tsList ) 



{ 



if ( endOffset startOffset ) 
return ; 

if ( endOffset LOMG.MAX ) 

endOffset - GetContentSize() , 

if ( StartOffset LOHG„MIN ) 
StartOffset » 0; 
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if ( t5ii->0etPara( ) this ) 

break ; 
prevTKl « txl; 

} 

return prevTKl; 

} 



/* £ind the last visible paragraph in a stream */ 
scContUnit* scCoBtUnit : :GetLastVisiblePara( ) const 

^ const scContUnit* iastp; 

const scContUnit* p - this; 

for ( lastp p; p; p - p->GetNext() ) { 
if ( ip->GetFirstlinen ) 

break; 
lastp p; 

} 



} 



return (scContUnit*) lastp; 



return the previous visible paragraph 

scContUnit* scContUnit : rGetPrevVisiblePara ( void ) const 

^i'S const scContUnit* p » this; 

m for ( ; p; p - p-'>GetPrev( ) ) { 
:[] if ( p->GetFirstline() ) 
I ^ break ; 

h\j return (scContUnit* )p; 

renumber the paragraphs of a stream */ 

4Ad scContUnit : :Renumber( ) 

hi long count; 
12 scContUnit* p ^ this; 

n // back up 

£3 for ( ; p S:£e p*>GetPrev() ; p - p->OetPrev() ) 



// renumber 
for ( <^ovcci% ^ 0; p; p « p->GetNext() ) 
p->SetCaunt( count++ ); 



} 



/• report back sise of paragraph on disk */ 

long scContUnit: :EKternalSi2e( ) const 
{ 

long enSise; 

enSize - ( long )sizeof (scContUnit ) ; 

eKSize fCharArray. Externa ISise () ; 
esSixe fSpecRun, External Size( ); 

#ifdef .RUBI^SUPPORT 

if ( GetRubi Array () ) 

esSize GetRubiArray()->EKternalSi2e() ; 

#endif 

return exSize; 
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^ fCharArray.WriteXeKtC fSpecRun, addBcr, ctsPtr. writeFunc ); 
} 

void scContUnit: :ReadAPPTeKt{ stText Import Exports appText ) 

^ fCharArray.ReadAPPTest( fSpecRun, appTe^t ); 
Mark( scRETABULATE ); 

} 

void scContUnit; ;WrxteAPPTeKt( stTextlmportE^portSc appTent ) 

^ appTeKt,StartPara{ defspeo^ ); 

fCharArray.WriteAPPTeKt( fSpecRun, appText ); 

} 

/* scRETABULATE a paragraph, if ts is mil whole para will be reformatted 
* otherwise only the ts section will be reformatted 
«/ 

void scContUnit: :Retabulate{ TypeSpec ts ) 
^ if ( GetContentSi2e{) > 0 ) { 

13 fCharArray.Retabulate( fSpecRun, OL, Get Contents ize () . ts, GetContentSize ( ) ). 
O Mark( scREBREAK ); 

UnmarkC scRETABULATE ); 

n 

%i£ind the last line of a paragraph 
^eKtline* scContUnit : :GetLastline() const 

.z,^^ scTeKtline* tKl; 

scTeKtline* neKttKl; 

I ; 3 scAssertVal id ( ) ; 

S": for 1 txl « fFirstline; tsl; t%\ - nexttxl ) { 

if ( txl->IsLastLinePara() ) 
C3 break; 

''"^ nexttKi = txl->GetHextLogical(); 

if ( fnexttxl tl neKttxl->GetPara ( ) this ) 
break ; 

} 

if ( tKl ) 

scAssertC tKl->GetPara( ) this ); 
return txl; 

} 

/* find the last visible line of a paragraph 
scTeKtline* scContUnit : :aetLastVisibleLine( ) const 

scTeKtline* prevTxl; 
scTeKtline* txl; 

scAssertVai id ( ) ; 

// start with first line of paragraph 
prevTxl fFirstlzne; 

for ( txl « prevTKl; txl; txl = tKl->GetHeKtLogicai () ) { 
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scGontUnit* p = this; 
scContUnit* next Para; 

bytesFreed - 0; 

for ( ; p; p ^ nextPara ) { 

nextPara « p->GetNes:t( ); 

bytasFre^d p'->EKternaiSize () ; 

p->Free(); 

} 

} 

this is the simple case of freeing the paragraph, 
* NO disentangling of pointers 
«/ 

void scContUnit: :F3ree( scSalectxon* select ) 
{ 

if ( select ) { 

if para is on selection list remove it from selection list 
select->CheckFreePara( this ); 

} 

#ifdef „RUBI_SUPPORr 

// free rubi if present 
DeleteRubiArray ( ) ; 
#endif 

C3 delete this; 

hi 

Xy duplicate a paragraph, using old paragraph as the model and linking it 
4^3 to 'prevParaH* 

scfcontUnit* scContUnit : ;Copy ( scContUnit* prevPara ) const 

€3 

„ TypeSpec nullSpec; 

£3 scContUnit* dstPara - scContUnit :: Allocate { nullSpec, prevPara, GetCountO 

H fCharArray.CopyC dstPara~>GetCharArray () , 0, fCharArray.GetContentSize ( ) ) 

dstPara">CopySpecRun( fSpecRun ); 
tZ TypeSpec ts ^ defspec_; 
|J dstPara->SetDefaultSpec( ts ); 

Ixfdef _RUBI_SUPPORT 
if ( f Rub i Array ) { 

dst Para ->AllocRubi Array ( »fRubiArray ); 

} 

#endif 

return dstPara; 

} 

long scContUnit: :ReadStream( APPCtKPtr ctsPtr, 

lOFuncPtr readFunc ) 

^ long ret - fCharArray .ReadText ( fSpecRun, ctKPtr, readFunc ); 
Mark( scRETABULATE ); 

return ret; 

} 

void scContUnit: :WriteStream( Bool addDcr, 

APPCtsPtr ctxPtr, 
lOFuncPtr writeFunc ) 
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} 

else 

fCharArray.CharInfo( fSpecRuB, offset, ch, flags, escapement, ts, unitType ): 
fCharArray.WordSpacelnfoC offset, wordspace ); 

} 

/* transform the text style between offset! and offset2, return the column or 
* previous column containing the effected tert 

void scContUnit: :TextTrans( long offsetl, 

long of£set2, 
eChXranXype trans, 
int numChars ) 

{ 

long tmp; 

if ( offsetl >- offset? ) { 
if ( offsetl offset2 ) 

return; 
tmp ^ offsetl; 
offsetl ^ offset2; 
offset2 ^ tmp; 

} 

if { offsetl LOKG_MIH ) 
offsetl - 0; 
C3 if ( offset2 LONGJIAX ) 
:.3 offset2 « GetContentSizeO ; 

^ fCharArray,Xransfona( offset!, offset2, trans, numChars ); 
XypeSpec nullSpec; 

fCharArray.RetabulateC fSpecRun, offsetl, offset2, nullSpec, GetContentSize{ ) ); 
Mark( scREBREAK ); 

vbid scContUnit: :InitParaSpec( XypeSpecS* ts ) 

{; .1 

if ( !defspec„.ptr() ) 
defspec„ ^ ts; 
fi scCachedStyle: :SetParaStyle( this, defspec_ ); 

void scContUnit: :LockMem( CharRecordP& chRec, 

scSpecRecord*^ specRec ) 

chRec - (CharRecordP ) GetCharArray ( ) . Lock ( ) ; 
specRec = fSpecRun .ptr ( ) ; 

XypeSpec ts = specRec -> spec () ; 

InitParaSpec( ts ); 

scCachedStyle: :8etCachedStyle( ts ); 



void scContUnit : :UnlockMem( ) 
GetCharArray ( ) . Un 1 ock ( ) ; 

} 

/* free a scrap handle */ 

void scContUnit: :FreeScrap( longS: foytesFreed ) 
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long tmp; 
ions compOffsetl, 
compOffset2; 

if ( offsetl >- offsets ) { 
tmp - offset 1; 
offset! = offsets ; 
offsets « tmp; 

} 

compOffsetl - MAX( offsetl, 0 ); 

compOffsetS « MIN( offsetSx OetContentSize( ) ); 

// apply the spec only if it is an emopty para 
if { compOffsetl 0 &St compOffsetS 0 ScSt GetContentSi2e() ) 
return ; 

if ( compOffsetl 0 1 | compOffsetl compOffsetS ) { 
if ( comp0ffset2 GetContentSize() ) 

fSpecRun.ApplySpec( style, compOffsetl. LONGJiAX ); 

else 

fSpecRun.ApplySpec( style, compOffsetl, compOffsetS ); 

#ifdef 3UBI„SUPP0i?r 

if ( f Rub i Array ) 

fRul3iArray->ApplyStyle( compOffsetl, compOffsetS, style ); 

#endif 

fSpecRun-SetContentSi2e( GetContentSize ( ) ); 
C3 if ( forceRepaint ) 

^3 ForceRepaint ( compOffsetl, compOffsetZ ); 

*~'' if ( retabulate ) 

fU f CharArray. Retabulate ( fSpecRun, compOffsetl, compOffsetZ, style, GetContentSize () )■ 

e X se 

Mark( scRETABULATE ); 



\ \ \ 



Mark( scREBREAK ); 



/KJfill in some specific information about a character */ 



\^id scContUnit: :ChInfo( long offset, 

f3 UCS2Sc ch, /» character at offset »/ 

#5 ulongSc flags, 

'"-^ MicroPointSe escapement, /» escapement at offset */ 

MicroPointSc wordspace, /* ws escapement at offset */ 

TypeSpecSc ts, /* typespec at offset 

ellnitTypeSt unitType ) /* relative or absolute */ 



{ 



if ( offset 0 ) { 

ch « scParaStart; 

flags « 0; 

escapement - 0; 

ts - fSpecRun.SpecAtOffset( offset ); 

unitType » eAbsUnit; 

else if ( offset " GetContentSize ( ) + 1 ) { 
ch « scParaEnd; 

flags - 0; 

escapement = 0; 

ts ^ fSpecRun.SpecAtOffset( GetContentSize ( ) ). 

unitType « eAbsUnit; 

else if ( offset > GetContentSize () ) { 
ch - 0; 

flags ^ 0; 

escapement - 0; 
ts .clear 0 ; 

unitType eAbsUnit; 
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if ( doit ) 

fSpecRun.PrxntRun( "scContUnit: : Char Insert" 

} 

#endif 

#ifd©f „RUEI_„SUPPORT 
if ( f Rub i Array ) { 

if ( fRubiArray->IsRubiData( offset + computedOf fset ) ) { 
scRubiData rd; 

fRubiArray->GetRubiAt( rd, offset + computedOf fset ); 

fCharArray.Transform( rd . fStartOf fset* rd.fEndOf fset, eRemove JapTran , 0 ); 

fRubiArray->DeleteRubiData( offset ); 
if { lfRufaiArray-'>GetNumItems(} ) 
DeleteRubiArray () ; 

} 

} 

#endif 

if ( computedOf fset 0 ) 

fCharArray.SetHumSlotsC fCharArray.GetlsFumItems() + 1 ); 

f CharArray . Char I nsert ( tiuMove , 

fSpecRuHr 

#ifdef _RUBI„SUPPORT 

f Rub 1 Array, 

#endif 

offset, 
keyRec , 

n tsKtCl eared, 

l'^ clearedSpec ); 

V] fSpecRun.SetContentSize( GetContentSise () ); 

^di SCDEBUG > 1 

static mt doit; 
"^J if ( doit ) 

ri fSpecRun.PrintRun( "void scContUnit : :Char Insert 2" ); 

} 

#h|idif 

"nJ scTeKtline* txl = FindLine( offset ); 
= ,1 if ( tKl ) 

?^ txl->Mark( scREPAIOT ); force repaint */ 
n Mark( scREBREAK ); 

^- rebneak = true; 

} 

void scContUnit: :SetDefdultSpec( TypeSpecS. ts ) 
{ 

if ( t^.ptrO J« defspec„.ptr{) ) { 
defspec_ « ts; 
Mark( scREBREAK ); 

} 

ForceRepaint( 0, LOHG„MAX ); 



/« set the text style between of fset 1 and offset2, return the column or 
» previous column containing the effected test 
«/ 

void scContUnit: :SetStyle( long offsetl, 

long o£fset2, 
TypeSpec style, 
Bool retabulate, 
Bool forceRepaint ) 
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iAiEiRemoved true; 

if ( startPara ) { 

star t Para ->Mark( scREEREM ); 
rebreak - true; 

keyRec.repiacedchar() * scParaSplit; 

} 

else 

keyRec . noop { ) ^ true; 
tmMove = 0; 
return startPara; 

else if { keyRec.keycode( ) scFoxwardDelete offset =>^^ OetContentSi2e( ) ) { 
if ( GetNeKtO HULL ) 

keyRec. noop () = true; 
else { 

StartPara GetNeKt ( ) ->Merge ( offset ); 
startPara->Mark( scREBREAK ); 
rebreak « true; 

keyRec, replacedcharO = scParaSplit; 
keyRec .rest oreselect{) = true; 

/* flag to reset cursor behind new ch 

} 

tisMove - 0; 
break; 

} 

ri computedOf fset « -1; 

,'5 /* FALL THROUGH */ 

IZ default: 

startPara->CliarInsert( computedOf fset, 
fU offset, 
I i keyRec , 

^ tnikov© r 

|y rebreak, 
'"--J teKtCieared, 

clearedSpec ); 

break; 

} 

I J return startPara; 

vtfid scContUnit Insert ( const CharRecord& ch, 
: 5 TypeSpecS: spec , 

^=^' long offset ) 

{ 

CharRecordP chRec « (CharRecordP)S*ch; 
fCharArray. Insert ( chRec, offset, 1 ); 

fSpecRun.BumpOffset ( offset, f Char Array .GetNumI terns ( ) ); 

if ( spec.ptrO ) 

fSpeoRun.ApplySpec( spec, offset, offset + 1 ); 

Mark( scREBREAK ); 

} 

void scContUnit: :CharInsert ( long computedOf fset, 

long& offset, 
scKeyRecordSt keyRec , 
longSc tmMove, 
shortSt rebreak , 
Bool textCleared, 
TypeSpec clearedSpec ) 

{ 

#if SCDEBUG > 1 
{ 

static int doit; 
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case scUpArrow: 
titMove 

keyRec , replacedchar ( ) 
break; 
case scDownArrow: 
tBiMove 

keyRec. replacedchar 0 
break ; 
case scLe ft Arrow: 
tKiMove 

keyRec . replacedchar ( ) 
break ; 
case scRightArrow: 
tmMove 

keyRec . repl acedchar ( ) 
break ; 



PREV^LINE; 
scDownArrow; 



» NEXT^LINE; 

- scUpArrow; 

- -1; 
scRightArrow; 



1; 

scLeftArrow; 



scContUnit* scContUnit : ;KeySplit ( longSt offset, 

scKeyRecordS keyRec , 

longSc tmMove, 

shorts rebreak ) 

^ scContUnit* p - Split( offset ); 

„^ offset 0; 
I J rebreak ^ true; 

-^1 if { keyRec.restoreselectf) ) { /* replacing forward deletion 
^5 tmMove = -1; 

keyRec. repl acedchar 0 * scFonsrardDelete; 

fy } 

i.1 else { 

r*s titiMove 0; 

"'^ keyRec. replacedchar () « scBackSpace; 

H } 

I J return p; 

I 

^cContUnit* scContUnit :: Key Insert ( longSc 
j'"^ scKeyRecordSc 
T'^ longS: 
11 shortSc 

Bool 

TypeSpec 
BoolSc 



{ 



offset, 
keyRec, 
tiuMo ve , 
rebreak , 
testCleared, 
clearedSpec, 
iAmRemoved ) 



scContUnit* startPara - this; 

long computedOf fset * 0; 



/* insert the character into the text */ 
switch ( keyRec -keycodeO ) { 
case scUpArrxjw: 
case scDownArrow: 
case scLeftArrow: 
case scRightArrow: 

ArrowSupport ( keyRec , tinMove ) ; 

break ; 



case scParaSplit: 

StartPara ^ KeySplit( offset, keyRec, tinMove, rebreak ) 
break; 

case scBackSpace: 
case scForwardDelete ; 

if C keyRec. keycodeO scBackSpace offset 0 ) { 
StartPara « Merge { offset ); 
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if ( tsl->IsLastLinePara( ) ) 
break ; 



} 



/* £ind the location of * offset' in this paragraph 

Bool scContUnit::FindLocation( long& offset, /* offset location to find */ 

BoolS: endOfLineP,/* true if cursor stays at end of 

* this line instead of moving to 

* nent on hyphenated word 
»/ 

scTeKtline*Sc txl . /* line that offset is on «/ 
MicroPointSc hLoc, /* location on line from org*/ 

eContentMovement cursDirect ) 

scTextline» ntHl; 

Bool endOfLine ^ false; 

find the first line of the paragraph 
tsl ^ fFirstline; 

// search the lines of the paragraph until we find a line 
// containing the 'offset' 
for ( ; tsl; tKl - ntKl ) { 



if C offset >« txi->GetStartOffset {)) { 
if i offset < tKl->GetEndOffset ()) { 

break; found it */ 

^ /« Stop here if we are at the end of a hyphenated 
* line and endOfLineP is true 

else if ( endOflineP offset txl->GetEndOf fset () tnl-MsHyphenated ( ) ) { 
endOfLine « true; 

break; ^e found it */ 

} 

} 

ntKl - tKl->aetHeztLogical(); /* get nesrt line */ 

if { !ntxl It ntxl">(^tPara() 1- this ) 
break ; 

} 

endOfLineP endOfLine; 

if ( txi ) { 

scMuPoint charOrg; 

// find location on line 
charOrg « txl->Locate( offset, charOrg, cursDirect ); 

if ( tKi->GetColumn()->aetFlowdir() .IsVerticalO ) 
hLoc » CharOrg. y; 

else 

hLoc « charOrg. k; 
return true; 

} 

hLoc - LONG.MIH; 
retvirn false; 



} 



Static void ArrowSupport { scKeyRecordSc keyRec, 

iongSt txnMove ) 

^ switch ( keyReckeycodeO ) { 
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if ( GetRubiArrayO ) { 

GetRubiArray()">DeleteRubiData( offsetl, offset2 ); 
if ( !GetRubiArrayC)->aetNumI terns 0 ) 
Del eteRubi Array ( ) ; 



#endif 
} 



Mark( scREBREAR ); 

break link to first line if we remove that text, the refernece 
* to this tent will be patched in the reformatting process 
*/ 

tKl * GetFirstlineO ; 



if ( tKl ) { 

scColumn* col ^ tsl->GetCoiuiim() ; 
if ( txl col->GetRecomposition() ) { 
scXestline* nextXEl; 

for ( ; tKl S:Sc tKl->GetPara( ) this; tKl - neKtTxl ) { 
nextTHi « tKi->GetNestLogical () ; 
if ( offset2 txl->GetEndOffset( ) ) { 

// the delete takes caare of patching the para 
txl->MarkForDelet ion ( ) ; 

} 

else •[ 

long startOffset « MIN( ts:l->GetStartOf fset { ) - offset2, GetContentSize { ) ) 
long endOffset - Mm( tKl->GetEndOf fset ( ) - offset2. GetContentSise ( ) ); 



} 



} 



tKl ->SetOf f sets ( StartOffset, endOffset ); 

} 



U > 

^'^ return entireParaDeleted; 

N 

/It force a repaint of the logical selection - map the logical world 
iy into the layout world 

\^d scContUnit: iForceRepaint ( long offset!, 
H long of fset 2 ) 

C3 

scTeHtlme* txl; 

''"'-^ scTeKtline* ntxl; 

scColumn* col; 



txl ^ GetFirstlineO ; 

if ( txl ) { 

col « txl->GetColumnC)i 

/* search the lines of the paragraph until we find a line 
* containing the 'offset' 
*/ 

for ( ; txl; txl ^ ntxl ) { 

if ( of fset 2 < txl->GetStartOffset{ ) ) 

else if ('offsetl > txl ->Get£ndOf fset ( ) ) 

else'if ( offset 1 < tKl->GetEndOf f set ( ) ) 
txl->Mark( scREPAIOT ); 



ntxl - L£3Hext( txl ); 
if ( ntxl MILL ) { 

/* hit the bottom of a column, check next column */ 

col - col->GetNext() ; 

ntxl = MextColumn( col ); 
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} 



ClearText( offset. GetContentSize () ); 
if ( offset 0 ) 

SetFirstline( MJLL ); 

PostInsert( p2 ); 

Mark( scREBREAR ); 
p2->Mark( scHEBREAK ); 
offset ^ 0; 
return p2; 



// merge this paraH with the previous^ "this" is deleted in 
// this method, the new content unit is returned 

scContUnit* scContUnit : :Merge ( longSc offset ) 

^ scStream* stream - (scStream»)FirstInChain () ; 
scContUnit* prev « GetPrev{); 

if ( prev ) { 

scColumn* col = scColumn : :FindFlowset ( stream ); 

offset - prev->GetContentSize(); 

UnlinkC ); 
13 prev->Renumber( ) ; 



long tmp « offset; 
Fy prev->FasteText( this, tmp ); 

Free( col ? col->FlowsetGetSelection ( ) : 0 ); 
""■y return prev; 
l'" return this; 

/nithis clears the text from a paragraph and returns true if the entire 
>^teKt of paragraph has been deleted 

C3 

B^l scContUnit: :ClearTeKt( long offsetl, 

long offsetZ ) 

{ 

scTextline* txl; 

Bool entireParaDeleted = false; 

offsetl « MAX( MIN( offsetl, GetContentSize() }, 0 ); 
offset2 - MIHt mK{ offset2, 0 ), GetContentBize( ) ); 

if ( offsetl 0 offset2 GetContentSize() ) 
entireParaDeleted ^ true; 

if ( entireParaDeleted ) { 

GetCharArrayO .RemoveBetweenOffsets{ offsetl, offset 2 ): 
fSpecRun.SetContentSi2e( 0 ); 

#ifdef „RUBI„SUPPORT 

DeieteRubi Array ( ) ; 

#endif 
} 

else { 

GetCharArrayO .RemoveBetweenOffsets( offsetl, offset2 ); 
fSpecRun. Clear ( offsetl, offset2 ); 

GetCharArrayO .RepairText{ fSpecRun, offsetl, offsetl ); 
#ifdef „RUBI„SUPPORT 
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newPara - srcPara->CopyTeKt ( OL, PARAChSize( (scContUnit*)srcPara ) ); 
firstPara->PostInsert( newPara ); 
firstPara = newPara; 

} 

tmpOffset - 0; 

fiaaiPara->PasteText( srcPara, tmpOffset ); 

offset ^ srcPara->GetContentSi2e(); 
Renumber ( ) ; 



} 



return final Para; 



/* paste one para into another para »/ 

void scContUait: :PasteText ( const scContUnit* srcPara, 

longS offset ) 

{ 

try { 

if ( offset 0 ) { 

TypeSpec ts « srcPara->GetDefaultSpec{ ) ; 
if ( ts.ptrO ) 

SetDefaultSpec{ ts ); 

} 

// paste the specs in . x 

fSpecRuR.Insertl?un( offset, srcPara->GetContentSxze() , srcPara->aetSpecRun{) ); 

£3 // paste the test in 

fCharArray, Paste ( { (scContUnit*)srcPara)'->G8tCharArray{) , offset ); 
Mark( scREBREM ); 

midB£ „RUBI„SUPPORT 
^1 // paste the rubis in 

s'" if ( fRubiArray || srcPa ra -> Get Rub i Array () ) { 

^^J if ( fRubiArray ! srcPara -> Get Rub i Array () ) 

fRubiArray->EumpRubiData( offset, srcPara->GetContentSi2e ( ) ); 
else if ( I fRubiArray S£^ srcPara->GetRubiArray() ) { 
AllocRubiArray( *srcPara->GetRubiArray () ); 
fRubiArray->BumpRubiData( 0, offset ); 

> 

" J else 

fRubiArray->Paste( «srcPara ->GetRubi Array () , offset, srcPara*->GetContentSize() ); 



f®dif 



} 



} 



scTsKtline* tsl ^ FindLine{ offset ); 
if ( tKi ) 

txl->Mark( scREPAIKT ); force repaint »/ 

long startOffset offset; 

offset srcPara->GetContentSize() ; 

f SpecRun . SetContentSize ( GetContentSize ( ) ) ; 

fCharArray*RepairTeKtC f SpecRun, startOffset, offset ); 

} 

catch (.,-){ 

SCDebugBreak ( ) ; remove stuff from the paragraph 
throw; 

} 



/* split the paragraph into to two paragraphs at the split «/ 

scContUnit* scContUnit :: Split ( longSc offset ) 
{ 

scContUnit* p2; 

p2 - CopyXextC offset, GetContentSise( ) ); 
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if ( tKl ) { 

if ( t%l->GetPara( ) 1= this ) 

txl « miLL; 
break ; 

} 

} 

return txl; 

} 

scTeKtline* scContUnit : :FindLine( long offset ) const 
^ scTeKtline* tsl = fFirstline; 

for ( ; txl £=Sc tKl->G^tP6ra () this; txl - tKl->GetNextLogical ( ) ) { 
if ( txl->OffsetOnLine( offset ) ) 
return txl; 

} 

return IsIULL; 

> 

/» append para2H to the stream containing paralH 

void scContUnit: :Append( scContUnit* p2 ) 

^ scContUnit* pi ^ (scContUnit* ) LastlnChain () ; 

„„ pl->SetHext( p2 ); 

□ p2->SetPrev( pi ); 

O Renumber (); 

in 

at — as = S! = =t=a ssis: »ws= * = = 

4^ insert para2 into the stream following paral */ 
'MitS, scContUnit ; :Post Insert C scContUnit *p2 ) 
is scContUnit *nextP; 

U if ( P2 ) { 

nextP - GetHext( ); 

Setl>Iext( p2 ); 
l:\ p2->SetPrev( thxs ); 

scContUnit* last - (scContUnit* )p2->LastInChain{ ) ; 

f ^ 

last->SetNeKt( nextP ); 
if C nextP ) 

nsxtP->SetPrev( last ); 
Renumber ( ) ; 

} 



} 



scContUnit* scContUnit : :PasteParas( const scContUnit* srcPara, 

lonsEt offset ) 



{ 



scContUnit* finaiPara; 
scContUnit* newPara; 
scContUnit* firstPara « this; 
long tmpOffset; 

// split the para 
finalPara - Split ( offset ); 

tmpOffset - GetContentSiseO ; 
PasteText( srcPara, tmpOffset ); 

srcPara - srcPara->GetNeKt ( ); 

for { ; srcPara->Get]s[ext( ); srcPara - srcPara->Get]sIext ( ) ) { 
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void scContUnit; :DebugParaSpecs() 

^ SCDebugTrace{ 0, scStringC "\npara spec - 0k%08x 5Cd\n" ), defspec„. GetContentSizeC) ): 
fSpecRun. Print Run ( "para specs" ); 

} 

#endif 

scContUnit : :scContUnit ( ) : 
fFirstline( 0 
fParaCount( 0 ) 

{ 

} 

scContUnit: :scContUnit( TypeSpec& spec, 

scContUnit* prevPara, 
long count ) : 

£Firstline( 0 )^ 
fParaCount( 0 ), 
fSpecRun{ spec 
defspec„( spec ) 

, fRubiArray( 0 ) 



m4d&£ _RUBI„SUPPORT 
#^di£ 

lik SCDEBUQ > 1 

f Re forma tEveat 0; 
#^di£ 

^1 try { 

SetCount( count ); 

I'' Mark( scREXMULATE ); 

if ( prevPara ) 
"^4 prevPara->SetNeKt ( this ); 

; I SetPrev ( prevPara ) ; 

11 } 

iZ catch ( ... ) { 
C3 delete this; 

0 throw; 
} 

} 

scContUnit: : '"scContUnit ( ) 

// SCDebugTrace C 0. scStringt ^'scContUnit : ^scContUnit : 0K%08K\n" this ) . 
} 

/* find the next line in a Following column containing 
* lines of this paragraph 
*/ 

scTextline* scContUnit: :NeKtColumn( scColumn*S£ col ) 

^ scTeKtline* tKl = 1:3ULL; 

// check nest column 
for ( ; col; col - coI~>fetNeKt ( ) ) { 
if ( col ) 

tKl ^ col->GetFirstline( ); 
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if ( ofFset2 < offset 1 ) { 
long tmp; 

tmp « offset 1; 
offsetl « offset2; 
offset2 = tmp; 

} 

offset2 - MIN( offset2, GetCont©ntBize() ); 
offsetl - mXi 0. offsetl ); 

long maKSpecRecs fSpecRun .Nmnltems{) + dstPara->fSpec:Run.N™items() ; 

dstPera->fSpec:Run.SetNumSlots( maxSpecRecs ); 

long masChars « fCharArray -GetNuml terns ( ) + dstPara->GetCharArray{) .GetNumI terns () ; 

dstPara'->GetCharArray( ) .SetNumSlotsC mxChars ); 

// copy specrun 
fSpecRun.Copy{ dstPara">fSpecRun, offsetl, offset2 ); 

// copy the teKt 
fCharArray.CopyC dstPara->GetCharArray() , offset U offset2 ); 

#ifdef „RUBI„SUPPORT 

copy the rubi annotations 
if ( f Rubi Array ) { 

dstPara->AllocRubiArray( *Get Rubi Array ( ) ); 

dstPara->GetRubiArray()->DeleteRubiData( offset2. GetContentSize() ); 

dstPara->GetRubiArray()->DeleteRubxDataC 0, offsetl ); 

Jl: if ( tdstPara->GetRubiArray()->GetNumI terns () ) 

fU dstPara->DeleteRubiArray() ; 

^^pdif 

''J dstPara->GetCharArray() .RepairTeKt{ dstPara->fSpecRun, OL, dstPara->GetContentSize() ); 
yy dstPara->fSpecRun.SetCoatentSize( dstPara->GetContentSize() ); 
l-i retiirn dstPara; 

N 

#flf SCDEBUG > 1 

Y^id scContUnlt: :BbgPrintInfo( int debugLevel ) const 

^ SCDebugTrace( debugLevei, scString( "\nSCPARAGRAPH - reformat event %d\n" ), f Re format Event ); 

SCDebugTrace( debugLevel, scStringC "firstline Ok%08k count ^\n" ). fFirstiine, f ParaCount ) ; 

SCDebugTrace( debugLevel, scString( "retabulate rebreak ^u\n" ), fLogBits.fRetabulate, fLogBx 
ts f Rebreak ) i 

SCDebugTrace ( debuglevel . scString( '^reposition Zn logactive %u\n" ). fLogBits , f Reposition, fLog 
Bits.fLogActive ); 

SCDebugTrace ( debugLevei, scString( "keepnest %u\n" ), fLogBits.fKeepNeKt ); 



void scContUnit: :scAssertValid( Bool recurse ) const 
^ scTBOb j : : scAssertVal id { ) ; 

scAssert( ! Marked ( scRETABULATE ) ); 
scAssert( ^ Marked ( scREBREAK ) ); 

if ( fFirstlxne ) { 

fFirstline->scAssertValid( false ); 

scAssert( fFirstline->GetStartOf fset () 0 }; 

scAssert( fFirstline->GetEndOf fset ( ) <« fCharArray .GetCon tent Size ( ) ): 

} 
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/« SSS=StSSJ=3SSS = SS = =S!! 



Bool scContUnit; iIsRubiPresent C sise^t start, sise^t end ) 
{ 

if ( ifRubi Array ) 
return false; 

return fRubiArray->IsRubiData ( start, end ); 

■} 

#endif 

scColumn* scContUnit : :GetFirstCol ( void ) const 

^ return fFirstline 7 fFirstline->GetColumn () : 0; 
} 

// mark the parasraph 

void scContUnit: :Mark( const scLogBitsSc bits ) 
scTBObj : :Mark( bits ); 

SCDebugTrace ( 1, scString( "scContUnit-Mark QxZQB^ %d\n" ), this, GetCount() ). 

13 if ( bits,fRetabulate M bits^fRebreak || bits. f Reposition ) { 

if ( fFirstline ) { 

scColumn* col « fFirstline-'>GetColumnO ; 
"^'l col->Mark( scIMVALID ); 

} 

G 

43 do this paragraph and this column intersect 

iaol scContUnit : :ColSect( const scColumn* col ) const 

P 

'SJ const scTeKtime *1; 

// if we use this maybe this method should be moved over to column 
H For ( 1 - col->GetFirstline{); 1; 1 - l->eetWeKt() ) { 
|3 if C l->GetPara() this ) 

return true; 

} 

return false; 

} 

does this para oorL%Q.iTi this spec 
Bool scContUnit: :ContainTS( TypeSpec ts ) 

^ if ( ts 0 ) // 0 being the short cut for all specs 

return true; 
else if ( ts GetDefaultSpec() ) 
return true; 

return fSpecRun. Includes ( ts ); 

} 

scContUnit* scContUnit : :CopyTeKt ( lon^ offsetl. long offsetZ ) const 
T3rpeSpec defspec « defspec_; 

scContUnit* dstPara « scContUnit: : Allocate ( defspec ); 
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#endif 

Mark( scRETABULATE ); 
Mairk( scREBREAK ); 

} 

void scCantUnit: :Wrxte( APPCtxPtr ctxPtr^ 

lOFuncPtr Ts^riteFunc ) 

{ 

scTBObj : :Write( ctKPtr, writeFunc ); 

WriteLong( fParaCount, ctK?tr, writeFunc, kIntelOrder ); 

// the characters 
fCharArray .Write ( ctsPtr, writeFunc ); 

// the spec runs 
fSpecRun -Write ( ctxPtr, writeFunc ); 

WriteLong( APPPoiiiterToDiskID( ctKPtr# defspec_»ptr() , diskidXypespec 
ctxPtr, 
writeFunc, 
kIntelOrder ); 

#i£def „RUBI^SUPPORT 

WriteLongfC (ulong) fRubiArray ? 1 : 0, ctxPtr, writeFunc, kIntelOrder ); 
if ( f Rub i Array ) 
C3 fRubiArray->Write( ctxPtr, writeFunc ); 
#emiif 

vdf4 scContUnit : :RestorePointersC scSet* enumXable ) 

if ( IHarked{ scPTRRESTORED ) ) { 
f=i scTBObj : :RestorePo inters ( enumXable ); 
''"^ fSpecRun .RestorePoiaters{ ); 

!^ } 

vdid scContUnit : :CopySpecRun( coast scSpecRunS spr ) 

ill 

f^, fSpecRun = spr; 

}■ ^'"^ 

#ifdef „RUBI„SUPPORX 

void scContUnit : :AllocRubi Array ( void ) 
{ 

fRubiArray « SClJJEW scRubiArray; 

} 

void scContUnit : ;AllocRub 1 Array ( const scRubiArray& ra ) 
{ 

fRubiArray « SCNEW scRubiArray; 
* fRubiArray - ra; 

} 

void scContUnit: :DeleteRubiArray( void ) 
{ 

delete fRubiArray, fRubiArray =0; 

} 
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File: SCPARAGR.C 

$Header: /Projects/Toolbos/ct/SCPARAGR.CPP 2 5/30/97 8:45a Wmanis $ 
Contains: content unit code- 
Written by; Manis 

Copyright (c) 1989-34 Stonehand Inc., of Cambridge, Mk. 
All rights rj&served. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

#include "scparagr.h" 

#inciude "sccoluinn.h*' 

#include "scbreak.h" 

#include "scstcach.h" 

^include *'scgiobda.h" 

#jgclude "scctype.h" 

#iiclude "scmem^h" 

#ilclude "scset.h" 

#iiclude "scspcrec.h" 

#i;nclude "scstream.h" 

#iidclude "sctsKtii.h" 

#i|clude "scfileio.h" 

M^clude "scpubobj.h" 

#Jlclude "sccallbk.h" 

#Hclude "scapptex.h" 

#rfdef „RUBI„SUPPORT 
#J^cl ude " scrub i . h " 
^feAdif 



40==== 
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void scContUnit: :Read( scSet* enumTable, 

APPCtKPtr ctxPtr, 
lOFuncPtr readFunc ) 

^ scTBObj : :ReadC enumTable, ctxPtr. readFunc ); 

ReadLong( fParaCount, ctsPtr, readFunc, kIntelOrder ); 

f CharArray . Read ( ctKPtr, readFunc ); 

f SpecRun . Read ( ctxPtr, readFunc ); 

long diskid; 

R^adLong( diskid, ctxPtr, readFunc, kIntelOrder ); 

TypeSpec spec( (stSpec»)APPDiskIDToPointer ( ctxPtr, diskid, diskidTypespec } ), 
defspec_ = spec; 

#ifdef ^RUBI^SUPPORT 
long rubi present; 

ReadLong{ rubipresent, ctnPtr, readFunc, kIntelOrder ); 
if ( rubipresent ) { 
AllocRubiArray ( ) ; 

fRubiArray->Read( ctxPtr, readFunc, rubipresent ); 

} 
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// this should be executed first 



void 


append ( TypeSpecS: ) ; 






void 


append ( stUnivStringSe ); 


void 


append ( UCS2 ); 


int 


get( UCS2£t. TypeSpecS. ); 


void 


reset ( ) 



{ 

choffset_ = 0; 

} 

TypeSpecS: paraspec ( ) 
{ 

return paraspec_; 

} 

// CAUTIOlSr the semantics this are a bit bxzarire 
stParaSc operator=«( const stFaraS* ); 

void setparaspec( TypeSpecSc ts ); 

i nt va 1 i date ( ) const ; 
int complete{); 

private : 

TypeSpec paraspec_ ; 

fj scSi2:eableArray<UCS2> ch„; 

scSpecRun specs„; 

IZ int 3 2 choffset.; 

% 

#4ydif /* _H_SCPARAGR */ 

13 

u 
H 

iJ 

C3 
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long 
Bool 
void 
Bool 



TypeSpecS:. eUnitXypeS: ); 
EsternalSi2e( void ) const; 

FindLocation( long&. BoolSc^ scTestline*Sc. MicroPointSc^ eContentMovement ); 
FreeScrapC longS: ); 

FindStringC const UCS2*, const SearchState^^ longS:, loagSc ); 



int 
int 
int 

Bool 



protected : 

#i,£ SCDEBUa > 1 
13 eRef Event 

#e,l?Be 
?S eRefEvent 

^3 Bool 



FindString( const stUnivString&, const SearchStateSe, int32, int32, int32S: ); 
ReplaceToken( const stUnxvStringSt, int32, int32St ); 
GetToken( stUnivStringSc, int32, int32 ) const; 

RepIaceWord( CharRecordP& startChRec, 

scSpecRecord*S: specRec, 

long startOf fseti. 

longSc endOffset, 

longSc limitOffset, 

UCS2* chBuf , 

UCS2* replaceBuf ) ; 




Reformat2( scCOLRefDataS:, PrevParaDataS*, mtr int&, IntS: ); 
Reformat2( scCOLRefData^, PrevParaDataSe, int, intS^ ); 



ResetWidowC scCOLRefDataS: cData, 

Bool testGetStrip ) ; 



fg scTeKtline* 
long 

TypeSpec 
scSpecRun 
£3 scCharArray 



fFirstline; 
f ParaCount ; 
defspec_; 
fSpecRun; 
fCharArray; 



/* first line of paragraph 

/« the # of this para in the stream */ 



/* the charArray */ 



#iTdef _RUBI_SUPPORT 

scRubiArray* fRubiArray; 
#endif 

inline UCS2 PARACharAtOffset ( scContUnit* p, long offset ) 

{ return p->GetCharArray ( ) .GetCharAtOf fset ( offset ); } 



#define NEXT.LINE 
#define PREV„LINE 



LOHG.MAK 
LOHG^MIH 



#define PARAFirstlnCham (p) ( ($cContUnit*)p->FirstInChain{ )) 
#define PARAChSize( p ) { (p) ->GetCharArray ( ) .OetContentSizeO ) 



class stPara { 
public: 

StPara ( ) ; 

StPara ( TypeSpecS: ) ; 
~stPara ( ) ; 
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TypeSpec GetDefaultSpec{ void ) const 

{ 

return defspec„; 

} 



#ifdef „RUBI_SUPPOin' 



Bool 
void 

void 
void 
void 
void 

scRubi Array* 
Bool 
#endif 

int 
int 



GetAnnotation( int nth, long, long, scAnnotationS: ); 
ApplyAnnotationC long, long, const scAnnotationSt ); 

All ocRubi Array ( void ); 
AllocRubiArray( const scRubiArraySc 
De leteRubi Array ( void ); 
CopyRubi Array ( const scRubiArraySc ); 

GetRubiArray( void ) const { return fRubiArray; } 
IsRubiPresent( size_t, size_t ); 

operator««( const scContUnit& ) const; 

operator! -( const BcContUnitS. p2 ) const { return I {*thxs 



- P2); } 



scContUnit* 
scContUnit* 



GetPrev( void ) const 
GetNeKt( void ) const 



{ return (scContUnit*)Prev() ; } 
{ return (scContUnit*)Next () ; } 



scTestline* NeKtColumn( scColuxnn»£( ); 



,s-^void 

^^scTextline* 



;;scTestline* 



SetFirstlineC scTextline* first line ) 
GetFirstline( void ) const 



{ fFirstline = firstline; } 
{ return fFirstline; } 



// find the line associated with the indicated offset 
FindLine( long offset ) const; 



IJscTeKtline* 
r "jScTeKtline* 
scContUnit* 
PscContUnit* 



: scColumn* 



GetLastline( void ) const; 
GetLastVisibleLine( void ) const; 
GetLastVisiblePara( void ) const; 
GetPrevVisifolePara( void ) const; 

// this returns the column that this paragraph starts in 
GetFirstCol( void ) const; 



IscContUnit* Earlier( const scContUnit* ) constj 



long 
C3 void 



Bool 
void 



GetCount( void ) const { return fParaCount; } 
SetCount( long cnt ) { fParaCount - cnt; } 

// do this paragraph and this column intersect 
ColSect( const scColumn* ) const; 

ForceRepamtC long, long ); 



void 
void 
void 
void 



Renumber ( void ); 
Retabulate( TypeSpec ts ); 

SelectVVordC long, longSc. longSc ); ^ . . r. ■ ^ ^ 

SetStyle( long, long. TypeSpec, Bool retabulate, Bool forceRepamt ) 



scContUnit* CopyTeKt( long, long ) const; 



#if SCDEBUG > 1 
virtual void 
virtual void 
void 

#else 

virtual void 

#endif 



scAssertValid( Bool recurse « true ) const j 
DbgPrintInfo( int debugLevei = 0 ) const; 
DebugParaSpecs ( ) ; 

scAssertValid( Bool - true ) const {} 



void 



ChInfo( long, UCS2&, 

ulongSc, MicroPointSc, MicroPointSt, 
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void 



Unlink ( void ); 



void 
void 



ReadAPPTeKt( stTextlmportEKportSt ); 
WriteAPPTest( stTextImportEKport& ); 



long 
TOid 



RaadStream( APPCtKPtr. lOFuncPtr ); 
WriteStr^amC Bool, APPCtxPtr, lOFuncPtr ). 



// FILE I/O 

// complete the read 
virtual void Read( scSet*, APPCtxPtr, lOFuncPtr ); 

// complete the write 
virtual void Write ( APPCtxPtr, lOFuncPtr ); 

// restore the pointers after completing a read 
virtual void RestorePointers( scSet* ); 

void PasteText( const scContUnit*, longS^ ); 

Bool ClearText( long, long ); 

scContUnit* PasteParas( const scContUnit*, longSc ); 



void 



TeKtTransC long^ long, eChlranXype. int ); 



, TypeSpec 
TypeSpec 
^1; TypeSpec 



SpecAtEndC void ); 
SpecAtO£fset( long ); 
SpecAtStart{ void ); 



:^Bool 



does this para contain this spec 
ContainTS( TypeSpec ); 



"J void 
\^ void 

void 



long 



scCharArraySc 



scSpecRunSt 



GetTSList( scTypeSpecList& ); 

OffsetOetTSList ( long, long, scTypeSpecList& ); 

OffsetG©tCharSpecList{ long, long^ scSpecLocListSt ); 

// the chararray is null terminated, so to tell 

// use ho?? many characters we have we need to subract 

// one from the array size 

// 

GetContentSize{ void ) const 
{ 

return fCharArray .GetContentSize ( ) ; 

} 

GetCharArray( void ) 
{ 

return fCharArray; 

} 



GetSpecRun( void ) 
{ 

return fSpecRun; 

} 

const scSpecRunSc GetSpecRun( void ) const 
{ 

return fSpecRun; 

} 



void 



CopySpecRun ( const scSpecRunSs ) \ 



void 

TypeSpecSc 



SetDefaultSpec{ TypeSpecSc ); 
GetDe£aultSpec( void ) 
{ 

return defspec_; 

} 
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''scContUnit 0 ; 



#if SCDEBUG > 1 
int 

void 



ffefonnatEvent; the tick the last time the paragraph 

// was refomatt^d - used only for debugging 
SetRef ormatEvent ( int event ) { f Re format Event « event; } 



void 

void 

void 
void 

scStream* 
scTestline* 



scContUnit* 



UscContUnit* 
.jscContUnit* 



Free( scSeleation* sel = 0 ); 

InitParaSpecC TypeSpeoSt 

LockMem( CharRecordPSt, scSpecRecord*S: ); 
UniockMem( void J; 



GetStreaffi( void ) const 



{ return (scStream*)FirstInChain{) ; } 



LocateFirstLine( scCOLRefDataSc, 
TypeSpec , 
scColuiEin*£i, 
MicroPointSc^ 
soLEADRefDataSc, 
PrevParaDataS: ); 

ReySplit( longSc offsets 

scKeyRecordSt keyRec ^ 

long& tznMove^ 

short & rebreak ) ; 

Split( longS^ ); 

Merge ( longS^ ); 



J y void 



Insert ( const CharRecordS:, 
TypeSpec&. 
long ); 



C3 scContUnit* 



tj void 



Reylnsert( longSe, 

scReyRecordS:^ 
longSr. 
short S;^ 
Bool^ 
TypeSpec, 
BoolSi ); 

Charlttsert( long^ 
longSc* 

scReyRecordSt, 
longSt^ 
short Sc, 
Bool, 

TypeSpec ); 



scContUnit* 



Copy( scContUnit* ) const; 



void 

virtual void 

#if SCDEBUG > 1 
eRefEvent 

#else 

eRefEvent 

#endif 

void 
void 
void 



Iter( SubstituteFunc^ long, longS: ); 
Mark( const scLogBitsSc bits ); 

Reformat ( scCOLRefData^, PrevParaData£<, int, intSt ); 
Reformat { scCOLRefDataSc, PrevParaDataSc, int ); 

Deformat ( void ) ; 
PostInsert( scContUnit* ); 
Append ( scContUnit* ); 



